Overview
| Comment: | Added synchronous=0 as an option |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.44 |
| Files: | files | file ages | folders |
| SHA1: |
5d13f2e3fbe0dd72f2b68df56b7c6059 |
| User & Date: | matt on 2012-07-15 23:46:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-07-15
| ||
| 23:53 | Bumped version to v1.4403 check-in: f4356f57f3 user: mrwellan tags: v1.44, v1.4403 | |
| 23:46 | Added synchronous=0 as an option check-in: 5d13f2e3fb user: matt tags: v1.44 | |
|
2012-06-27
| ||
| 15:21 | Fixed db:get-test-data-by-id to fail gracefully check-in: 3aef5315e7 user: mrwellan tags: v1.44, v1.4402 | |
Changes
Modified db.scm from [c881958987] to [c61472a5e1].
| ︙ | ︙ | |||
43 44 45 46 47 48 49 50 51 52 53 54 55 56 |
(handler (make-busy-timeout (if (args:get-arg "-override-timeout")
(string->number (args:get-arg "-override-timeout"))
36000)))) ;; 136000)))
(debug:print 4 "INFO: dbpath=" dbpath)
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize 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))
| > > > > > | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
(handler (make-busy-timeout (if (args:get-arg "-override-timeout")
(string->number (args:get-arg "-override-timeout"))
36000)))) ;; 136000)))
(debug:print 4 "INFO: dbpath=" dbpath)
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize db))
(if (config-lookup *configdat* "setup" "synchronous")
(begin
(debug:print 4 "INFO: Turning on pragma synchronous")
(sqlite3:execute db "PRAGMA synchronous = 0;"))
(debug:print 4 "INFO: NOT turning on pragma synchronous"))
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))
|
| ︙ | ︙ |
Modified tests/fullrun/megatest.config from [feaafde063] to [a1c0620358].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | [fields] sysname TEXT fsname TEXT datapath TEXT # refareas can be searched to find previous runs # the path points to where megatest.db exists [refareas] area1 /tmp/oldarea/megatest [include config/mt_include_1.config] [validvalues] state start end status pass fail n/a 0 1 running # These are set before all tests, override them # in the testconfig [pre-launch-env-overrides] section | > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | [fields] sysname TEXT fsname TEXT datapath TEXT # refareas can be searched to find previous runs # the path points to where megatest.db exists [refareas] area1 /tmp/oldarea/megatest [include config/mt_include_1.config] [setup] synchronous yes [validvalues] state start end status pass fail n/a 0 1 running # These are set before all tests, override them # in the testconfig [pre-launch-env-overrides] section |
| ︙ | ︙ |