test for ordered jsexpr->string

This commit is contained in:
Matthias Felleisen 2020-12-23 09:45:02 -05:00
parent cc9fc20a07
commit bff1a3c012

View File

@ -88,6 +88,7 @@
;; and that the same holds for keys ;; and that the same holds for keys
(jsexpr->string (string->jsexpr "{\"\U0010FFFF\":\"\U0010FFFF\"}")) (jsexpr->string (string->jsexpr "{\"\U0010FFFF\":\"\U0010FFFF\"}"))
=> "{\"\U0010FFFF\":\"\U0010FFFF\"}" => "{\"\U0010FFFF\":\"\U0010FFFF\"}"
(jsexpr->string #hash[(a . 1) (b . 2)]) => "{\"a\":1, \"b\":2}"
(jsexpr->string (string->jsexpr "{\"\U0010FFFF\":\"\U0010FFFF\"}") (jsexpr->string (string->jsexpr "{\"\U0010FFFF\":\"\U0010FFFF\"}")
#:encode 'all) #:encode 'all)
=> "{\"\\udbff\\udfff\":\"\\udbff\\udfff\"}" => "{\"\\udbff\\udfff\":\"\\udbff\\udfff\"}"