190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
;; NOTE: Run this local with #f for db !!!
(define (tdb:load-test-data test-id #!key (work-area #f))
(let loop ((lin (read-line)))
(if (not (eof-object? lin))
(begin
(debug:print 4 lin)
(rmt:csv->test-data test-id lin work-area: work-area)
(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?
|
|
|
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
;; NOTE: Run this local with #f for db !!!
(define (tdb:load-test-data test-id #!key (work-area #f))
(let loop ((lin (read-line)))
(if (not (eof-object? lin))
(begin
(debug:print 4 lin)
(rmt:csv->test-data 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?
|