619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
|
(general-run-call
"-runtests"
"run a test"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(args:get-arg "-runtests")
(args:get-arg "-testpatt")
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
|
|
>
|
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
|
(general-run-call
"-runtests"
"run a test"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(args:get-arg "-runtests")
(or (args:get-arg "-testpatt")
(args:get-arg "-runtests"))
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
|