Megatest

Check-in [0187531d3d]
Login
Overview
Comment:Initial steps to separate test data into file testdata.db
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | testdata
Files: files | file ages | folders
SHA1: 0187531d3d17662ef942bc17b279d6896a67121a
User & Date: matt on 2012-02-28 03:15:18
Other Links: branch diff | manifest | tags
Context
2012-02-28
07:02
test_info initalization check-in: 7e2a9a176b user: matt tags: testdata
03:15
Initial steps to separate test data into file testdata.db check-in: 0187531d3d user: matt tags: testdata
2012-02-27
09:52
Partial fix for -rerun check-in: 0e00d7e0c2 user: matt tags: trunk
Changes

Modified db.scm from [f1afc66bda] to [22bc1d079f].

34
35
36
37
38
39
40

41


42
43
44
45
46






47

48
49
50
51
52
53
54
34
35
36
37
38
39
40
41

42
43
44
45
46
47
48
49
50
51
52
53
54

55
56
57
58
59
60
61
62







+
-
+
+





+
+
+
+
+
+
-
+







(define *incoming-data*      '())
(define *incoming-last-time* (current-seconds))
(define *incoming-mutex*     (make-mutex))
(define *cache-on* #f)

(define (open-db) ;;  (conc *toppath* "/megatest.db") (car *configinfo*)))
  (let* ((dbpath    (conc *toppath* "/megatest.db")) ;; fname)
         (tdatpath  (conc *toppath* "/testdata.db")))
	 (dbexists  (file-exists? dbpath))
	 (dbexists  (file-exists? dbpath)
         (tdatexists (file-exists? tdatpath))
	 (db        (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
	 (handler   (make-busy-timeout 36000)))
    (sqlite3:set-busy-handler! db handler)
    (if (not dbexists)
	(db:initialize db))
     (cond
	((and (not tdataexists)(not dbexists))
	 (db:initialize-tdat))
	((not tdataexists)
	 (db:migrate-to-testdata db)))
    (db:attach-testdata db)
    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))
	 (fieldstr (keys->key/field keys)))