131
132
133
134
135
136
137
|
(hash-table-set! args:arg-hash ":runname" "rollup")
(test "Remove the rollup run" #t (begin (remove-runs) #t))
(test "Rollup the run(s)" #t (begin
(runs:rollup-run db keys)
#t))
|
>
>
>
|
131
132
133
134
135
136
137
138
139
140
|
(hash-table-set! args:arg-hash ":runname" "rollup")
(test "Remove the rollup run" #t (begin (remove-runs) #t))
(test "Rollup the run(s)" #t (begin
(runs:rollup-run db keys)
#t))
;; ADD ME!!!! (db:get-prereqs-not-met *db* 1 '("runfirst") "" mode: 'normal)
;; ADD ME!!!! (rdb:get-tests-for-run *db* 1 "runfirst" #f '() '())
|