diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-26 12:08:46 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-27 14:17:09 +0200 |
| commit | 815e8060affe953e8fcc64f644864e9f0ebd2b21 (patch) | |
| tree | 3b353ae34f378585572bbd12312d3d0016a14343 | |
| parent | f97b24c29edcea53cd9d3a349711d50e81339034 (diff) | |
| download | cuirass-815e8060affe953e8fcc64f644864e9f0ebd2b21.tar cuirass-815e8060affe953e8fcc64f644864e9f0ebd2b21.tar.gz | |
database: Remove "db-add-build-log" test.
* tests/database/scm ("db-add-build-log"): Delete.
| -rw-r--r-- | tests/database.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/tests/database.scm b/tests/database.scm index 39f9fcc..29a1e50 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -83,15 +83,6 @@ INSERT INTO Evaluations (derivation, job_name, specification)\ (test-assert "db-get-evaluation" (db-get-evaluation (%db) (%id))) - (test-expect-fail "db-add-build-log") - ;; XXX: 'Builds' database table is not implemented yet. - (test-equal "db-add-build-log" - "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))) - (test-assert "db-close" (db-close (%db)))) (λ () |