Differences From Artifact [5ef9994785]:
- File dashboard-tests.scm — part of check-in [c32787f5bc] at 2013-08-01 00:32:17 on branch v1.55 — Added ability to override xterm and html viewer. Added sourcing of megatest.{sh,csh} on start of xterm. Everything but actual running of steps implemented for run/re-run of steps (user: mrwellan, size: 24974) [annotate] [blame] [check-ins using]
To Artifact [1b39d2bf88]:
- File dashboard-tests.scm — part of check-in [d13d206afc] at 2013-08-01 00:32:35 on branch v1.55 — Added ability to override xterm and html viewer. Added sourcing of megatest.{sh,csh} on start of xterm. Everything but actual running of steps implemented for run/re-run of steps (user: mrwellan, size: 25012) [annotate] [blame] [check-ins using]
| ︙ | |||
253 254 255 256 257 258 259 260 261 262 263 264 265 266 | 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 | + + |
btns))))))
(define (dashboard-tests:run-html-viewer lfilename)
(let ((htmlviewercmd (configf:lookup *configdat* "setup" "htmlviewercmd")))
(if htmlviewercmd
(system (conc "(" htmlviewercmd " " lfilename " ) &"))
(iup:send-url lfilename))))
(define (dashboard-tests:run-a-step
(define (dashboard-tests:step-run-control test-id stepname teststeps)
(iup:dialog ;; #:close_cb (lambda (a)(exit)) ; #:expand "YES"
#:title stepname
(iup:vbox ; #:expand "YES"
(iup:label (conc "Step: " stepname "\nNB// These buttons only run the test step\nfor the purpose of debugging.\nNot all database updates are done."))
(iup:button "Re-run"
|
| ︙ |