Explicitly list all the availables functions

3 files changed, 23 insertions, 4 deletions

diff --git a/tests/configuration/simple.toml b/tests/configuration/simple.toml
index d41383a..9ca591a 100644
--- a/tests/configuration/simple.toml
+++ b/tests/configuration/simple.toml
@@ -8,13 +8,13 @@ tab = 1
 [externals.target]
 extern_key = "\"_B\""
 # Here, the values A & B are considered as column, and not litteral
-intern_key = "function(:A, :B)"
+intern_key = "concat(:A, :B)"
 allow_missing = true
 file = ""
 tab = 1
 
 [sheet]
 columns = [
-    "function(:target.A, :B, 'free\\' text')",
+    "if(:target.A, :B, 'free\\' text')",
     "counter([:target.A],[:target.A])"
 ]
diff --git a/tests/configuration_expression.ml b/tests/configuration_expression.ml
index a5c4755..fc4c0ec 100644
--- a/tests/configuration_expression.ml
+++ b/tests/configuration_expression.ml
@@ -224,6 +224,23 @@ let priority_operator_or =
           (Or, BOperator (Different, Integer "1", Integer "1"), Integer "0")))
     result
 
+let unknown_function =
+  "unknown function" >:: fun _ ->
+  let expr = "function()" in
+  let result = ImportConf.expression_from_string expr in
+
+  assert_equal ~printer
+    (Error "Unknown function or wrong number of arguments for 'function'")
+    result
+
+let wrong_arguments =
+  "unknown function" >:: fun _ ->
+  let expr = "if()" in
+  let result = ImportConf.expression_from_string expr in
+
+  assert_equal ~printer
+    (Error "Unknown function or wrong number of arguments for 'if'") result
+
 let test_suit =
   [
     parse_dquoted;
@@ -248,6 +265,8 @@ let test_suit =
     priority_equality;
     priority_operator_and;
     priority_operator_or;
+    unknown_function;
+    wrong_arguments;
   ]
 
 let tests = "configuration_expression" >::: test_suit
diff --git a/tests/configuration_toml.ml b/tests/configuration_toml.ml
index e58ff1b..67f8d75 100644
--- a/tests/configuration_toml.ml
+++ b/tests/configuration_toml.ml
@@ -17,7 +17,7 @@ let test_suit =
                 extern_key = Literal "_B";
                 intern_key =
                   Function
-                    ( "function",
+                    ( "concat",
                       [
                         Path { alias = None; column = 1 };
                         Path { alias = None; column = 2 };
@@ -44,7 +44,7 @@ let test_suit =
           let expected =
             [
               Function
-                ( "function",
+                ( "if",
                   [
                     Path { alias = Some "target"; column = 1 };
                     Path { alias = None; column = 2 };