Overview
| Comment: | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 | v1.6019 |
| Files: | files | file ages | folders |
| SHA1: |
3629e256a6de786b7464639f6f0003c0 |
| User & Date: | mrwellan on 2015-07-08 15:43:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-07-08
| ||
| 17:29 | One more missing scenario for using -testpatt check-in: cacd55a2d6 user: mrwellan tags: v1.60, v1.6019 | |
| 15:43 | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 3629e256a6 user: mrwellan tags: v1.60, v1.6019 | |
| 15:13 | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 010491a514 user: mrwellan tags: v1.60, v1.6019 | |
Changes
Modified megatest.scm from [342093715e] to [f1da4cf806].
| ︙ | ︙ | |||
929 930 931 932 933 934 935 |
;; NOTE: list-runs and list-db-targets operate on local db!!!
;;
(if (or (args:get-arg "-list-runs")
(args:get-arg "-list-db-targets"))
(if (launch:setup-for-run)
(let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t))
(runpatt (args:get-arg "-list-runs"))
| > | | | | 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 |
;; NOTE: list-runs and list-db-targets operate on local db!!!
;;
(if (or (args:get-arg "-list-runs")
(args:get-arg "-list-db-targets"))
(if (launch:setup-for-run)
(let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t))
(runpatt (args:get-arg "-list-runs"))
(testpatt (common:args-get-testpatt))
;; (if (args:get-arg "-testpatt")
;; (args:get-arg "-testpatt")
;; "%"))
(keys (db:get-keys dbstruct))
;; (runsda t (db:get-runs dbstruct runpatt #f #f '()))
(runsdat (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
#f #f '("id" "runname" "state" "status" "owner" "event_time" "comment")))
(runstmp (db:get-rows runsdat))
(header (db:get-header runsdat))
(runs (if (and (not (null? runstmp))
|
| ︙ | ︙ | |||
1143 1144 1145 1146 1147 1148 1149 |
(if (or (args:get-arg "-runall")(args:get-arg "-run"))
(general-run-call
"-runall"
"run all tests"
(lambda (target runname keys keyvals)
(runs:run-tests target
runname
| > | | | 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 |
(if (or (args:get-arg "-runall")(args:get-arg "-run"))
(general-run-call
"-runall"
"run all tests"
(lambda (target runname keys keyvals)
(runs:run-tests target
runname
(common:args-get-testpatt)
;; (or (args:get-arg "-testpatt")
;; "%")
user
args:arg-hash))))
;;======================================================================
;; run one test
;;======================================================================
|
| ︙ | ︙ |