Overview
| Comment: | Changed KILLED status from FAIL to KILLED and treat INCOMPLETE as if it was COMPLETED |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
a35313652ae045d8e48c498d8105e357 |
| User & Date: | mrwellan on 2014-07-22 10:11:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-22
| ||
| 12:06 | Fixed dashboard crash on sort choices check-in: 4ba94f5735 user: mrwellan tags: v1.55, v1.5524 | |
| 10:11 | Changed KILLED status from FAIL to KILLED and treat INCOMPLETE as if it was COMPLETED check-in: a35313652a user: mrwellan tags: v1.55 | |
| 00:10 | added re-try exception handling to lock-queue check-in: f824fb4d79 user: matt tags: v1.55 | |
Changes
Modified launch.scm from [850eeae402] to [69229ba1dd].
| ︙ | ︙ | |||
359 360 361 362 363 364 365 | (if p-id (begin (debug:print 0 "Killing " (cadr parts) "; kill -9 " p-id) ;; (process-signal pid signal/kill))))) ;; (system (conc "kill -9 " p-id)))))) (car processes))) (system (conc "kill -9 -" pid)) | | | | 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 | (if p-id (begin (debug:print 0 "Killing " (cadr parts) "; kill -9 " p-id) ;; (process-signal pid signal/kill))))) ;; (system (conc "kill -9 " p-id)))))) (car processes))) (system (conc "kill -9 -" pid)) (tests:test-set-status! test-id "KILLED" "KILLED" (args:get-arg "-m") #f))) (begin (debug:print 0 "WARNING: Request received to kill job but problem with process, attempting to kill manager process") (tests:test-set-status! test-id "KILLED" "KILLED" (args:get-arg "-m") #f) (sqlite3:finalize! tdb) (exit 1) ;; IS THIS NECESSARY OR WISE??? ))) (set! kill-tries (+ 1 kill-tries)) (mutex-unlock! m))) ;; (sqlite3:finalize! db) (if keep-going |
| ︙ | ︙ |
Modified runs.scm from [9ca0095dee] to [e63d1d9f28].
| ︙ | ︙ | |||
1177 1178 1179 1180 1181 1182 1183 |
(case (if force ;; (args:get-arg "-force")
'NOT_STARTED
(if testdat
(string->symbol (test:get-state testdat))
'failed-to-insert))
((failed-to-insert)
(debug:print 0 "ERROR: Failed to insert the record into the db"))
| | | | 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 |
(case (if force ;; (args:get-arg "-force")
'NOT_STARTED
(if testdat
(string->symbol (test:get-state testdat))
'failed-to-insert))
((failed-to-insert)
(debug:print 0 "ERROR: Failed to insert the record into the db"))
((NOT_STARTED COMPLETED DELETED INCOMPLETE)
(let ((runflag #f))
(cond
;; -force, run no matter what
(force (set! runflag #t))
;; NOT_STARTED, run no matter what
((member (test:get-state testdat) '("DELETED" "NOT_STARTED" "INCOMPLETE"))(set! runflag #t))
;; not -rerun and PASS, WARN or CHECK, do no run
((and (or (not rerun)
keepgoing)
;; Require to force re-run for COMPLETED or *anything* + PASS,WARN or CHECK
(or (member (test:get-status testdat) '("PASS" "WARN" "CHECK" "SKIP" "WAIVED"))
(member (test:get-state testdat) '("COMPLETED"))))
(debug:print-info 2 "running test " test-name "/" item-path " suppressed as it is " (test:get-state testdat) " and " (test:get-status testdat))
|
| ︙ | ︙ |
tests/installall/config/megatest.config.dat became a symlink with target [736a5da885].
tests/installall/config/runconfigs.config.dat became a symlink with target [3b8f260acb].