Overview
| Comment: | Added REMOTEHOSTSTART and LAUNCHED to SKIP critera as analogs to RUNNING |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
70f2768e25f7173a53f0e3191c0b89a5 |
| User & Date: | mrwellan on 2013-08-19 14:20:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-08-19
| ||
| 15:42 | Added collapse/expand for itemized tests and completed alternative sort methods check-in: 48f16932ad user: mrwellan tags: v1.55 | |
| 14:20 | Added REMOTEHOSTSTART and LAUNCHED to SKIP critera as analogs to RUNNING check-in: 70f2768e25 user: mrwellan tags: v1.55 | |
| 09:47 | Merged in missing fix check-in: be405e8e2e user: mrwellan tags: v1.55 | |
Changes
Modified runs.scm from [21dd6a2f0c] to [085ac5aef0].
| ︙ | ︙ | |||
875 876 877 878 879 880 881 | (let ((skip-test #f) (skip-check (configf:get-section test-conf "skip"))) (cond ;; Have to check for skip conditions. This one skips if there are same-named tests ;; currently running ((and skip-check (configf:lookup test-conf "skip" "prevrunning")) | | | 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 |
(let ((skip-test #f)
(skip-check (configf:get-section test-conf "skip")))
(cond
;; Have to check for skip conditions. This one skips if there are same-named tests
;; currently running
((and skip-check
(configf:lookup test-conf "skip" "prevrunning"))
(let ((running-tests (cdb:remote-run db:get-tests-for-runs-mindata #f #f full-test-name '("RUNNING" "REMOTEHOSTSTART" "LAUNCHED") '() #f)))
(if (not (null? running-tests)) ;; have to skip
(set! skip-test "Skipping due to previous tests running"))))
((and skip-check
(configf:lookup test-conf "skip" "fileexists"))
(if (file-exists? (configf:lookup test-conf "skip" "fileexists"))
(set! skip-test (conc "Skipping due to existance of file " (configf:lookup test-conf "skip" "fileexists"))))))
(if skip-test
|
| ︙ | ︙ |