diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/dup_cases.ml | 7 | ||||
| -rw-r--r-- | test/syntax.ml | 6 |
2 files changed, 9 insertions, 4 deletions
diff --git a/test/dup_cases.ml b/test/dup_cases.ml index 39bea23..cf1d4c1 100644 --- a/test/dup_cases.ml +++ b/test/dup_cases.ml @@ -20,11 +20,10 @@ end |} [] (** The rnd function can generate different result, this is not a warning *) -let ok_rnd () = - _test_instruction {| -if rnd(): +let ok_rnd () = _test_instruction {| +if rnd: 0 -elseif rnd(): +elseif rnd: 0 end |} [] 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; |