diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/database.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/database.scm b/tests/database.scm index 7f3b972..46b245e 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -78,6 +78,16 @@ INSERT INTO Evaluations (specification, revision) VALUES (3, 3);") (test-assert "db-get-derivation" (db-get-derivation (%db) (%id))) + (test-assert "db-add-build" + (let ((build `((#:derivation . "/foo.drv") + (#:eval-id . 42) + (#:log . "log") + (#:output . "/foo")))) + (db-add-build (%db) build) + + ;; This should be idempotent, see <https://bugs.gnu.org/28094>. + (db-add-build (%db) build))) + (test-assert "db-close" (db-close (%db))) |