diff --git a/test/unit-tests/sexp.mlt b/test/unit-tests/sexp.mlt index 2fb9aeaf..77a4f2a0 100644 --- a/test/unit-tests/sexp.mlt +++ b/test/unit-tests/sexp.mlt @@ -107,3 +107,33 @@ parse {|"\%{x}"|} - : parse_result = Different {jbuild = Ok ["\\%{x}"]; dune = Error "unknown escape sequence"} |}] + +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%"|} +[%%expect{| +- : parse_result = Same (Ok ["%bar$foo%"]) +|}] + +parse {|"$bar%foo%"|} +[%%expect{| +- : parse_result = Same (Ok ["$bar%foo%"]) +|}]