diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-02-08 11:59:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-02-08 14:19:19 +0100 |
| commit | 2887b1dfa914f804607535d80f57bca34d4888fa (patch) | |
| tree | 7d02ea6be2edb8a1475380f04b647e51eeb77de6 /tests/database.scm | |
| parent | 0ff3c232744582d6a5da81e38f6ed7a9b352e956 (diff) | |
| download | cuirass-2887b1dfa914f804607535d80f57bca34d4888fa.tar cuirass-2887b1dfa914f804607535d80f57bca34d4888fa.tar.gz | |
database: 'db-update-build-status!' keeps stoptime unchanged when nothing new.
* src/cuirass/database.scm (db-update-build-status!): And "AND status != ?"
in SQL queries.
* tests/database.scm ("database")["db-update-build-status!"]: Add call
to 'db-update-build-status!'.
Diffstat (limited to 'tests/database.scm')
| -rw-r--r-- | tests/database.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/database.scm b/tests/database.scm index 65a10a8..2382292 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -168,6 +168,11 @@ INSERT INTO Evaluations (specification, revision) VALUES (3, 3);") (let ((status1 (get-status))) (db-update-build-status! db "/foo.drv" (build-status succeeded) #:log-file "/foo.drv.log") + + ;; Second call shouldn't make any difference. + (db-update-build-status! db "/foo.drv" (build-status succeeded) + #:log-file "/foo.drv.log") + (let ((status2 (get-status)) (start (get-status #:starttime)) (end (get-status #:stoptime)) |