[no subject]

[Mathieu Othacehe]

branch: master
commit 00c7b4bb4432ff3f5ba28dca3625479e1fa129d8
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Sep 10 14:37:03 2020 +0200

    tests: Fix HTTP tests.
    
    This is a follow-up of 154232bc767d002f69aa6bb1cdddfd108b98584b.
    
    * tests/http.scm (evaluations-query-result): Add 'timestamp', 'checkouttime'
    and 'evaltime' fields.
    (fill-db): Pass a matching timestamp to "db-add-evaluation" calls.
---
 tests/http.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/http.scm b/tests/http.scm
index e2d6982..23bfce6 100644
--- a/tests/http.scm
+++ b/tests/http.scm
@@ -79,6 +79,9 @@
   #(((#:id . 2)
      (#:specification . "guix")
      (#:status . -1)
+     (#:timestamp . 1501347493)
+     (#:checkouttime . 0)
+     (#:evaltime . 0)
      (#:checkouts . #(((#:commit . "fakesha2")
                        (#:input . "savannah")
                        (#:directory . "dir3")))))))
@@ -189,8 +192,10 @@
       (db-add-build build1)
       (db-add-build build2)
       (db-add-specification specification)
-      (db-add-evaluation "guix" checkouts1)
-      (db-add-evaluation "guix" checkouts2)))
+      (db-add-evaluation "guix" checkouts1
+                         #:timestamp 1501347493)
+      (db-add-evaluation "guix" checkouts2
+                         #:timestamp 1501347493)))
 
   (test-assert "/specifications"
     (match (call-with-input-string