diff --git a/test/unit-tests/sexp.mlt b/test/unit-tests/sexp.mlt index 77a4f2a0..a460ec76 100644 --- 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}]) +|}]