Overview
Comment: | Added global-waiton support. Add !GLOBAL_WAITONS test1 test2 ... to your target or default in runconfigs.config. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
7f7aaa214fa425130dea196e9b04030f |
User & Date: | mrwellan on 2022-05-13 09:56:51 |
Other Links: | branch diff | manifest | tags |
Context
2022-05-13
| ||
12:16 | Fixed few things with the hasty implementation of global waitons. check-in: 0c7e3bc287 user: mrwellan tags: v1.65 | |
09:56 | Added global-waiton support. Add !GLOBAL_WAITONS test1 test2 ... to your target or default in runconfigs.config. check-in: 7f7aaa214f user: mrwellan tags: v1.65 | |
2022-03-25
| ||
17:33 | changed megatest version to 1.6592 check-in: 1e0521fd4f user: mmgraham tags: v1.65, v1.6592 | |
Changes
Modified runs.scm from [fc6eba7158] to [3e09045f9c].
︙ | |||
684 685 686 687 688 689 690 | 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 | - + | (if (not (null? test-names)) ;; BEGIN test-names loop (let loop ((hed (car test-names)) ;; NOTE: This is the main loop that iterates over the test-names (tal (cdr test-names))) ;; 'return-procs tells the config reader to prep running system but return a proc (debug:print-info 4 *default-log-port* "\n\ntestpatt elaboration loop => hed="hed " tal="tal" test-patts="test-patts" test-names="test-names) (change-directory *toppath*) ;; PLEASE OPTIMIZE ME!!! I think this should be a no-op but there are several places where change-directories could be happening. (setenv "MT_TEST_NAME" hed) ;; |
︙ |
Modified tests.scm from [58cccc5f49] to [bc59e95ad2].
︙ | |||
134 135 136 137 138 139 140 141 142 143 144 145 146 147 | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | + + + + + + | ;; (debug:print 0 *default-log-port* "res=" res) (cond ((string? res) res) ;;; FIX THE ROOT CAUSE HERE .... ((null? res) #f) ((string? (cdr res)) (cdr res)) ;; it is a pair ((string? (cadr res))(cadr res)) ;; it is a list (else cadr res)))))) (define (tests:get-global-waitons rconfig) (let* ((global-waitons (runconfigs-get config "!GLOBAL_WAITONS"))) (if (string? global-waitons) (string-split global-waitons) '()))) ;; return items given config ;; (define (tests:get-items tconfig) (let ((items (hash-table-ref/default tconfig "items" #f)) ;; items 4 (itemstable (hash-table-ref/default tconfig "itemstable" #f))) ;; if either items or items table is a proc return it so test running |
︙ | |||
166 167 168 169 170 171 172 | 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 | - + - + - + + + + | " items: " items " itemstable: " itemstable) (items:get-items-from-config tconfig)) (else #f)))) ;; not iterated ;; returns waitons waitors tconfigdat ;; |
︙ |