577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
|
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
|
-
+
+
+
|
"%"
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))
|