simple codepoint test

brag-lib/brag/examples/codepoints.rkt

@@ -1,5 +1,6 @@
 #lang brag
-start: "\101" ; A
+start: A c d e
-     | "\U0063" ; c
+A : "\101" ; A
-     | "\u64" ; d
+c : "\U0063" ; c
-     | "\x65" ; e
+d : "\u64" ; d
+e : "\x65" ; e

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")))