diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/database.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/tests/database.scm b/tests/database.scm index 21a12f4..d9dfe13 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -57,14 +57,15 @@ (define* (make-dummy-build drv #:optional (eval-id 42) - #:key (outputs '(("foo" . "/foo")))) + #:key (outputs + `(("foo" . ,(format #f "~a.output" drv))))) `((#:derivation . ,drv) (#:eval-id . ,eval-id) (#:job-name . "job") (#:system . "x86_64-linux") (#:nix-name . "foo") (#:log . "log") - (#:outputs . (("foo" . "/foo"))))) + (#:outputs . ,outputs))) (define-syntax-rule (with-temporary-database body ...) (call-with-temporary-output-file @@ -114,6 +115,17 @@ INSERT INTO Evaluations (specification, in_progress) VALUES (3, false);") ;; there, see <https://bugs.gnu.org/28094>. (db-add-build build))) + (test-equal "db-add-build-with-fixed-output" + #f + (let ((build1 (make-dummy-build "/fixed1.drv" + #:outputs '(("out" . "/fixed-output")))) + (build2 (make-dummy-build "/fixed2.drv" + #:outputs '(("out" . "/fixed-output"))))) + (db-add-build build1) + + ;; Should return #f because the outputs are the same. + (db-add-build build2))) + (test-equal "db-update-build-status!" (list (build-status scheduled) (build-status started) |