Overview
| Comment: | Have test ids start at 30k * run-id |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
d43128116f3bcba7e77981b9ccb46b26 |
| User & Date: | matt on 2014-03-18 01:51:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-03-19
| ||
| 10:21 | Merge db-sync to the v1.60 check-in: f5a9d4250c user: mrwellan tags: v1.60 | |
|
2014-03-18
| ||
| 02:14 | Start of code to sync to megatest.db check-in: 07907018df user: matt tags: megatest.db-sync | |
| 01:51 | Have test ids start at 30k * run-id check-in: d43128116f user: matt tags: v1.60 | |
|
2014-03-17
| ||
| 23:20 | Moved database into linktree/.db/ check-in: 2db911bdaf user: matt tags: v1.60 | |
Changes
Modified db.scm from [a0a8bce6ab] to [92d5c9e289].
| ︙ | ︙ | |||
142 143 144 145 146 147 148 | (if (and dbexists (not write-access)) (set! *db-write-access* #f)) ;; only unset so other db's also can use this control (if write-access (begin (if (not dbexists) (begin (db:initialize-run-id-db db) | > | > > > | 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 |
(if (and dbexists (not write-access))
(set! *db-write-access* #f)) ;; only unset so other db's also can use this control
(if write-access
(begin
(if (not dbexists)
(begin
(db:initialize-run-id-db db)
(sqlite3:execute
db
"INSERT OR IGNORE INTO tests (id,run_id,testname,event_time,item_path,state,status) VALUES (?,?,'bogustest',strftime('%s','now'),'nowherepath','DELETED','n/a');"
(* run-id 30000) ;; allow for up to 30k tests per run
run-id)
)) ;; add strings db to rundb, not in use yet
(sqlite3:set-busy-handler! db handler)
(sqlite3:execute db "PRAGMA synchronous = 1;"))) ;; was 0 but 0 is a gamble
(dbr:dbstruct-set-rundb! dbstruct db)
(dbr:dbstruct-set-inuse! dbstruct #t)
(if local
(begin
|
| ︙ | ︙ |