Overview
Context
Changes
Added dbwars/NOTES version [8f8ee6c6d0].
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
Before using prepare:
matt@xena:/tmp/megatest/dbwars$ ./sqlite3-test insert
Adding 1047 test3 item/39 host0-0.3-200000-240-this one sucks eh? (added 51886 records so far)
Adding 1122 test5 item/52 host2-0.2-200000-120-this is a good one eh? (added 78889 records so far)
Adding 1050 test7 item/31 host1-0.1-100000-120-this is a good one eh? (added 110641 records so far)
create-tests ran register-test 144000 times in 41.0 seconds
After using prepare:
matt@xena:/tmp/megatest/dbwars$ csc sqlite3-test.scm && ./sqlite3-test insert
Adding 1082 test4 item/74 host1-0.3-100000-120-this is a good one eh? (added 61281 records so far)
Adding 1138 test7 item/43 host2-0.3-200000-120-this is a good one eh? (added 109001 records so far)
Adding 1023 test9 item/00 host0-0.2-100000-240-this one sucks eh? (added 143878 records so far)
create-tests ran register-test 144000 times in 38.0 seconds
After moving the prepare outside the call (so it isn't done each time):
matt@xena:/tmp/megatest/dbwars$ ./sqlite3-test insert
Adding 1042 test4 item/59 host0-0.3-200000-120-this is a good one eh? (added 63401 records so far)
Adding 1011 test6 item/40 host0-0.1-200000-120-this one sucks eh? (added 94906 records so far)
Adding 1076 test9 item/34 host1-0.2-200000-120-just eh, eh? (added 139035 records so far)
create-tests ran register-test 144000 times in 33.0 seconds
Using sql-de-lite with very similar code:
matt@xena:/tmp/megatest/dbwars$ ./sql-de-lite-test insert
Adding 1029 test4 item/53 host0-0.2-200000-240- (added 64252 records so far)
Adding 1134 test7 item/64 host2-0.3-100000-240-this is a good one eh? (added 105973 records so far)
create-tests ran register-test 144000 times in 31.0 seconds
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
Modified dbwars/sql-de-lite-test.scm
from [ecd1b296a5]
to [004f7cb8d7].
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-
+
+
-
+
-
+
+
+
+
+
|
(use sql-de-lite)
(include "test-common.scm")
(define db (open-database "test.db"))
(execute db (sql db test-table-defn))
(exec (sql db test-table-defn))
(exec (sql db syncsetup))
(define (register-test db run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)
(define (register-test stmth run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)
(exec
(sql db test-insert)
stmth ;; (sql db test-insert)
run-id
testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time))
(let ((stmth (sql db test-insert)))
(create-tests stmth))
(close-database db)
|
Modified dbwars/sqlite3-test.scm
from [7006237c12]
to [338a298923].
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
+
-
-
+
+
-
-
-
+
+
+
|
(use sqlite3)
(include "test-common.scm")
(define db (open-database "test.db"))
(execute db test-table-defn)
(execute db syncsetup)
(define (register-test db run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)
(execute db
(define (register-test stmth run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)
(execute stmth
test-insert
(create-tests db)
(let ((stmth (prepare db test-insert)))
(create-tests stmth)
(finalize! stmth))
(finalize! db)
|
Modified dbwars/test-common.scm
from [e63d3f563f]
to [02dcd9f2da].
1
2
3
4
5
6
7
8
|
1
2
3
4
5
6
7
8
|
-
+
|
(use srfi-18 srfi-69)
(use srfi-18 srfi-69 apropos)
(define args (argv))
(if (not (eq? (length args) 2))
(begin
(print "Usage: sqlitecompare [insert|update]")
(exit 0)))
|
| ︙ | | |
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
-
+
|
(list run-id factor)
(let ((new-id (+ max-run-id 1)))
(set! max-run-id new-id)
(hash-table-set! run-ids factor new-id)
(list new-id factor)))))
(define (create-tests db)
(define (create-tests stmth)
(let ((num-created 0)
(last-print (current-seconds))
(start-time (current-seconds)))
(for-each
(lambda (test)
(for-each
(lambda (item)
|
| ︙ | | |
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
-
+
|
(factor (cadr run-id-dat))
(curr-time (current-seconds)))
(if (> (- curr-time last-print) 10)
(begin
(print "Adding " run-id " " test " " item " " factor " (added " num-created " records so far)")
(set! last-print curr-time)))
(set! num-created (+ num-created 1))
(register-test db
(register-test stmth ;; db
run-id
test ;; testname
host
cpuload
diskfree
uname
(conc basedir "/" test "/" item) ;; rundir
|
| ︙ | | |