diff options
Diffstat (limited to 'tests/http.scm')
| -rw-r--r-- | tests/http.scm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/tests/http.scm b/tests/http.scm index 09601a9..4d278d7 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -22,12 +22,19 @@ (test-begin "http") (test-equal "spec->json-string" - "{\"boolean\" : false,\"string\" : \"guix\",\"alist\" : {\"subset\" : \"hello\"},\"list\" : [1, \"2\", \"three\"],\"symbol\" : \"hydra-jobs\",\"number\" : 1}" - (spec->json-string '((#:number . 1) - (string . "guix") - ("symbol" . hydra-jobs) - (#:alist (subset . "hello")) - (list 1 "2" #:three) - ("boolean" . #f)))) + (string-append "{" + "\"boolean\" : false," + "\"string\" : \"guix\"," + "\"alist\" : {\"subset\" : \"hello\"}," + "\"list\" : [1, \"2\", \"three\"]," + "\"symbol\" : \"hydra-jobs\"," + "\"number\" : 1" + "}") + (spec->json-string '((#:number . 1) + (string . "guix") + ("symbol" . hydra-jobs) + (#:alist (subset . "hello")) + (list 1 "2" #:three) + ("boolean" . #f)))) (test-end) |