Overview
Comment: | Added intra-test item waitons. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-intra-waiton |
Files: | files | file ages | folders |
SHA1: |
50ea23ff376618ba330117cf27c0d105 |
User & Date: | matt on 2019-01-27 00:15:37 |
Other Links: | branch diff | manifest | tags |
Context
2019-01-27
| ||
13:02 | Some fixes for intra item waiton check-in: 542b913375 user: matt tags: v1.65-intra-waiton | |
00:15 | Added intra-test item waitons. check-in: 50ea23ff37 user: matt tags: v1.65-intra-waiton | |
2019-01-25
| ||
13:28 | changed prints to debug:print-info check-in: d26d705d6d user: pjhatwal tags: v1.65 | |
Changes
Modified runs.scm from [18e897116f] to [2d1473d94b].
| 1 2 3 4 5 6 7 | - |
|
︙ | |||
528 529 530 531 532 533 534 535 536 537 538 539 540 541 | 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 | + + + | (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) ;; (let*-values (((waitons waitors config) (tests:get-waitons hed all-tests-registry)) ;; NOTE: Have the config - can extract [waitons] section ((hed-mode) (let ((m (config-lookup config "requirements" "mode"))) (if m (map string->symbol (string-split m)) '(normal)))) ((hed-itemized-waiton) ;; are items in hed waiting on items of waiton? (not (null? (lset-intersection eq? hed-mode '(itemmatch itemwait))))) ) (debug:print-info 8 *default-log-port* "waitons: " waitons) |
︙ | |||
1394 1395 1396 1397 1398 1399 1400 | 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 | - + + + + + + + + + | (let* ((test-record (hash-table-ref test-records hed)) (test-name (tests:testqueue-get-testname test-record)) (tconfig (tests:testqueue-get-testconfig test-record)) (jobgroup (config-lookup tconfig "test_meta" "jobgroup")) (testmode (let ((m (config-lookup tconfig "requirements" "mode"))) (if m (map string->symbol (string-split m)) '(normal)))) (itemmaps (tests:get-itemmaps tconfig)) ;; (configf:lookup tconfig "requirements" "itemmap")) |
︙ |