Overview
| SHA1 Hash: | 8f7db818413a14d77b8d5d204bcb80f0a3b5426d |
|---|---|
| Date: | 2011-05-05 23:24:52 |
| User: | matt |
| Comment: | Partial fix to bug in launching and running updates |
| Timelines: | family | ancestors | descendants | both | trunk |
| Downloads: | Tarball | ZIP archive |
| Other Links: | files | file ages | manifest |
Tags And Properties
- branch=trunk inherited from [d673a9367e]
- sym-trunk inherited from [d673a9367e]
Changes
Modified runs.scm from [0e915f17078fe2fa] to [db89a09415a82022].
264 'NOT_STARTED 264 'NOT_STARTED 265 (if test-status 265 (if test-status 266 (string->symbol (test:get-state test-status)) 266 (string->symbol (test:get-state test-status)) 267 'failed-to-insert)) 267 'failed-to-insert)) 268 ((failed-to-insert) 268 ((failed-to-insert) 269 (print "ERROR: Failed to insert the record into the db")) 269 (print "ERROR: Failed to insert the record into the db")) 270 ((NOT_STARTED COMPLETED) ;; (cadr status is the row id for 270 ((NOT_STARTED COMPLETED) ;; (cadr status is the row id for 271 (if (and (equal? (test:get-state test-status) "COMPLETED" | 271 (if (and (equal? (test:get-state test-status) "COMPLETED 272 (equal? (test:get-status test-status) "PASS") | 272 (or (equal? (test:get-status test-status) "PASS" 273 (equal? (test:get-status test-status) "CHECK") | 273 (equal? (test:get-status test-status) "CHECK 274 (not (args:get-arg "-force"))) 274 (not (args:get-arg "-force"))) 275 (print "NOTE: Not starting test " new-test-name " as 275 (print "NOTE: Not starting test " new-test-name " as 276 (let* ((get-prereqs-cmd (lambda () 276 (let* ((get-prereqs-cmd (lambda () 277 (db-get-prereqs-not-met db 277 (db-get-prereqs-not-met db 278 (launch-cmd (lambda () 278 (launch-cmd (lambda () 279 (launch-test db run-id test 279 (launch-test db run-id test 280 (testrundat (list get-prereqs-cmd launch- 280 (testrundat (list get-prereqs-cmd launch-