Add tests for % and $ chars in atoms
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
3c74bf07e8
commit
a9142840fd
|
@ -107,3 +107,33 @@ parse {|"\%{x}"|}
|
||||||
- : parse_result =
|
- : parse_result =
|
||||||
Different {jbuild = Ok ["\\%{x}"]; dune = Error "unknown escape sequence"}
|
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%"])
|
||||||
|
|}]
|
||||||
|
|
Loading…
Reference in New Issue