Overview
| Comment: | Fixed db:test-get-paths |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | network-only-transport |
| Files: | files | file ages | folders |
| SHA1: |
b31037763388b00c592e827c5168ce0b |
| User & Date: | mrwellan on 2013-03-06 15:26:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-03-06
| ||
| 15:38 | Merged network-only-transport and bumped version to v1.53 check-in: 962322e080 user: mrwellan tags: trunk, v1.53 | |
| 15:26 | Fixed db:test-get-paths Closed-Leaf check-in: b310377633 user: mrwellan tags: network-only-transport | |
|
2013-03-05
| ||
| 23:05 | Fixed get-test-paths, moved local call back to local check-in: 35f13f70be user: matt tags: network-only-transport | |
Changes
Modified db.scm from [e40a1ad843] to [5efd80d4e8].
| ︙ | ︙ | |||
966 967 968 969 970 971 972 | (if (string? logf)(cdb:client-call serverdat 'test-set-log #f *default-numtries* logf test-id))) ;;====================================================================== ;; Misc. test related queries ;;====================================================================== (define (db:test-get-paths-matching db keynames target fnamepatt #!key (res '())) | | | | | 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 |
(if (string? logf)(cdb:client-call serverdat 'test-set-log #f *default-numtries* logf test-id)))
;;======================================================================
;; Misc. test related queries
;;======================================================================
(define (db:test-get-paths-matching db keynames target fnamepatt #!key (res '()))
(let ((paths-from-db (cdb:remote-run db:test-get-paths-matching-keynames-target db keynames target res)))
(if fnamepatt
(apply append
(map (lambda (p)
(glob (conc p "/" fnamepatt)))
paths-from-db))
paths-from-db)))
(define (db:test-get-paths-matching-keynames-target db keynames target res)
(let* ((testpatt (if (args:get-arg "-testpatt")(args:get-arg "-testpatt") "%"))
(statepatt (if (args:get-arg ":state") (args:get-arg ":state") "%"))
(statuspatt (if (args:get-arg ":status") (args:get-arg ":status") "%"))
(runname (if (args:get-arg ":runname") (args:get-arg ":runname") "%"))
(keystr (string-intersperse
|
| ︙ | ︙ |
Modified tests/fullrun/config/mt_include_1.config from [94520c6b9c] to [d76d84f7a5].
1 2 | [setup] # exectutable /path/to/megatest | | | 1 2 3 4 5 6 7 8 9 10 |
[setup]
# exectutable /path/to/megatest
max_concurrent_jobs 60
linktree #{getenv MT_RUN_AREA_HOME}/tmp/mt_links
[jobtools]
useshell yes
# ## launcher launches jobs, the job is managed on the target host
## by megatest, comment out launcher to run local
# workhosts localhost hermes
|
| ︙ | ︙ |