Overview
| Comment: | 3213d340ac |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70-fresh-genskel |
| Files: | files | file ages | folders |
| SHA1: |
df4c6a93537249cb786ee8be4d7800b0 |
| User & Date: | matt on 2020-10-04 14:36:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-04
| ||
| 14:40 | 46d8ccee29 Leaf check-in: 2c67c39d14 user: matt tags: v1.70-fresh-genskel (unpublished) | |
| 14:36 | 3213d340ac check-in: df4c6a9353 user: matt tags: v1.70-fresh-genskel (unpublished) | |
| 14:23 | 31edce5e9c check-in: 8f675c01d9 user: matt tags: v1.70-fresh-genskel (unpublished) | |
Changes
Modified genexample.scm from [22cf67e2ff] to [ab7e6fd951].
| ︙ | ︙ | |||
450 451 452 453 454 455 456 |
(for-each
(lambda (teststep)
(let* ((step-name (vector-ref teststep 0)))
(print step-name " sleep [refdb lookup #{getenv MT_RUN_AREA_HOME}/" stepsrdb " " testname " $MT_ITEM_PATH " step-name "]")))
test-steps)
;; now the requirements section
| > > | | | | | > | | 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 |
(for-each
(lambda (teststep)
(let* ((step-name (vector-ref teststep 0)))
(print step-name " sleep [refdb lookup #{getenv MT_RUN_AREA_HOME}/" stepsrdb " " testname " $MT_ITEM_PATH " step-name "]")))
test-steps)
;; now the requirements section
(if testconfig
(begin
(print "\n[requirements]")
(for-each
(lambda (entry)
(print (car entry) " " (cadr entry))) ;; it is not an alist
(configf:get-section testconfig "requirements")))
(print "WARNING: No testconfig data for " testname ", " item-path))
(print "[items]")
(print "THE_ITEM [refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo #{getenv MT_TESTNAME}| awk '{print $1}'")
)))
;; fill the stepsrdb
(for-each
(lambda (teststep)
|
| ︙ | ︙ |
Modified runs.scm from [43134da369] to [ace8916649].
| ︙ | ︙ | |||
100 101 102 103 104 105 106 | (lambda ()(print (current-seconds)))) (close-output-port ouf)))) (runs:dat-last-fuel-check-set! rdat (current-seconds)))))) ;; Fourth try, do accounting through time ;; (define (runs:parallel-runners-mgmt rdat) | | | | 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 |
(lambda ()(print (current-seconds))))
(close-output-port ouf))))
(runs:dat-last-fuel-check-set! rdat (current-seconds))))))
;; Fourth try, do accounting through time
;;
(define (runs:parallel-runners-mgmt rdat)
(let ((time-to-check (configf:lookup-number *configdat* "runners" "time-to-check" default: 10)) ;; 28
(time-to-wait (configf:lookup-number *configdat* "runners" "time-to-wait" default: 30))
(now-time (current-seconds)))
(if (> (- now-time (runs:dat-last-fuel-check rdat)) time-to-check) ;; time to check
(runs:wait-on-softlock rdat "runners"))))
;; To test parallel-runners management start a repl:
;; megatest -repl
;; then run:
|
| ︙ | ︙ |