diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/syntax_error.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/syntax_error.ml b/test/syntax_error.ml index 08de384..d814cbe 100644 --- a/test/syntax_error.ml +++ b/test/syntax_error.ml @@ -158,6 +158,17 @@ ELSEIF 0: instruction."; } +let comment_as_operator () = + let result = + { + level = Error; + loc = _position; + message = "Missing separator between instructions"; + } + in + _test_instruction "gs 'a', 'b' ! target" result; + _test_instruction "gs 'a' ! target" result + let test = ( "Syntax Errors", [ @@ -172,4 +183,5 @@ let test = Alcotest.test_case "Unknown function" `Quick unknow_function; Alcotest.test_case "Inline elif" `Quick inline_elif; Alcotest.test_case "Unclosed block" `Quick unclosed_block; + Alcotest.test_case "Unclosed block" `Quick comment_as_operator; ] ) |