376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
|
;; 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
|
|
|
|
|
|
<
|
|
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
|
;; 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" "-itempatt"))
(runs:run-tests db
target
runname
(args:get-arg "-runtests")
user
args:arg-hash)))) ;; )
;;======================================================================
;; run one test
;;======================================================================
;; 1. find the config file
;; 2. change to the test directory
|
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
|
"-runtests"
"run a test"
(lambda (db target runname keys keynames keyvallst)
(runs:run-tests db
target
runname
(args:get-arg "-runtests")
(args:get-arg "-itempatt")
(make-hash-table)))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
"-rollup"
|
<
|
|
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
|
"-runtests"
"run a test"
(lambda (db target runname keys keynames keyvallst)
(runs:run-tests db
target
runname
(args:get-arg "-runtests")
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
"-rollup"
|