Overview
| Comment: | Initial steps to separate test data into file testdata.db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | testdata |
| Files: | files | file ages | folders |
| SHA1: |
0187531d3d17662ef942bc17b279d689 |
| User & Date: | matt on 2012-02-28 03:15:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-02-28
| ||
| 07:02 | test_info initalization check-in: 7e2a9a176b user: matt tags: testdata | |
| 03:15 | Initial steps to separate test data into file testdata.db check-in: 0187531d3d user: matt tags: testdata | |
|
2012-02-27
| ||
| 09:52 | Partial fix for -rerun check-in: 0e00d7e0c2 user: matt tags: trunk | |
Changes
Modified db.scm from [f1afc66bda] to [22bc1d079f].
| ︙ | ︙ | |||
34 35 36 37 38 39 40 | (define *incoming-data* '()) (define *incoming-last-time* (current-seconds)) (define *incoming-mutex* (make-mutex)) (define *cache-on* #f) (define (open-db) ;; (conc *toppath* "/megatest.db") (car *configinfo*))) (let* ((dbpath (conc *toppath* "/megatest.db")) ;; fname) | > | > > > > > > > | | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
(define *incoming-data* '())
(define *incoming-last-time* (current-seconds))
(define *incoming-mutex* (make-mutex))
(define *cache-on* #f)
(define (open-db) ;; (conc *toppath* "/megatest.db") (car *configinfo*)))
(let* ((dbpath (conc *toppath* "/megatest.db")) ;; fname)
(tdatpath (conc *toppath* "/testdata.db")))
(dbexists (file-exists? dbpath)
(tdatexists (file-exists? tdatpath))
(db (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
(handler (make-busy-timeout 36000)))
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize db))
(cond
((and (not tdataexists)(not dbexists))
(db:initialize-tdat))
((not tdataexists)
(db:migrate-to-testdata db)))
(db:attach-testdata db)
db))
(define (db:initialize db)
(let* ((configdat (car *configinfo*)) ;; tut tut, global warning...
(keys (config-get-fields configdat))
(havekeys (> (length keys) 0))
(keystr (keys->keystr keys))
(fieldstr (keys->key/field keys)))
|
| ︙ | ︙ |