From b7cc3a4f423ed6ed98cbf87a408fe80335e4ab9b Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Mon, 8 Apr 2024 10:27:14 +0200
Subject: Handle syntax error in string escape mecamism

---
 test/syntax_error.ml | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'test/syntax_error.ml')

diff --git a/test/syntax_error.ml b/test/syntax_error.ml
index 5587908..2187e89 100644
--- a/test/syntax_error.ml
+++ b/test/syntax_error.ml
@@ -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;
     ] )
-- 
cgit v1.2.3