diff options
Diffstat (limited to 'test/syntax_error.ml')
| -rw-r--r-- | test/syntax_error.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/syntax_error.ml b/test/syntax_error.ml index 490ec96..66f442d 100644 --- a/test/syntax_error.ml +++ b/test/syntax_error.ml @@ -228,6 +228,12 @@ end if|} (* The location name *) +let unclosed_paren2 () = + _test_instruction {| +iif(1,0,0 + iif(1, 1, 2) +|} + { level = Error; loc = _position; message = "Unclosed `(`" } + let test = ( "Syntax Errors", [ @@ -246,4 +252,5 @@ let test = Alcotest.test_case "Missing comparable" `Quick missing_comparable; Alcotest.test_case "Location change" `Quick location_change; Alcotest.test_case "Misplaced if" `Quick misplaced_if; + Alcotest.test_case "(()" `Quick unclosed_paren2; ] ) |