diff options
Diffstat (limited to 'test/syntax.ml')
| -rw-r--r-- | test/syntax.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/syntax.ml b/test/syntax.ml index aa3eecb..f15c72f 100644 --- a/test/syntax.ml +++ b/test/syntax.ml @@ -707,6 +707,11 @@ let test_function2 () = [ Integer (_position, "0"); Integer (_position, "1") ] ))); ] +(** The RND function does not have parens after the name *) +let test_rnd () = + _test_instruction "rnd" + [ Tree.Ast.Expression (Tree.Ast.Function (_position, T.Rnd, [])) ] + let test_precedence4 () = _test_instruction "trim()" Ast.[ Expression (Function (_position, Trim, [])) ] @@ -934,6 +939,7 @@ let test = Alcotest.test_case "Call nl" `Quick test_nl; Alcotest.test_case "Function iif" `Quick test_function; Alcotest.test_case "Function rand" `Quick test_function2; + Alcotest.test_case "Function rnd" `Quick test_rnd; Alcotest.test_case "Precedence4" `Quick test_precedence4; Alcotest.test_case "Precedence5" `Quick test_precedence5; Alcotest.test_case "Precedence6" `Quick test_precedence6; |