diff options
| -rw-r--r-- | tests/database.scm | 60 |
1 files changed, 27 insertions, 33 deletions
diff --git a/tests/database.scm b/tests/database.scm index 8cc022a..46c5794 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -45,46 +45,40 @@ ;; Global Slot for a job ID in the database. (make-parameter #t)) -(test-begin "database") +(define database-name + ;; Use an empty and temporary database for the tests. + (string-append (getcwd) "/" (number->string (getpid)) "-tmp.db")) -(parameterize - ((%package-database - ;; Use an empty and temporary database for the tests. - (string-append (getcwd) "/" (number->string (getpid)) "-tmp.db"))) - (dynamic-wind - (const #t) - (λ () - (test-assert "db-init" - (%db (db-init))) +(test-group-with-cleanup "database" + (test-assert "db-init" + (%db (db-init database-name))) - (test-assert "sqlite-exec" - (begin - (sqlite-exec (%db) "\ + (test-assert "sqlite-exec" + (begin + (sqlite-exec (%db) "\ INSERT INTO Evaluations (specification, revision) VALUES (1, 1);") - (sqlite-exec (%db) "\ + (sqlite-exec (%db) "\ INSERT INTO Evaluations (specification, revision) VALUES (2, 2);") - (sqlite-exec (%db) "\ + (sqlite-exec (%db) "\ INSERT INTO Evaluations (specification, revision) VALUES (3, 3);") - (sqlite-exec (%db) "SELECT * FROM Evaluations;"))) + (sqlite-exec (%db) "SELECT * FROM Evaluations;"))) - (test-equal "db-add-specification" - example-spec - (begin - (db-add-specification (%db) example-spec) - (car (db-get-specifications (%db))))) + (test-equal "db-add-specification" + example-spec + (begin + (db-add-specification (%db) example-spec) + (car (db-get-specifications (%db))))) - (test-assert "db-add-derivation" - (let* ((job (make-dummy-job)) - (key (assq-ref job #:derivation))) - (db-add-derivation (%db) job) - (%id key))) + (test-assert "db-add-derivation" + (let* ((job (make-dummy-job)) + (key (assq-ref job #:derivation))) + (db-add-derivation (%db) job) + (%id key))) - (test-assert "db-get-derivation" - (db-get-derivation (%db) (%id))) + (test-assert "db-get-derivation" + (db-get-derivation (%db) (%id))) - (test-assert "db-close" - (db-close (%db)))) - (λ () - (delete-file (%package-database))))) + (test-assert "db-close" + (db-close (%db))) -(test-end) + (delete-file database-name)) |