aboutsummaryrefslogtreecommitdiff
path: root/test/syntax_error.ml
diff options
context:
space:
mode:
Diffstat (limited to 'test/syntax_error.ml')
-rw-r--r--test/syntax_error.ml12
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;
] )