|
@@ -92,7 +92,7 @@ let missing_ampersand () =
|
|
|
|
|
|
let unclose_comment () =
|
|
|
_test_instruction {| ! that's it|}
|
|
|
- { level = Error; loc = _position; message = "Unclosed text" }
|
|
|
+ { level = Error; loc = _position; message = "Unclosed string" }
|
|
|
|
|
|
let syntax_error () =
|
|
|
_test_instruction {|*clr $ cla|}
|
|
@@ -259,6 +259,13 @@ let unknown_operator () =
|
|
|
message = "Unknown operator. Did you write '+ =' instead of '+=' ?";
|
|
|
}
|
|
|
|
|
|
+let nested_string_mess () =
|
|
|
+ _test_instruction
|
|
|
+ {|
|
|
|
+ '<<func('…', '…')>>'
|
|
|
+|}
|
|
|
+ { level = Error; loc = _position; message = "Unclosed string" }
|
|
|
+
|
|
|
let test =
|
|
|
( "Syntax Errors",
|
|
|
[
|
|
@@ -280,4 +287,5 @@ let test =
|
|
|
Alcotest.test_case "(()" `Quick unclosed_paren2;
|
|
|
Alcotest.test_case "act: else" `Quick unclosed_act;
|
|
|
Alcotest.test_case "+ =" `Quick unknown_operator;
|
|
|
+ Alcotest.test_case "'<<''>>'" `Quick nested_string_mess;
|
|
|
] )
|