test for ordered jsexpr->string
This commit is contained in:
parent
cc9fc20a07
commit
bff1a3c012
|
@ -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\"}"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user