658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
|
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
|
-
+
+
+
|
"%"
item-path))
";megatest -target " keystring " -runname " runname
" -runtests " (conc testname "/" (if (equal? item-path "")
"%"
item-path))
)))
(system (conc cmd " &")))))
(system (conc (dtests:get-pre-command)
cmd
(dtests:get-post-command))))))
(remove-test (lambda (x)
(iup:attribute-set!
command-text-box "VALUE"
(conc "megatest -remove-runs -target " keystring " -runname " runname
" -testpatt " (conc testname "/" (if (equal? item-path "")
"%"
item-path))
|