test new syntax

brag/brag/examples/baby-json-alt.rkt

@@ -0,0 +1,16 @@
+#lang brag
+
+;; Simple baby example of JSON structure
+json ::= number | string
+    | array
+    | object
+
+number ::= NUMBER
+
+string ::= STRING
+
+array ::= "[" [json ("," json)*] "]"
+
+object ::= "{" [kvpair ("," kvpair)*] "}"
+
+kvpair ::= ID ":" json

brag/brag/test/test-baby-json.rkt

@@ -1,24 +1,23 @@
 #lang racket/base
 (require brag/examples/baby-json
+         (prefix-in alt: brag/examples/baby-json-alt)
          brag/support
          rackunit)
 
-(check-equal?
+(let ([str (list "{" 
- (syntax->datum
-  (parse (list "{" 
                  (token 'ID "message")
                  ":"
                  (token 'STRING "'hello world'")
-               "}")))
+                 "}")]
- '(json (object "{"
+      [result '(json (object "{"
                              (kvpair "message" ":" (json (string "'hello world'")))
-                "}")))
+                             "}"))])
+  (check-equal? (parse-to-datum str) result)
+  (check-equal? (alt:parse-to-datum str) result))
 
 
-(check-equal? 
+(let ([str "[[[{}]],[],[[{}]]]"]
- (syntax->datum
+      [result  '(json
-  (parse "[[[{}]],[],[[{}]]]"))
- '(json
                  (array
                   "["
                   (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
@@ -26,8 +25,6 @@
                   (json (array "[" "]"))
                   ","
                   (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
-    "]")))
+                  "]"))])
-
+  (check-equal? (parse-to-datum str) result)
- 
+  (check-equal? (alt:parse-to-datum str) result))
-               
-