316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
(run-test (lambda (x)
(iup:attribute-set!
command-text-box "VALUE"
(conc "megatest -runtests " testname " " keystring " :runname " runname
" -itempatt " (if (equal? item-path "")
"%"
item-path)
" > run.log" ))))
(remove-test (lambda (x)
(iup:attribute-set!
command-text-box "VALUE"
(conc "megatest -remove-runs " keystring " :runname " runname " -testpatt " testname " -itempatt "
(if (equal? item-path "")
"%"
item-path)
|
|
|
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
(run-test (lambda (x)
(iup:attribute-set!
command-text-box "VALUE"
(conc "megatest -runtests " testname " " keystring " :runname " runname
" -itempatt " (if (equal? item-path "")
"%"
item-path)
" -keepgoing > run.log" ))))
(remove-test (lambda (x)
(iup:attribute-set!
command-text-box "VALUE"
(conc "megatest -remove-runs " keystring " :runname " runname " -testpatt " testname " -itempatt "
(if (equal? item-path "")
"%"
item-path)
|