mirrors
/
cuirass
mirror of https://notabug.org/mthl/cuirass.git
1
0
Fork 0
Code Issues Releases Wiki Activity

tests: http: Reformat expected result. 

* tests/http.scm ("spec->json-string"): Make expected result more
readable.
pull/3/head
Mathieu Lirzin 2016-08-03 03:17:01 +02:00
parent 1cfacbc6ff
commit 97d6dfb108
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/http.scm
View File

@ -22,12 +22,19 @@
(test-begin "http") (test-begin "http")
(test-equal "spec->json-string" (test-equal "spec->json-string"
"{\"boolean\" : false,\"string\" : \"guix\",\"alist\" : {\"subset\" : \"hello\"},\"list\" : [1, \"2\", \"three\"],\"symbol\" : \"hydra-jobs\",\"number\" : 1}" (string-append "{"
(spec->json-string '((#:number . 1) "\"boolean\" : false,"
(string . "guix") "\"string\" : \"guix\","
("symbol" . hydra-jobs) "\"alist\" : {\"subset\" : \"hello\"},"
(#:alist (subset . "hello")) "\"list\" : [1, \"2\", \"three\"],"
(list 1 "2" #:three) "\"symbol\" : \"hydra-jobs\","
("boolean" . #f)))) "\"number\" : 1"
"}")
(spec->json-string '((#:number . 1)
(string . "guix")
("symbol" . hydra-jobs)
(#:alist (subset . "hello"))
(list 1 "2" #:three)
("boolean" . #f))))
(test-end) (test-end)