[no subject]

[Mathieu Othacehe]

branch: master
commit 8f9b791e5bcb8d7dbe39fdd20cd354008c227968
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sat Mar 20 17:18:21 2021 +0100

    Fix tests.
---
 tests/database.scm | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/tests/database.scm b/tests/database.scm
index 85afb95..e766578 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -463,7 +463,7 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 
0);")
                     (#:system . "x86_64-linux")
                     (#:nix-name . "foo")
                     (#:log . "log")
-                    (#:outputs . ())))
+                    (#:outputs . (("out" . "/old-percentage")))))
              (new `((#:derivation . "/cur.drv")
                     (#:eval-id . 2)
                     (#:job-name . "job")
@@ -472,16 +472,13 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 
0, 0);")
                     (#:system . "x86_64-linux")
                     (#:nix-name . "foo")
                     (#:log . "log")
-                    (#:outputs . ()))))
+                    (#:outputs . (("out" . "/new-percentage"))))))
         (db-add-build old)
         (db-add-build new)
-        (let ((last-id
-               (match (expect-one-row
-                       (exec-query (%db) "SELECT MAX(id) FROM Builds;"))
-                 ((id) (string->number id)))))
-          (match (db-get-build-percentages (list last-id))
-            ((percentage)
-             (>= percentage 50)))))))
+        (match (db-get-build-percentages
+                (list (db-get-build (assq-ref new #:derivation))))
+          ((percentage)
+           (>= percentage 50))))))
 
   (test-equal "db-update-build-status!"
     (list #f 1)