diff options
| author | Chimrod <> | 2024-02-02 15:00:40 +0100 |
|---|---|---|
| committer | Chimrod <> | 2024-02-02 15:00:40 +0100 |
| commit | e2bcf0a034b9c83b44158d299b2b255d328b17b0 (patch) | |
| tree | d7e91c03a2fc01a8a6a9b273325d4cf9c6e42ff3 /test | |
| parent | 3b5c4f8cc65a9b781ffdea09ee6b725fb8341d4d (diff) | |
New specific error message
Diffstat (limited to 'test')
| -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; ] ) |