Overview
| Comment: | Fixes for genexample ==6.6/1.1/1201/WARN/mars== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
0c2987faad4d7ae538a4b5e6a16000ed |
| User & Date: | jmoon18 on 2020-08-24 17:12:57 |
| Original Comment: | Fixes for genexample |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-08-25
| ||
| 15:08 | Added get-intercept and get-delay functions for load monitoring ==/FAIL/orion,zeus/== check-in: 85b652d5a1 user: jmoon18 tags: v1.65 | |
|
2020-08-24
| ||
| 17:12 | Fixes for genexample ==6.6/1.1/1201/WARN/mars== check-in: 0c2987faad user: jmoon18 tags: v1.65 | |
|
2020-08-21
| ||
| 10:42 | Removed row-indices print that was spamming console while dashboard was in summary mode ==/8.99/1.6/WARN/1203/orion/== check-in: 568abab962 user: jmoon18 tags: v1.65 | |
Changes
Modified genexample.scm from [4609ee6b65] to [8d68fc70de].
| ︙ | ︙ | |||
468 469 470 471 472 473 474 | (lambda () ;; first the ezsteps (print "[ezsteps]") (for-each (lambda (teststep) (let* ((step-name (vector-ref teststep 0))) (print (obfuscate step-name) | | | | | 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 |
(lambda ()
;; first the ezsteps
(print "[ezsteps]")
(for-each
(lambda (teststep)
(let* ((step-name (vector-ref teststep 0)))
(print (obfuscate step-name)
" sleep $(refdb lookup #{getenv MT_RUN_AREA_HOME}/stepsinfo "
(obfuscate testname) " $MT_ITEMPATH "
(obfuscate step-name) ")")))
test-steps)
;; now the requirements section
(if testconfig
(begin
(print "\n[requirements]")
(for-each
(lambda (entry)
(let* ((key (car entry))
(val (cadr entry)))
(case (string->symbol key)
((waiton) (print "waiton " (obfuscate val)))
(else (print key " " val)))))
(configf:get-section testconfig "requirements")))
#;(print "WARNING: No testconfig data for " testname ", " item-path))
(print "\n[items]")
(print "THE_ITEM [system refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo " (obfuscate testname)" | awk '{print $1}']")
)))
;; fill the stepsrdb
(for-each
(lambda (teststep)
(let* ((step-name (vector-ref teststep 0))
(step-duration (hrs-min-sec->seconds (vector-ref teststep 4))))
|
| ︙ | ︙ |