108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
(define test-id #f)
;; force keepgoing
; (hash-table-set! args:arg-hash "-keepgoing" #t)
(hash-table-set! args:arg-hash "-itempatt" "%")
(hash-table-set! args:arg-hash "-testpatt" "%")
(test "Setup for a run" #t (begin (setup-for-run) #t))
(test "Remove the rollup run" #t (begin (remove-runs) #t))
(test "Run a test" #t (general-run-call
"-runtests"
"run a test"
(lambda (db keys keynames keyvallst)
(let ((test-names '("runfirst")))
(run-tests db test-names)))))
|
>
>
|
>
|
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
(define test-id #f)
;; force keepgoing
; (hash-table-set! args:arg-hash "-keepgoing" #t)
(hash-table-set! args:arg-hash "-itempatt" "%")
(hash-table-set! args:arg-hash "-testpatt" "%")
(test "Setup for a run" #t (begin (setup-for-run) #t))
;; (test "Remove the rollup run" #t (begin (remove-runs) #t))
(test "Run a test" #t (general-run-call
"-runtests"
"run a test"
(lambda (db keys keynames keyvallst)
(let ((test-names '("runfirst")))
(run-tests db test-names)))))
|