diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-08-03 03:17:01 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-08-03 03:17:01 +0200 |
| commit | 97d6dfb1088443a32ad8fc791d825b47aa1e9710 (patch) | |
| tree | 8c93310e684046e1547e7484b0327cc3f50f8167 | |
| parent | 1cfacbc6ff795d5172e6ca21a0bd3583ba1bcc74 (diff) | |
| download | cuirass-97d6dfb1088443a32ad8fc791d825b47aa1e9710.tar cuirass-97d6dfb1088443a32ad8fc791d825b47aa1e9710.tar.gz | |
tests: http: Reformat expected result.
* tests/http.scm ("spec->json-string"): Make expected result more
readable.
| -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) |