Megatest

Check-in [e253e9fefb]
Login
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: e253e9fefb664dfbfb089f85b360e682a2cd2a2c
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

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));")

     (db:set-var db "MEGATEST_VERSION" megatest-version)
     (print-call-chain))

   (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")
       (sqlite3:execute db "ALTER TABLE tests ADD COLUMN tags TEXT DEFAULT '';")
       ))
     (db:set-var db "MEGATEST_VERSION" megatest-version)
     )))

;;======================================================================
;; meta get and set vars
;;======================================================================







>
|
<
>







<







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
;;======================================================================