harder test

brag-lib/brag/examples/codepoints.rkt

@@ -1,6 +1,5 @@
 #lang brag
-start: A c d e
+start: A c def
-A : "\101" ; A
+A : "\"\101\\" ; A
-c : "\U0063" ; c
+c : '\'\U0063\\' ; c
-d : "\u64" ; d
+def : "*\u64\x65f" ; de
-e : "\x65" ; e

brag-lib/brag/test/test-codepoints.rkt

@@ -3,4 +3,5 @@
 (require brag/examples/codepoints
          rackunit)
 
-(check-equal? (parse-to-datum "Acde") '(start (A "A") (c "c") (d "d") (e "e")))
+(check-equal? (parse-to-datum '("\"A\\" "'c\\" "*def"))
+              '(start (A "\"A\\") (c "'c\\") (def "*def")))