diff options
| author | Chimrod <> | 2023-10-28 16:47:23 +0200 |
|---|---|---|
| committer | Chimrod <> | 2023-11-02 11:06:12 +0100 |
| commit | dd060261e35fcb8a57f03b01dbe84ab772a2a199 (patch) | |
| tree | 8faf51bfe647ab844c976dfcbba4ad4d533f07b4 /test | |
| parent | 872916a5661e31b655471ec0f9bf81a5474bc1ba (diff) | |
Set up a context for parsing the literal strings
Diffstat (limited to 'test')
| -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; ] ) |