From dd060261e35fcb8a57f03b01dbe84ab772a2a199 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Sat, 28 Oct 2023 16:47:23 +0200
Subject: Set up a context for parsing the literal strings

---
 test/syntax.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'test/syntax.ml')

diff --git a/test/syntax.ml b/test/syntax.ml
index 56fac8e..a49bd1c 100644
--- a/test/syntax.ml
+++ b/test/syntax.ml
@@ -784,6 +784,17 @@ let test_precedence8 () =
                  Tree.Ast.Integer (_position, "1") ) ));
     ]
 
+let nested_string () =
+  _test_instruction
+    {|'<a href="exec: dynamic ''killvar''''$zapis'''',<<jur_temp>>">Delete</a>'|}
+    [
+      Tree.Ast.Expression
+        (Tree.Ast.Literal
+           ( _position,
+             {|<a href="exec: dynamic 'killvar''$zapis'',<<jur_temp>>">Delete</a>|}
+           ));
+    ]
+
 let test =
   ( "Syntax",
     [
@@ -848,4 +859,5 @@ let test =
       Alcotest.test_case "inline if else if" `Quick test_mutiple_inline_ifs;
       Alcotest.test_case "Precedence7" `Quick test_precedence7;
       Alcotest.test_case "Precedence8" `Quick test_precedence8;
+      Alcotest.test_case "Nested string" `Quick nested_string;
     ] )
-- 
cgit v1.2.3