diff options
Diffstat (limited to 'tests/http.scm')
-rw-r--r-- | tests/http.scm | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/tests/http.scm b/tests/http.scm index e05fdc5..a9fc3ef 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -142,6 +142,9 @@ (let* ((build1 `((#:derivation . "/gnu/store/fake.drv") (#:eval-id . 1) + (#:job-name . "fake-job") + (#:system . "x86_64-linux") + (#:nix-name . "fake-1.0") (#:log . "unused so far") (#:status . ,(build-status succeeded)) (#:outputs . (("out" . "/gnu/store/fake-1.0"))) @@ -151,24 +154,15 @@ (build2 `((#:derivation . "/gnu/store/fake2.drv") (#:eval-id . 1) + (#:job-name . "fake-job") + (#:system . "x86_64-linux") + (#:nix-name . "fake-2.0") (#:log . "unused so far") (#:status . ,(build-status scheduled)) (#:outputs . (("out" . "/gnu/store/fake-2.0"))) (#:timestamp . 1501347493) (#:starttime . 0) (#:stoptime . 0))) - (derivation1 - '((#:derivation . "/gnu/store/fake.drv") - (#:job-name . "fake-job") - (#:system . "x86_64-linux") - (#:nix-name . "fake-1.0") - (#:eval-id . 1))) - (derivation2 - '((#:derivation . "/gnu/store/fake2.drv") - (#:job-name . "fake-job") - (#:system . "x86_64-linux") - (#:nix-name . "fake-2.0") - (#:eval-id . 1))) (specification '((#:name . "guix") (#:load-path-inputs . ("savannah")) @@ -192,8 +186,6 @@ (#:commits . ("fakesha2" "fakesha3"))))) (db-add-build (%db) build1) (db-add-build (%db) build2) - (db-add-derivation (%db) derivation1) - (db-add-derivation (%db) derivation2) (db-add-specification (%db) specification) (db-add-evaluation (%db) evaluation1) (db-add-evaluation (%db) evaluation2))) |