323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
|
;; run all tests are are Not COMPLETED and PASS or CHECK
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
(lambda (db keys keynames keyvallst)
(let* ((test-names (get-all-legal-tests))) ;; "PROD" is ignored for now
(debug:print 1 "INFO: Attempting to start the following tests...")
(debug:print 1 " " (string-intersperse test-names ","))
(run-tests db test-names)))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
"-rollup"
|
|
>
>
>
>
|
>
>
>
|
>
>
>
>
|
|
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
;; run all tests are are Not COMPLETED and PASS or CHECK
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
(lambda (db keys keynames keyvallst)
(let* (;; (test-names (get-all-legal-tests))) ;; "PROD" is ignored for now
(runname (args:get-arg ":runname"))
(target (args:get-arg "-target")))
(if (not target)
(begin
(debug:print 0 "ERROR: -target is a required parameter")
(exit 0)))
(runs:run-tests db
target
runname
(args:get-arg "-testpatt")
(args:get-arg "-itempatt")
user
(make-hash-table))))))
;; (run-tests db test-names)))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
"-rollup"
|