diff options
| author | Chimrod <> | 2023-10-07 15:05:25 +0200 |
|---|---|---|
| committer | Chimrod <> | 2023-10-07 15:05:25 +0200 |
| commit | 7ff1e525b39a42f94e32c65f8c2aac0a52465dc3 (patch) | |
| tree | 45e3557a12fe868ddd3dc96488129244ef807ec9 /test/syntax_error.ml | |
| parent | 97ab5c9a21166f0bffee482210d69877fd6809fa (diff) | |
Added the error message in case of unclosed quote in a text
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 ee39001..6387530 100644 --- a/test/syntax_error.ml +++ b/test/syntax_error.ml @@ -99,6 +99,10 @@ let missing_ampersand_3 () = message = "Missing separator between instructions"; } +let unclose_comment () = + _test_instruction {| ! that's it|} + { level = Error; loc = _position; message = "Unclosed text" } + let test = ( "Syntax Errors", [ @@ -109,4 +113,5 @@ let test = Alcotest.test_case "no &" `Quick missing_ampersand_1; Alcotest.test_case "no &" `Quick missing_ampersand_2; Alcotest.test_case "no &" `Quick missing_ampersand_3; + Alcotest.test_case "unclose_comment" `Quick unclose_comment; ] ) |