simple codepoint test

3 years ago · b0b073d393
parent a49c932a54
commit b0b073d393
2 changed files with 11 additions and 4 deletions
--- 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
+start: A c d e
+A : "\101" ; A
+c : "\U0063" ; c
+d : "\u64" ; d
+e : "\x65" ; e
--- a/brag-lib/brag/test/test-codepoints.rkt
+++ 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")))