Overview
| Comment: | Adding initial files for a pseudo real-world db egg comparative analysis |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
a4dece5f6e6b6e3add8897191416af75 |
| User & Date: | matt on 2013-10-13 17:17:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-10-13
| ||
| 17:59 | Part one of sqlite3 test done check-in: bc4a22eff5 user: matt tags: dev | |
| 17:17 | Adding initial files for a pseudo real-world db egg comparative analysis check-in: a4dece5f6e user: matt tags: dev | |
| 10:18 | Merged v1.55 back to dev check-in: 6f9f605ce6 user: matt tags: dev | |
Changes
Added dbwars/sql-de-lite-test.scm version [ecd1b296a5].
> > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
(use sql-de-lite)
(include "test-common.scm")
(define db (open-database "test.db"))
(execute db (sql db test-table-defn))
(define (register-test db 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)
run-id
testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time))
|
Added dbwars/sqlite3-test.scm version [2167129fe1].
> > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | (use sqlite3) (include "test-common.scm") (define db (open-database "test.db")) (execute db test-table-defn) (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 test-insert run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)) |
Added dbwars/test-common.scm version [6377e5cccf].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 32 33 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 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 |
(use srfi-18 srfi-69)
(define args (argv))
(if (not (eq? (length args) 2))
(begin
(print "Usage: sqlitecompare [insert|update]")
(exit 0)))
(define action (string->symbol (cadr args)))
(system "rm -f test.db")
(define test-table-defn
"CREATE TABLE IF NOT EXISTS tests
(id INTEGER PRIMARY KEY,
run_id INTEGER,
testname TEXT,
host TEXT DEFAULT 'n/a',
cpuload REAL DEFAULT -1,
diskfree INTEGER DEFAULT -1,
uname TEXT DEFAULT 'n/a',
rundir TEXT DEFAULT 'n/a',
shortdir TEXT DEFAULT '',
item_path TEXT DEFAULT '',
state TEXT DEFAULT 'NOT_STARTED',
status TEXT DEFAULT 'FAIL',
attemptnum INTEGER DEFAULT 0,
final_logf TEXT DEFAULT 'logs/final.log',
logdat BLOB,
run_duration INTEGER DEFAULT 0,
comment TEXT DEFAULT '',
event_time TIMESTAMP,
fail_count INTEGER DEFAULT 0,
pass_count INTEGER DEFAULT 0,
archived INTEGER DEFAULT 0, -- 0=no, 1=in progress, 2=yes
CONSTRAINT testsconstraint UNIQUE (run_id, testname, item_path)
);")
(define test-insert "INSERT INTO tests (run_id,testname,host,cpuload,diskfree,uname,rundir,shortdir,item_path,state,status,final_logf,run_duration,comment,event_time)
values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? );")
(define tests '("test0" "test1" "test2" "test3" "test4" "test5" "test6" "test7" "test8" "test9"))
(define items '())
(for-each
(lambda (n)
(for-each
(lambda (m)
(set! items (cons (conc "item/" n m) items)))
'(0 1 2 3 4 5 6 7 8 9)))
'(0 1 2 3 4 5 6 7 8 9))
(define hosts '("host0" "host1" "host2" "host3" "host4" "host5" "host6" "host7" "host8" "host9"))
(define cpuloads '(0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9))
(define diskfrees '(100000 200000 300000 400000 500000 600000 700000 800000 900000))
(define uname "Linux xena 3.5.0-40-generic #62~precise1-Ubuntu SMP Fri Aug 23 17:59:10 UTC 2013 i686 i686 i386 GNU/Linux")
(define basedir "/mfs/matt/data/megatest/runs/testing")
(define final-logf "finallog.html")
(define run-durations (list 120 240 260))
(define comments '("" "this is a good one eh?" "this one sucks eh?" "just eh, eh?"))
(define run-ids (make-hash-table))
(define max-run-id 1000)
(define (test-factors->run-id host cpuload diskfree run-duration comment)
(let* ((factor (conc host "-" cpuload "-" diskfree "-" run-duration "-" comment))
(run-id (hash-table-ref/default run-ids factor #f)))
(if run-id
(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)
(for-each
(lambda (test)
(for-each
(lambda (item)
(for-each
(lambda (host)
(for-each
(lambda (cpuload)
(for-each
(lambda (diskfree)
(for-each
(lambda (run-duration)
(for-each
(lambda (comment)
(let* ((run-id-dat (test-factors->run-id host cpuload diskfree run-duration comment))
(run-id (car run-id-dat))
(factor (cadr run-id-dat)))
(print "Adding " run-id " " test " " item " " factor)
(register-test db
run-id
test ;; testname
host
cpuload
diskfree
uname
(conc basedir "/" test "/" item) ;; rundir
(conc test "/" item) ;; shortdir
item ;; item-path
"NOT_STARTED" ;; state
"NA" ;; status
final-logf
run-duration
comment
(current-seconds))))
comments))
run-durations))
diskfrees))
cpuloads))
hosts))
items))
tests))
|