diff options
| author | Chimrod <> | 2023-10-14 15:00:49 +0200 |
|---|---|---|
| committer | Chimrod <> | 2023-10-15 19:04:21 +0200 |
| commit | 617d2ee554ccf502c718391aa05b7b72668b83e7 (patch) | |
| tree | 3d376be8b5e8d111412602773688e9df81f6143d /test/syntax_error.ml | |
| parent | 7ff1e525b39a42f94e32c65f8c2aac0a52465dc3 (diff) | |
Added a new error case
Diffstat (limited to 'test/syntax_error.ml')
| -rw-r--r-- | test/syntax_error.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/syntax_error.ml b/test/syntax_error.ml index 6387530..e9e3fca 100644 --- a/test/syntax_error.ml +++ b/test/syntax_error.ml @@ -103,6 +103,10 @@ let unclose_comment () = _test_instruction {| ! that's it|} { level = Error; loc = _position; message = "Unclosed text" } +let syntax_error () = + _test_instruction {|*clr $ cla|} + { level = Error; loc = _position; message = "Unexpected character \"\"" } + let test = ( "Syntax Errors", [ @@ -114,4 +118,5 @@ let test = Alcotest.test_case "no &" `Quick missing_ampersand_2; Alcotest.test_case "no &" `Quick missing_ampersand_3; Alcotest.test_case "unclose_comment" `Quick unclose_comment; + Alcotest.test_case "Syntax error $" `Quick syntax_error; ] ) |