Overview
| Comment: | 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 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
d13d206afc3ff76d5a696a52244652ae |
| User & Date: | mrwellan on 2013-08-01 00:32:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-08-01
| ||
| 08:24 | Added simple re-run for steps check-in: 699be61132 user: mrwellan tags: v1.55, was-v1.5511 | |
| 00:32 | 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 check-in: d13d206afc user: mrwellan tags: v1.55 | |
| 00:32 | 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 check-in: c32787f5bc user: mrwellan tags: v1.55 | |
Changes
Modified dashboard-tests.scm from [5ef9994785] to [1b39d2bf88].
| ︙ | ︙ | |||
253 254 255 256 257 258 259 260 261 262 263 264 265 266 |
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: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"
| > > | 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"
|
| ︙ | ︙ |