Overview
| Comment: | One more missing scenario for using -testpatt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 | v1.6019 |
| Files: | files | file ages | folders |
| SHA1: |
cacd55a2d6d7f809559a2e2a0768c6bc |
| User & Date: | mrwellan on 2015-07-08 17:29:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-07-08
| ||
| 17:44 | One more missing scenario for using -testpatt check-in: b69f26a9c2 user: mrwellan tags: v1.60, v1.6019 | |
| 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 | |
Changes
Modified common.scm from [e4549081f0] to [6d03a59ce1].
| ︙ | ︙ | |||
401 402 403 404 405 406 407 | (or (args:get-arg "-state")(args:get-arg ":state"))) (define (common:args-get-status) (or (args:get-arg "-status")(args:get-arg ":status"))) (define (common:args-get-testpatt) (let* ((args-testpatt (or (args:get-arg "-testpatt") | | > | 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 |
(or (args:get-arg "-state")(args:get-arg ":state")))
(define (common:args-get-status)
(or (args:get-arg "-status")(args:get-arg ":status")))
(define (common:args-get-testpatt)
(let* ((args-testpatt (or (args:get-arg "-testpatt")
(args:get-arg "-runtests")
"%"))
(testpatt (or (and (equal? args-testpatt "%")
(getenv "TESTPATT"))
args-testpatt)))
testpatt))
(define (common:args-get-runname)
(or (args:get-arg "-runname")
|
| ︙ | ︙ |
Modified megatest.scm from [f1da4cf806] to [f455f4760e].
| ︙ | ︙ | |||
432 433 434 435 436 437 438 439 440 441 442 443 444 445 |
(set! open-run-close open-run-close-no-exception-handling))
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
(hash-table-set! args:arg-hash "-testpatt" newval)
(hash-table-delete! args:arg-hash "-itempatt")))
(on-exit std-exit-procedure)
;;======================================================================
;; Misc general calls
;;======================================================================
| > > | 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 |
(set! open-run-close open-run-close-no-exception-handling))
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
(hash-table-set! args:arg-hash "-testpatt" newval)
(hash-table-delete! args:arg-hash "-itempatt")))
(on-exit std-exit-procedure)
;;======================================================================
;; Misc general calls
;;======================================================================
|
| ︙ | ︙ | |||
1185 1186 1187 1188 1189 1190 1191 |
;; user
;; target
;; runname
;; (args:get-arg "-runtests")
;; #f))))
(runs:run-tests target
runname
| | | 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 |
;; user
;; target
;; runname
;; (args:get-arg "-runtests")
;; #f))))
(runs:run-tests target
runname
(common:args-get-testpatt) ;; (args:get-arg "-runtests")
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
|
| ︙ | ︙ |