Overview
| Comment: | Added requirements section support to extract skeleton. Includes runner throttling change (get vars from configs). ==/7.2/0.9/WARN/1201/mars/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
3213d340acc495a7a12402a9c35e53ae |
| User & Date: | mrwellan on 2020-08-20 20:29:55 |
| Original Comment: | Added requirements section support to extract skeleton |
| Other Links: | branch diff | manifest | tags |
About
Includes a change for runners throttling.
Context
|
2020-08-21
| ||
| 09:49 | Added obfuscation to extract skeleton ==/9.78/1.5/WARN/1202/orion/== check-in: c9ef4a34bf user: mrwellan tags: v1.65 | |
|
2020-08-20
| ||
| 20:29 | Added requirements section support to extract skeleton. Includes runner throttling change (get vars from configs). ==/7.2/0.9/WARN/1201/mars/== check-in: 3213d340ac user: mrwellan tags: v1.65 | |
| 16:42 | Phase 2 of extract skeleton done. Seems to mostly work. ==/8.2/0.98/WARN/1201/mars/== check-in: 31edce5e9c user: mrwellan tags: v1.65 | |
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:
|
| ︙ | ︙ |