Megatest

Check-in [7a69e38634]
Login
Overview
Comment:Merged in rollup branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7a69e3863464cfb29f920dcf48b516e9296f5d54
User & Date: matt on 2011-09-12 07:04:59
Other Links: manifest | tags
Context
2011-09-12
07:22
Minor clean up from merge check-in: f6a4f7080e user: matt tags: trunk
07:04
Merged in rollup branch check-in: 7a69e38634 user: matt tags: trunk
06:51
Partial implementation of test steps as text box check-in: ea880f01b9 user: matt tags: trunk
Changes

Modified db.scm from [d2c04b8411] to [10f6820556].

191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
     db "SELECT val FROM metadat WHERE var=?;" var)
    (if (string? res)
	(let ((valnum (string->number res)))
	  (if valnum valnum res))
	res)))

(define (db:set-var db var val)
  ;; Odd, I thought that if a constraint was placed on column then an insert with duplicate data
  ;; would fail and the insert would fall back to replace.
  ;; NB// accidently included primary key in the unique constraint which does not work.
  (let ((have (db:get-var db var)))
    ;; (if have
    ;; (sqlite3:execute db "UPDATE metadat SET val=? WHERE var=?;" val var)
	(sqlite3:execute db "INSERT OR REPLACE INTO metadat (var,val) VALUES (?,?);" var val)))

;; use a global for some primitive caching, it is just silly to re-read the db 
;; over and over again for the keys since they never change

(define *db-keys* #f)

(define (db-get-keys db)







<
<
<
<
<
<
|







191
192
193
194
195
196
197






198
199
200
201
202
203
204
205
     db "SELECT val FROM metadat WHERE var=?;" var)
    (if (string? res)
	(let ((valnum (string->number res)))
	  (if valnum valnum res))
	res)))

(define (db:set-var db var val)






  (sqlite3:execute db "INSERT OR REPLACE INTO metadat (var,val) VALUES (?,?);" var val))

;; use a global for some primitive caching, it is just silly to re-read the db 
;; over and over again for the keys since they never change

(define *db-keys* #f)

(define (db-get-keys db)