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,33 +1,30 @@
 #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
+                 (token 'ID "message")
-  (parse (list "{" 
+                 ":"
-               (token 'ID "message")
+                 (token 'STRING "'hello world'")
-               ":"
+                 "}")]
-               (token 'STRING "'hello world'")
+      [result '(json (object "{"
-               "}")))
+                             (kvpair "message" ":" (json (string "'hello world'")))
- '(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 "[[[{}]],[],[[{}]]]"))
+                 (array
- '(json
+                  "["
-   (array
+                  (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
-    "["
+                  ","
-    (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
+                  (json (array "[" "]"))
-    ","
+                  ","
-    (json (array "[" "]"))
+                  (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
-    ","
+                  "]"))])
-    (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
+  (check-equal? (parse-to-datum str) result)
-    "]")))
+  (check-equal? (alt:parse-to-datum str) result))
-
- 
-               
-