diff options
author | Chimrod <> | 2023-11-24 11:48:27 +0100 |
---|---|---|
committer | Chimrod <> | 2023-11-24 11:48:27 +0100 |
commit | 41e740cd35892eee77d645dca7c5caf3b4d23fed (patch) | |
tree | 1d6e1174e8ebcdb535a8f6ce499cc0107187d45e /test | |
parent | 93247b7bd2eae629ee229a2d040618b668b0e30e (diff) |
Added two error messages
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; ] ) |