[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: Fix tests.

From: Mathieu Othacehe
Subject: branch master updated: Fix tests.
Date: Wed, 13 Jan 2021 08:55:38 -0500

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 5982316  Fix tests.
5982316 is described below

commit 5982316c5cc7bda93ebecf41ad9651b69972bb93
Author: Mathieu Othacehe <>
AuthorDate: Wed Jan 13 14:55:22 2021 +0100

    Fix tests.
    * tests/database.scm: Fix tests.
 tests/database.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/tests/database.scm b/tests/database.scm
index 406635b..037cbbf 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -343,21 +343,20 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 
0, 0);")
     (list (build-status scheduled)
           (build-status started)
           (build-status succeeded)
-          "/foo2.drv.log")
+          "/foo2.log")
     (let* ((derivation (db-add-build
                         (make-dummy-build "/foo2.drv" 2
                                           #:outputs '(("out" . "/foo")))))
            (get-status (lambda* (#:optional (key #:status))
                          (assq-ref (db-get-build derivation) key))))
       (let ((status0 (get-status)))
-        (db-update-build-status! "/foo2.drv" (build-status started))
+        (db-update-build-status! "/foo2.drv" (build-status started)
+                                 #:log-file "/foo2.log")
         (let ((status1 (get-status)))
-          (db-update-build-status! "/foo2.drv" (build-status succeeded)
-                                   #:log-file "/foo2.drv.log")
+          (db-update-build-status! "/foo2.drv" (build-status succeeded))
           ;; Second call shouldn't make any difference.
-          (db-update-build-status! "/foo2.drv" (build-status succeeded)
-                                   #:log-file "/foo2.drv.log")
+          (db-update-build-status! "/foo2.drv" (build-status succeeded))
           (let ((status2 (get-status))
                 (start   (get-status #:starttime))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]