From 3414c5a0081d2fb12c9c4f401ac75cfb738d13fa Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 14 Jan 2022 08:42:25 -0800
Subject: [PATCH] harder test

---
 brag-lib/brag/examples/codepoints.rkt  | 9 ++++-----
 brag-lib/brag/test/test-codepoints.rkt | 3 ++-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/brag-lib/brag/examples/codepoints.rkt b/brag-lib/brag/examples/codepoints.rkt
index f92afa7..c4be182 100644
--- a/brag-lib/brag/examples/codepoints.rkt
+++ b/brag-lib/brag/examples/codepoints.rkt
@@ -1,6 +1,5 @@
 #lang brag
-start: A c d e
-A : "\101" ; A
-c : "\U0063" ; c
-d : "\u64" ; d
-e : "\x65" ; e
\ No newline at end of file
+start: A c def
+A : "\"\101\\" ; A
+c : '\'\U0063\\' ; c
+def : "*\u64\x65f" ; de
\ No newline at end of file
diff --git a/brag-lib/brag/test/test-codepoints.rkt b/brag-lib/brag/test/test-codepoints.rkt
index 751804f..d92652f 100755
--- a/brag-lib/brag/test/test-codepoints.rkt
+++ b/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")))