Overview
| Comment: | More fixes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
93c5d298322cffd300b8180f8531654f |
| User & Date: | matt on 2013-11-18 23:57:17 |
| Other Links: | manifest | tags |
Context
|
2013-11-19
| ||
| 00:07 | fixes check-in: 42159f0a7d user: matt tags: trunk | |
|
2013-11-18
| ||
| 23:57 | More fixes check-in: 93c5d29832 user: matt tags: trunk | |
| 23:52 | Fixed some breakage from the tear down/migration to steps in megatest.db check-in: 4d2b7bbb24 user: matt tags: trunk | |
Changes
Modified tdb.scm from [27917601c7] to [614c354dbd].
| ︙ | ︙ | |||
185 186 187 188 189 190 191 | ;; tdb ;; "SELECT id,test_id,category,variable,value,expected,tol,units,comment,status,type FROM test_data WHERE test_id=? AND category LIKE ? ORDER BY category,variable;" test-id categorypatt) ;; (sqlite3:finalize! tdb) ;; (reverse res)) ;; '()))) ;; NOTE: Run this local with #f for db !!! | | | 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 |
;; tdb
;; "SELECT id,test_id,category,variable,value,expected,tol,units,comment,status,type FROM test_data WHERE test_id=? AND category LIKE ? ORDER BY category,variable;" test-id categorypatt)
;; (sqlite3:finalize! tdb)
;; (reverse res))
;; '())))
;; NOTE: Run this local with #f for db !!!
(define (tdb:load-test-data test-id)
(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.
|
| ︙ | ︙ |