[no subject]

[Mathieu Othacehe]

branch: master
commit 870fe8a9b55c67d5b296188fb6003b4a66103942
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Mar 8 07:47:54 2021 +0100

    Fix tests.
    
    * tests/database.scm ("db-register-builds"): Fix it.
---
 tests/database.scm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/tests/database.scm b/tests/database.scm
index a911bf5..8321ce0 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -184,14 +184,14 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 
0, 0);")
 
   (test-assert "db-register-builds"
     (let ((drv "/test.drv"))
-      (db-register-build `((#:job-name . "test")
-                           (#:derivation . ,drv)
-                           (#:system . "x86_64-linux")
-                           (#:nix-name . "test")
-                           (#:log . "log")
-                           (#:outputs .
-                            (("foo" . ,(format #f "~a.output" drv))
-                             ("foo2" . ,(format #f "~a.output.2" drv)))))
+      (db-register-builds `(((#:job-name . "test")
+                             (#:derivation . ,drv)
+                             (#:system . "x86_64-linux")
+                             (#:nix-name . "test")
+                             (#:log . "log")
+                             (#:outputs .
+                              (("foo" . ,(format #f "~a.output" drv))
+                               ("foo2" . ,(format #f "~a.output.2" drv))))))
                           2 (db-get-specification "guix"))))
 
   (test-assert "db-update-build-status!"
@@ -342,10 +342,10 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 
0, 0);")
 
   (test-equal "db-get-build-products"
     `(((#:id . 1)
-        (#:type . "1")
-        (#:file-size . 1)
-        (#:checksum . "sum")
-        (#:path . "path")))
+       (#:type . "1")
+       (#:file-size . 1)
+       (#:checksum . "sum")
+       (#:path . "path")))
     (db-get-build-products 1))
 
   (test-equal "db-get-build-product-path"