From 97d6dfb1088443a32ad8fc791d825b47aa1e9710 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Wed, 3 Aug 2016 03:17:01 +0200
Subject: [PATCH] tests: http: Reformat expected result.

* tests/http.scm ("spec->json-string"): Make expected result more
readable.
---
 tests/http.scm | 21 ++++++++++++++-------
 1 file 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)