[no subject]

[Ludovic Courtès]

branch: master
commit 203b2822200190b15d4ff9686b84fd1a071d08c2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 18 12:16:30 2023 +0200

    tests: Avoid hard-coded ‘build-status’ values.
    
    * tests/database.scm ("db-update-build-status!"): Replace hard-coded
    ‘build-status’ constants.
---
 tests/database.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/database.scm b/tests/database.scm
index 1b85c16..5f988ed 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -704,7 +704,7 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 
0);")
                  (>= percentage 50)))))))
 
   (test-equal "db-update-build-status!"
-    (list #f 1)
+    (list #f (build-status failed))
     (with-fibers
       (db-add-evaluation "guix"
                          (make-dummy-instances "fakesha5" "fakesha6"))
@@ -721,8 +721,8 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 
0);")
                                              (item "/new")
                                              (derivation "/new-build.drv")))))
 
-      (db-update-build-status! "/old-build.drv" 1)
-      (db-update-build-status! "/new-build.drv" 0)
+      (db-update-build-status! "/old-build.drv" (build-status failed))
+      (db-update-build-status! "/new-build.drv" (build-status succeeded))
       (map build-last-status
            (list (db-get-build "/old-build.drv")
                  (db-get-build "/new-build.drv")))))