194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
(if (not (eof-object? lin))
(begin
(debug:print 4 lin)
(rmt:csv->test-data run-id test-id lin)
(loop (read-line)))))
;; roll up the current results.
;; FIXME: Add the status too
(rmt:test-data-rollup test-id #f))
(define (tdb:get-prev-tol-for-test tdb test-id category variable)
;; Finish me?
(values #f #f #f))
;;======================================================================
;; S T E P S
|
|
|
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
(if (not (eof-object? lin))
(begin
(debug:print 4 lin)
(rmt:csv->test-data run-id test-id lin)
(loop (read-line)))))
;; roll up the current results.
;; FIXME: Add the status too
(rmt:test-data-rollup run-id test-id #f))
(define (tdb:get-prev-tol-for-test tdb test-id category variable)
;; Finish me?
(values #f #f #f))
;;======================================================================
;; S T E P S
|