247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
(define (submegatest-panel dbstruct keydat testdat runname testconfig)
(let* ((test-run-dir (db:test-get-rundir testdat))
(subrun-tconf-file (conc test-run-dir "/testconfig.subrun"))
(subrun-tconf (if (file-exists? subrun-tconf-file)
(configf:read-alist subrun-tconf-file)
(make-hash-table)))
(subarea (or (configf:lookup testconfig "setup" "submegatest")
(configf:lookup subrun-tconf "subrun" "runarea")))
(area-exists (and subarea (common:file-exists? subarea))))
;; (debug:print-info 0 *default-log-port* "Megatest subarea=" subarea ", area-exists=" area-exists)
(if subarea
(iup:frame
#:title "Megatest Run Info" ; #:expand "YES"
(iup:button
"Launch Dashboard"
|
|
|
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
(define (submegatest-panel dbstruct keydat testdat runname testconfig)
(let* ((test-run-dir (db:test-get-rundir testdat))
(subrun-tconf-file (conc test-run-dir "/testconfig.subrun"))
(subrun-tconf (if (file-exists? subrun-tconf-file)
(configf:read-alist subrun-tconf-file)
(make-hash-table)))
(subarea (or (configf:lookup testconfig "setup" "submegatest")
(configf:lookup subrun-tconf "subrun" "run-area")))
(area-exists (and subarea (common:file-exists? subarea))))
;; (debug:print-info 0 *default-log-port* "Megatest subarea=" subarea ", area-exists=" area-exists)
(if subarea
(iup:frame
#:title "Megatest Run Info" ; #:expand "YES"
(iup:button
"Launch Dashboard"
|