69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
debugprint
configfmod
testsmod
dcommon
)
;; (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)))
|
|
|
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
debugprint
configfmod
testsmod
dcommon
)
;; (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)))
|