32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")
;; (use trace dot-locking)
;; (trace
;; db:teststep-set-status!
;; db:open-test-db-by-test-id
;; db:test-get-rundir-from-test-id
;; cdb:tests-register-test
;; cdb:tests-update-uname-host
;; cdb:tests-update-run-duration
;; ;; cdb:client-call
|
>
|
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")
;; (use trace dot-locking)
;; (trace
;; tests:match)
;; db:teststep-set-status!
;; db:open-test-db-by-test-id
;; db:test-get-rundir-from-test-id
;; cdb:tests-register-test
;; cdb:tests-update-uname-host
;; cdb:tests-update-run-duration
;; ;; cdb:client-call
|
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
;;======================================================================
|
|
>
|
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
|
(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
;;======================================================================
|