43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
(declare (uses subrun))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(define (dboard:launch-testpanel run-id test-id)
(let* (;; (cfg-sh (conc *common:this-exe-dir* "/cfg.sh"))
;; (cmd (conc
;; (if (common:file-exists? cfg-sh)
;; (conc "source "cfg-sh" && ")
;; "")
;; *common:this-exe-fullpath*
;; " -test " run-id "," test-id
;; " &"))
(cmd (conc *common:this-exe-dir*"/../dashboard "
"-test " run-id "," test-id
" &")))
(system cmd)))
(define (dashboard:run-menu-items run-id test-id target runname test-name testpatt item-test-path test-info)
(list
(iup:menu-item
|
|
|
<
<
<
<
<
<
<
|
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
(declare (uses subrun))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(define (dboard:launch-testpanel run-id test-id)
(let* ((dboardexe (common:find-local-megatest "dashboard"))
(cmd (conc dboardexe
" -test " run-id "," test-id
" &")))
(system cmd)))
(define (dashboard:run-menu-items run-id test-id target runname test-name testpatt item-test-path test-info)
(list
(iup:menu-item
|