Overview
| Comment: | Partial fix to bug in launching and running updates |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8f7db818413a14d77b8d5d204bcb80f0 |
| User & Date: | matt on 2011-05-05 23:24:52 |
| Other Links: | manifest | tags |
Context
|
2011-05-06
| ||
| 10:20 | Missing fixes redone. runs:test-get-info -> db:test-get-info check-in: 772558f8b5 user: mrwellan tags: trunk | |
|
2011-05-05
| ||
| 23:24 | Partial fix to bug in launching and running updates check-in: 8f7db81841 user: matt tags: trunk | |
| 22:50 | Typo in dashboard check-in: 874a4143eb user: matt tags: trunk | |
Changes
Modified runs.scm from [0e915f1707] to [db89a09415].
| ︙ | ︙ | |||
264 265 266 267 268 269 270 | 'NOT_STARTED (if test-status (string->symbol (test:get-state test-status)) 'failed-to-insert)) ((failed-to-insert) (print "ERROR: Failed to insert the record into the db")) ((NOT_STARTED COMPLETED) ;; (cadr status is the row id for the run record) | | | | | 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 | 'NOT_STARTED (if test-status (string->symbol (test:get-state test-status)) 'failed-to-insert)) ((failed-to-insert) (print "ERROR: Failed to insert the record into the db")) ((NOT_STARTED COMPLETED) ;; (cadr status is the row id for the run record) (if (and (equal? (test:get-state test-status) "COMPLETED") (or (equal? (test:get-status test-status) "PASS") (equal? (test:get-status test-status) "CHECK")) (not (args:get-arg "-force"))) (print "NOTE: Not starting test " new-test-name " as it is state \"COMPLETED\" and status \"" (test:get-status test-status) "\", use -force to override") (let* ((get-prereqs-cmd (lambda () (db-get-prereqs-not-met db run-id waiton))) ;; check before running .... (launch-cmd (lambda () (launch-test db run-id test-conf keyvallst test-name test-path itemdat))) (testrundat (list get-prereqs-cmd launch-cmd))) |
| ︙ | ︙ |