From 53c12be40944da8733ac2f2f84dee3e6453e003b Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Tue, 12 Jul 2016 11:42:20 +0200 Subject: Evaluate derivations in a separate process. This fixes a bug where different Guix branches gave the same derivations. --- tests/database.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'tests/database.scm') diff --git a/tests/database.scm b/tests/database.scm index 232eab4..869d73c 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -21,10 +21,9 @@ (cuirass job) (srfi srfi-64)) -(define* (make-dummy-job #:optional (name "foo") #:key (metadata '())) - (make-job #:name name - #:derivation (string-append name ".drv") - #:metadata metadata)) +(define* (make-dummy-job #:optional (name "foo")) + `((#:name . ,name) + (#:derivation . ,(string-append name ".drv")))) (define %db ;; Global Slot for a database object. @@ -51,11 +50,11 @@ (db-get-evaluation (%db) (%id))) (test-equal "db-add-build-log" - (let ((job (make-dummy-job #:metadata `((id . ,(%id))))) + "foo log" + (let ((job (acons #:id (%id) (make-dummy-job))) (log-column 3)) (db-add-build-log (%db) job "foo log") - (vector-ref (db-get-evaluation (%db) (%id)) log-column)) - "foo log") + (vector-ref (db-get-evaluation (%db) (%id)) log-column))) (test-assert "db-close" (db-close (%db)))) -- cgit v1.2.3