beautiful-racket/beautiful-racket-ragg/br/ragg/elider/test-json-elider.rkt

#lang racket/base
(require "json-elider.rkt"
         br/ragg/support
         rackunit)

(check-equal?
 (syntax->datum
  (parse (list "{" 
               (token 'ID "message")
               ":"
               (token 'STRING "'hello world'")
               "}")))
 '(json (object "{"
                (kvpair "message" (json (string "'hello world'")))
                "}")))


(check-equal? 
 (syntax->datum
  (parse "[[[{}]],[],[[{}]]]"))
 '(json (array #\[ (json (array #\[ (json (array #\[ (json (object #\{ #\})) #\])) #\])) #\, (json (array #\[ #\])) #\, (json (array #\[ (json (array #\[ (json (object #\{ #\})) #\])) #\])) #\])))