diff options
Diffstat (limited to 'test/syntax.ml')
| -rw-r--r-- | test/syntax.ml | 12 |
1 files changed, 12 insertions, 0 deletions
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; ] ) |