@@ -33,10 +33,12 @@ (declare (uses rmtmod)) (declare (uses ezsteps)) ;; (declare (uses sdb)) ;; (declare (uses filedb)) (declare (uses subrun)) +(declare (uses testsmod)) +(declare (uses subrunmod)) (use format fmt) (require-library iup) (import (prefix iup iup:)) @@ -50,10 +52,12 @@ (include "run_records.scm") (import commonmod configfmod rmtmod + testsmod + subrunmod debugprint) (define (dboard:launch-testpanel run-id test-id) (let* ((dboardexe (common:find-local-megatest "dashboard")) (cmd (conc dboardexe