Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-chainedwaiton |
| Files: | files | file ages | folders |
| SHA1: |
162defc51d9763a895c80927da9830e9 |
| User & Date: | bjbarcla on 2017-10-23 17:58:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-10-24
| ||
| 13:36 | corrected testpatt elaboration for chained-waiton situation check-in: 4b2105440b user: bjbarcla tags: v1.64-chainedwaiton | |
|
2017-10-23
| ||
| 17:58 | wip check-in: 162defc51d user: bjbarcla tags: v1.64-chainedwaiton | |
| 17:56 | wip check-in: ab86e1d793 user: bjbarcla tags: v1.64-chainedwaiton | |
Changes
Modified runs.scm from [1ed0bbcd91] to [67fe614590].
| ︙ | ︙ | |||
305 306 307 308 309 310 311 | (debug:print 0 *default-log-port* "Message: " ((condition-property-accessor 'exn 'message) exn)) (debug:print 0 *default-log-port* "ERROR: failed to run post-hook " run-post-hook ", check the log " log-file)) (debug:print-info 0 *default-log-port* "running run-post-hook: \"" run-post-hook "\", log is " actual-logf) (system (conc run-post-hook " >> " actual-logf " 2>&1")) (debug:print-info 0 *default-log-port* "post-hook \"" run-post-hook "\" took " (- (current-seconds) start-time) " seconds to run.")))))) | | | 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 |
(debug:print 0 *default-log-port* "Message: " ((condition-property-accessor 'exn 'message) exn))
(debug:print 0 *default-log-port* "ERROR: failed to run post-hook " run-post-hook ", check the log " log-file))
(debug:print-info 0 *default-log-port* "running run-post-hook: \"" run-post-hook "\", log is " actual-logf)
(system (conc run-post-hook " >> " actual-logf " 2>&1"))
(debug:print-info 0 *default-log-port* "post-hook \"" run-post-hook "\" took " (- (current-seconds) start-time) " seconds to run."))))))
(define (runs:testpatts-mention-waitors-upon? testpatts waitors-upon)
(print "NOT IMPLEMENTED")
(exit 1)
#f)
;; test-names: Comma separated patterns same as test-patts but used in selection
|
| ︙ | ︙ | |||
513 514 515 516 517 518 519 |
(if (not (member hed current-waitors-upon))
(hash-table-set! waitors-upon waiton (cons hed current-waitors-upon)))))
(if (list? waitons) waitons '()))
(for-each
(lambda (waiton)
(if (and waiton (not (member waiton test-names)))
| | | 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 |
(if (not (member hed current-waitors-upon))
(hash-table-set! waitors-upon waiton (cons hed current-waitors-upon)))))
(if (list? waitons) waitons '()))
(for-each
(lambda (waiton)
(if (and waiton (not (member waiton test-names)))
(let* ((waitors-in-testpatt (runs:testpatts-mention-waitors-upon? testpatts (hash-table-ref/default waitors-upon waiton '())))
(waiton-record (hash-table-ref/default test-records waiton #f))
(waiton-tconfig (if waiton-record (vector-ref waiton-record 1) #f))
(waiton-itemized (and waiton-tconfig
(or (hash-table-ref/default waiton-tconfig "items" #f)
(hash-table-ref/default waiton-tconfig "itemstable" #f))))
(itemmaps (tests:get-itemmaps config)) ;; (configf:lookup config "requirements" "itemmap"))
(new-test-patts (tests:extend-test-patts test-patts hed waiton itemmaps))) ;; BB: items expanded here - chained-waiton goes awry by now.
|
| ︙ | ︙ |