Overview
| Comment: | Added CHECK to list of statuses that deter re-running the test |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a7f137103687f3d53793a292f7fd838f |
| User & Date: | matt on 2011-05-03 08:52:57 |
| Other Links: | manifest | tags |
Context
|
2011-05-03
| ||
| 10:00 | Bumping the megatest version to 1.0.1 check-in: 40c71a6d65 user: mrwellan tags: trunk | |
| 08:52 | Added CHECK to list of statuses that deter re-running the test check-in: a7f1371036 user: matt tags: trunk | |
| 02:30 | Fixed and or implemented; concurrent running tasks limit, derive megatest executable path and add to PATH, add MT_TEST_RUN_DIR check-in: e38c4a9bdd user: matt tags: trunk | |
Changes
Modified runs.scm from [27b4382d3c] to [6b9a177db2].
| ︙ | ︙ | |||
264 265 266 267 268 269 270 271 272 273 274 275 276 277 | (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") (equal? (test:get-status test-status) "PASS") (not (args:get-arg "-force"))) (print "NOTE: Not starting test " new-test-name " as it is state \"COMPLETED\" and status \"PASS\", 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))) | > | 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 | (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") (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 \"PASS\", 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))) |
| ︙ | ︙ |