693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
|
;; - if cannot access db > allowed disconnect time then kill job
(if (args:get-arg "-runtests")
(general-run-call
"-runtests"
"run a test"
(lambda (target runname keys keyvals)
(runs:run-tests target
runname
(args:get-arg "-runtests")
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
|
>
>
>
>
|
>
>
>
>
|
|
|
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
|
;; - if cannot access db > allowed disconnect time then kill job
(if (args:get-arg "-runtests")
(general-run-call
"-runtests"
"run a test"
(lambda (target runname keys keyvals)
;; Insert this run into the tasks queue
(open-run-close tasks:add tasks:open-db
"runtests"
user
target
runname
(args:get-arg "-runtests")
#f))))
;; (runs:run-tests target
;; runname
;; (args:get-arg "-runtests")
;; user
;; args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
|