390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
|
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(args:get-arg "-runtests")
user
args:arg-hash)))) ;; )
;;======================================================================
;; run one test
;;======================================================================
|
>
|
>
|
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
|
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%/%")
user
args:arg-hash)))) ;; )
;;======================================================================
;; run one test
;;======================================================================
|