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