test JSON using jsexpr

beautiful-racket-demo/jsonic-demo-2/test-sources.rkt

@@ -1,11 +1,11 @@
 #lang at-exp br
-(require br/test rackunit)
+(require br/test rackunit json)
- 
+
-(check-equal? (run-source "jsonic-test.rkt") @string-append{
+;; don't compare string output directly because
-[
+;; hash element isn't converted in a reliable order
-  null,
+(check-equal? (string->jsexpr (run-source "jsonic-test.rkt"))
-  42,
+              '(null
-  true,
+  42
-  ["array","of","strings"],
+  #t
-  {"key-2":false,"key-1":null,"key-3":{"subkey":21}}
+  ("array" "of" "strings")
-]})
+  #hasheq((key-1 . null) (key-2 . #f) (key-3 . #hasheq((subkey . 21))))))

beautiful-racket-demo/jsonic-demo-3/test-sources.rkt

@@ -1,11 +1,11 @@
 #lang at-exp br
-(require br/test rackunit)
+(require br/test rackunit json)
- 
+
-(check-equal? (run-source "jsonic-test.rkt") @string-append{
+;; don't compare string output directly because
-[
+;; hash element isn't converted in a reliable order
-  null,
+(check-equal? (string->jsexpr (run-source "jsonic-test.rkt"))
-  42,
+              '(null
-  true,
+  42
-  ["array","of","strings"],
+  #t
-  {"key-2":false,"key-1":null,"key-3":{"subkey":21}}
+  ("array" "of" "strings")
-]})
+  #hasheq((key-1 . null) (key-2 . #f) (key-3 . #hasheq((subkey . 21))))))

beautiful-racket-demo/jsonic-demo/test-sources.rkt

@@ -1,11 +1,11 @@
 #lang at-exp br
-(require br/test rackunit)
+(require br/test rackunit json)
- 
+
-(check-equal? (run-source "jsonic-test.rkt") @string-append{
+;; don't compare string output directly because
-[
+;; hash element isn't converted in a reliable order
-  null,
+(check-equal? (string->jsexpr (run-source "jsonic-test.rkt"))
-  42,
+              '(null
-  true,
+  42
-  ["array","of","strings"],
+  #t
-  {"key-2":false,"key-1":null,"key-3":{"subkey":21}}
+  ("array" "of" "strings")
-]})
+  #hasheq((key-1 . null) (key-2 . #f) (key-3 . #hasheq((subkey . 21))))))