Index: dashboard-tests.scm ================================================================== --- dashboard-tests.scm +++ dashboard-tests.scm @@ -342,23 +342,23 @@ (let ((cmd (iup:attribute command-text-box "VALUE"))) (system (conc cmd " &")))))) (run-test (lambda (x) (iup:attribute-set! command-text-box "VALUE" - (conc "megatest -runtests " testname " -target " keystring " :runname " runname + (conc "xterm -e \"megatest -runtests " testname " -target " keystring " :runname " runname " -itempatt " (if (equal? item-path "") "%" item-path) - "" )))) + "\"")))) (remove-test (lambda (x) (iup:attribute-set! command-text-box "VALUE" - (conc "megatest -remove-runs -target " keystring " :runname " runname " -testpatt " testname " -itempatt " + (conc "xterm -e \"megatest -remove-runs -target " keystring " :runname " runname " -testpatt " testname " -itempatt " (if (equal? item-path "") "%" item-path) - " -v "))))) + " -v\""))))) (cond ((not testdat)(begin (print "ERROR: bad test info for " test-id)(exit 1))) ((not rundat)(begin (print "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1))) (else ;; (test-set-status! db run-id test-name state status itemdat) Index: tests/Makefile ================================================================== --- tests/Makefile +++ tests/Makefile @@ -3,11 +3,11 @@ BINPATH=$(shell realpath ../bin) MEGATEST=$(BINPATH)/megatest PATH := $(BINPATH):$(PATH) RUNNAME := $(shell date +w%V.%u.%H) IPADDR := "-" -# Set SERVER to "-server $(IPADDR)" +# Set SERVER to "-server -" SERVER := "" runall : test1 test2 test1 : cleanprep