(defsuite "debug"
  (deftest "stringify direct" (assert= "42" (json-stringify 42)))
  (deftest "stringify dict" (assert= "{\"foo\":\"bar\"}" (json-stringify {"foo" "bar"})))
  (deftest "hs-coerce jsonstring" (assert= "{\"foo\":\"bar\"}" (hs-coerce (hs-make-object (list (list "foo" "bar"))) "JSONString")))
  (deftest "eval-hs jsonstring" (assert= "{\"foo\":\"bar\"}" (eval-hs "{foo:'bar'} as JSONString"))))