363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
|
;; 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 target runname keys keynames keyvallst)
(runs:run-tests db
target
runname
(args:get-arg "-testpatt")
(args:get-arg "-itempatt")
user
(make-hash-table)))))
|
>
>
>
>
|
|
|
|
|
|
|
|
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
|
;; 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 target runname keys keynames keyvallst)
(let ((flags (make-hash-table)))
(for-each (lambda (parm)
(hash-table-set! flags parm (args:get-arg parm)))
(list "-rerun" "-force"))
(runs:run-tests db
target
runname
(args:get-arg "-testpatt")
(args:get-arg "-itempatt")
user
flags)))))
;;======================================================================
;; run one test
;;======================================================================
;; 1. find the config file
;; 2. change to the test directory
|