Overview
| Comment: | Tweaked ordering on db updates |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.18 |
| Files: | files | file ages | folders |
| SHA1: |
e253e9fefb664dfbfb089f85b360e682 |
| User & Date: | matt on 2011-07-19 00:22:41 |
| Other Links: | manifest | tags |
Context
|
2011-07-19
| ||
| 10:52 | Made megatest stop if no disks for running tests are specified check-in: b5de223c55 user: mrwellan tags: trunk | |
| 00:22 | Tweaked ordering on db updates check-in: e253e9fefb user: matt tags: trunk, v1.18 | |
| 00:08 | Added support for tags to megatest. Dashboard not done yet check-in: 6654e3905e user: matt tags: trunk | |
Changes
Modified db.scm from [b0a0444891] to [cec969050f].
| ︙ | ︙ | |||
88 89 90 91 92 93 94 |
(handle-exceptions
exn
(begin
(print "Exception: " exn)
(print "ERROR: Possible out of date schema, attempting to add table metadata...")
(sqlite3:execute db "CREATE TABLE metadat (id INTEGER PRIMARY KEY, var TEXT, val TEXT,
CONSTRAINT metadat_constraint UNIQUE (id,var));")
| > | < > < | 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 |
(handle-exceptions
exn
(begin
(print "Exception: " exn)
(print "ERROR: Possible out of date schema, attempting to add table metadata...")
(sqlite3:execute db "CREATE TABLE metadat (id INTEGER PRIMARY KEY, var TEXT, val TEXT,
CONSTRAINT metadat_constraint UNIQUE (id,var));")
(sqlite3:execute db "ALTER TABLE tests ADD COLUMN tags TEXT DEFAULT '';")
(db:set-var db "MEGATEST_VERSION" 1.17)
)
(let ((mver (db:get-var db "MEGATEST_VERSION")))
(cond
((not mver)
(print "Adding megatest-version to metadata")
(sqlite3:execute db (db:set-var db "MEGATEST_VERSION" megatest-version)))
((< mver 1.18)
(print "Adding tags column to tests table")
))
(db:set-var db "MEGATEST_VERSION" megatest-version)
)))
;;======================================================================
;; meta get and set vars
;;======================================================================
|
| ︙ | ︙ |