From b0b073d3934d651b167438a9096ad83008bbba7d Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 14 Jan 2022 08:21:23 -0800
Subject: [PATCH] simple codepoint test

---
 brag-lib/brag/examples/codepoints.rkt  | 9 +++++----
 brag-lib/brag/test/test-codepoints.rkt | 6 ++++++
 2 files changed, 11 insertions(+), 4 deletions(-)
 create mode 100755 brag-lib/brag/test/test-codepoints.rkt

diff --git a/brag-lib/brag/examples/codepoints.rkt b/brag-lib/brag/examples/codepoints.rkt
index c8be6f9..f92afa7 100644
--- a/brag-lib/brag/examples/codepoints.rkt
+++ b/brag-lib/brag/examples/codepoints.rkt
@@ -1,5 +1,6 @@
 #lang brag
-start: "\101" ; A
-     | "\U0063" ; c
-     | "\u64" ; d
-     | "\x65" ; e
\ No newline at end of file
+start: A c d e
+A : "\101" ; A
+c : "\U0063" ; c
+d : "\u64" ; d
+e : "\x65" ; e
\ No newline at end of file
diff --git a/brag-lib/brag/test/test-codepoints.rkt b/brag-lib/brag/test/test-codepoints.rkt
new file mode 100755
index 0000000..751804f
--- /dev/null
+++ b/brag-lib/brag/test/test-codepoints.rkt
@@ -0,0 +1,6 @@
+#lang racket/base
+
+(require brag/examples/codepoints
+         rackunit)
+
+(check-equal? (parse-to-datum "Acde") '(start (A "A") (c "c") (d "d") (e "e")))