Add more tests with regards to escaping

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-06-19 01:00:50 +07:00 · 2018-06-19 01:00:50 +07:00 · ec8860d0be
parent 19908abf4d
commit ec8860d0be
1 changed files with 25 additions and 0 deletions
--- a/test/unit-tests/sexp.mlt
+++ b/test/unit-tests/sexp.mlt
@ -137,3 +137,28 @@ parse {|"$bar%foo%"|}
 [%%expect{|
 - : parse_result = Same (Ok ["$bar%foo%"])
 |}]
+
+parse {|\%{foo}|}
+[%%expect{|
+- : parse_result = Same (Ok [\%{foo}])
+|}]
+
+parse {|\${foo}|}
+[%%expect{|
+- : parse_result = Same (Ok [\${foo}])
+|}]
+
+parse {|\$bar%foo%|}
+[%%expect{|
+- : parse_result = Same (Ok [\$bar%foo%])
+|}]
+
+parse {|\$bar\%foo%|}
+[%%expect{|
+- : parse_result = Same (Ok [\$bar\%foo%])
+|}]
+
+parse {|\$bar\%foo%{bar}|}
+[%%expect{|
+- : parse_result = Same (Ok [\$bar\%foo%{bar}])
+|}]