0000: 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;;==============
0010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 43 6f 70 79 ========.;; Copy
0050: 72 69 67 68 74 20 32 30 30 36 2d 32 30 31 31 2c right 2006-2011,
0060: 20 4d 61 74 74 68 65 77 20 57 65 6c 6c 61 6e 64 Matthew Welland
0070: 2e 0a 3b 3b 20 0a 3b 3b 20 20 54 68 69 73 20 70 ..;; .;; This p
0080: 72 6f 67 72 61 6d 20 69 73 20 6d 61 64 65 20 61 rogram is made a
0090: 76 61 69 6c 61 62 6c 65 20 75 6e 64 65 72 20 74 vailable under t
00a0: 68 65 20 47 4e 55 20 47 50 4c 20 76 65 72 73 69 he GNU GPL versi
00b0: 6f 6e 20 32 2e 30 20 6f 72 0a 3b 3b 20 20 67 72 on 2.0 or.;; gr
00c0: 65 61 74 65 72 2e 20 53 65 65 20 74 68 65 20 61 eater. See the a
00d0: 63 63 6f 6d 70 61 6e 79 69 6e 67 20 66 69 6c 65 ccompanying file
00e0: 20 43 4f 50 59 49 4e 47 20 66 6f 72 20 64 65 74 COPYING for det
00f0: 61 69 6c 73 2e 0a 3b 3b 20 0a 3b 3b 20 20 54 68 ails..;; .;; Th
0100: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 is program is di
0110: 73 74 72 69 62 75 74 65 64 20 57 49 54 48 4f 55 stributed WITHOU
0120: 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 T ANY WARRANTY;
0130: 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 without even the
0140: 0a 3b 3b 20 20 69 6d 70 6c 69 65 64 20 77 61 72 .;; implied war
0150: 72 61 6e 74 79 20 6f 66 20 4d 45 52 43 48 41 4e ranty of MERCHAN
0160: 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e TABILITY or FITN
0170: 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 ESS FOR A PARTIC
0180: 55 4c 41 52 0a 3b 3b 20 20 50 55 52 50 4f 53 45 ULAR.;; PURPOSE
0190: 2e 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ..;;============
01a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 3d 3d ==========..;;==
01e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
01f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0220: 3d 3d 3d 3d 0a 3b 3b 20 44 61 74 61 62 61 73 65 ====.;; Database
0230: 20 61 63 63 65 73 73 0a 3b 3b 3d 3d 3d 3d 3d 3d access.;;======
0240: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0270: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0280: 0a 0a 28 64 65 66 69 6e 65 20 28 6f 70 65 6e 2d ..(define (open-
0290: 64 62 29 20 3b 3b 20 20 28 63 6f 6e 63 20 2a 74 db) ;; (conc *t
02a0: 6f 70 70 61 74 68 2a 20 22 2f 6d 65 67 61 74 65 oppath* "/megate
02b0: 73 74 2e 64 62 22 29 20 28 63 61 72 20 2a 63 6f st.db") (car *co
02c0: 6e 66 69 67 69 6e 66 6f 2a 29 29 29 0a 20 20 28 nfiginfo*))). (
02d0: 6c 65 74 2a 20 28 28 64 62 70 61 74 68 20 20 20 let* ((dbpath
02e0: 20 28 63 6f 6e 63 20 2a 74 6f 70 70 61 74 68 2a (conc *toppath*
02f0: 20 22 2f 6d 65 67 61 74 65 73 74 2e 64 62 22 29 "/megatest.db")
0300: 29 20 3b 3b 20 66 6e 61 6d 65 29 0a 09 20 28 63 ) ;; fname).. (c
0310: 6f 6e 66 69 67 64 61 74 20 28 63 61 72 20 2a 63 onfigdat (car *c
0320: 6f 6e 66 69 67 69 6e 66 6f 2a 29 29 0a 09 20 28 onfiginfo*)).. (
0330: 64 62 65 78 69 73 74 73 20 20 28 66 69 6c 65 2d dbexists (file-
0340: 65 78 69 73 74 73 3f 20 64 62 70 61 74 68 29 29 exists? dbpath))
0350: 0a 09 20 28 64 62 20 20 20 20 20 20 20 20 28 73 .. (db (s
0360: 71 6c 69 74 65 33 3a 6f 70 65 6e 2d 64 61 74 61 qlite3:open-data
0370: 62 61 73 65 20 64 62 70 61 74 68 29 29 20 3b 3b base dbpath)) ;;
0380: 20 28 6e 65 76 65 72 2d 67 69 76 65 2d 75 70 2d (never-give-up-
0390: 6f 70 65 6e 2d 64 62 20 64 62 70 61 74 68 29 29 open-db dbpath))
03a0: 0a 09 20 28 68 61 6e 64 6c 65 72 20 20 20 28 6d .. (handler (m
03b0: 61 6b 65 2d 62 75 73 79 2d 74 69 6d 65 6f 75 74 ake-busy-timeout
03c0: 20 33 36 30 30 30 29 29 29 0a 20 20 20 20 28 73 36000))). (s
03d0: 71 6c 69 74 65 33 3a 73 65 74 2d 62 75 73 79 2d qlite3:set-busy-
03e0: 68 61 6e 64 6c 65 72 21 20 64 62 20 68 61 6e 64 handler! db hand
03f0: 6c 65 72 29 0a 20 20 20 20 28 69 66 20 28 6e 6f ler). (if (no
0400: 74 20 64 62 65 78 69 73 74 73 29 0a 09 28 6c 65 t dbexists)..(le
0410: 74 2a 20 28 28 6b 65 79 73 20 20 20 20 20 28 63 t* ((keys (c
0420: 6f 6e 66 69 67 2d 67 65 74 2d 66 69 65 6c 64 73 onfig-get-fields
0430: 20 63 6f 6e 66 69 67 64 61 74 29 29 0a 09 20 20 configdat))..
0440: 20 20 20 20 20 28 68 61 76 65 6b 65 79 73 20 28 (havekeys (
0450: 3e 20 28 6c 65 6e 67 74 68 20 6b 65 79 73 29 20 > (length keys)
0460: 30 29 29 0a 09 20 20 20 20 20 20 20 28 6b 65 79 0)).. (key
0470: 73 74 72 20 20 20 28 6b 65 79 73 2d 3e 6b 65 79 str (keys->key
0480: 73 74 72 20 6b 65 79 73 29 29 0a 09 20 20 20 20 str keys))..
0490: 20 20 20 28 66 69 65 6c 64 73 74 72 20 28 6b 65 (fieldstr (ke
04a0: 79 73 2d 3e 6b 65 79 2f 66 69 65 6c 64 20 6b 65 ys->key/field ke
04b0: 79 73 29 29 29 0a 09 20 20 3b 3b 20 28 73 71 6c ys))).. ;; (sql
04c0: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
04d0: 22 50 52 41 47 4d 41 20 73 79 6e 63 68 72 6f 6e "PRAGMA synchron
04e0: 6f 75 73 20 3d 20 4f 46 46 3b 22 29 0a 09 20 20 ous = OFF;")..
04f0: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
0500: 20 64 62 20 22 43 52 45 41 54 45 20 54 41 42 4c db "CREATE TABL
0510: 45 20 6b 65 79 73 20 28 69 64 20 49 4e 54 45 47 E keys (id INTEG
0520: 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 ER PRIMARY KEY,
0530: 66 69 65 6c 64 6e 61 6d 65 20 54 45 58 54 2c 20 fieldname TEXT,
0540: 66 69 65 6c 64 74 79 70 65 20 54 45 58 54 2c 20 fieldtype TEXT,
0550: 43 4f 4e 53 54 52 41 49 4e 54 20 6b 65 79 63 6f CONSTRAINT keyco
0560: 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 55 45 20 nstraint UNIQUE
0570: 28 66 69 65 6c 64 6e 61 6d 65 29 29 3b 22 29 0a (fieldname));").
0580: 09 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 . (for-each (la
0590: 6d 62 64 61 20 28 6b 65 79 29 0a 09 09 20 20 20 mbda (key)...
05a0: 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 (sqlite3:exec
05b0: 75 74 65 20 64 62 20 22 49 4e 53 45 52 54 20 49 ute db "INSERT I
05c0: 4e 54 4f 20 6b 65 79 73 20 28 66 69 65 6c 64 6e NTO keys (fieldn
05d0: 61 6d 65 2c 66 69 65 6c 64 74 79 70 65 29 20 56 ame,fieldtype) V
05e0: 41 4c 55 45 53 20 28 3f 2c 3f 29 3b 22 20 28 6b ALUES (?,?);" (k
05f0: 65 79 3a 67 65 74 2d 66 69 65 6c 64 6e 61 6d 65 ey:get-fieldname
0600: 20 6b 65 79 29 28 6b 65 79 3a 67 65 74 2d 66 69 key)(key:get-fi
0610: 65 6c 64 74 79 70 65 20 6b 65 79 29 29 29 0a 09 eldtype key)))..
0620: 09 20 20 20 20 6b 65 79 73 29 0a 09 20 20 28 73 . keys).. (s
0630: 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 qlite3:execute d
0640: 62 20 28 63 6f 6e 63 20 0a 09 09 09 20 20 20 20 b (conc ....
0650: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 72 75 "CREATE TABLE ru
0660: 6e 73 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 ns (id INTEGER P
0670: 52 49 4d 41 52 59 20 4b 45 59 2c 20 22 20 0a 09 RIMARY KEY, " ..
0680: 09 09 20 20 20 20 66 69 65 6c 64 73 74 72 20 28 .. fieldstr (
0690: 69 66 20 68 61 76 65 6b 65 79 73 20 22 2c 22 20 if havekeys ","
06a0: 22 22 29 0a 09 09 09 20 20 20 20 22 72 75 6e 6e "").... "runn
06b0: 61 6d 65 20 54 45 58 54 2c 22 0a 09 09 09 20 20 ame TEXT,"....
06c0: 20 20 22 73 74 61 74 65 20 54 45 58 54 20 44 45 "state TEXT DE
06d0: 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 20 FAULT '',"....
06e0: 20 20 22 73 74 61 74 75 73 20 54 45 58 54 20 44 "status TEXT D
06f0: 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 EFAULT '',"....
0700: 20 20 20 22 6f 77 6e 65 72 20 54 45 58 54 20 44 "owner TEXT D
0710: 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 EFAULT '',"....
0720: 20 20 20 22 65 76 65 6e 74 5f 74 69 6d 65 20 54 "event_time T
0730: 49 4d 45 53 54 41 4d 50 2c 22 0a 09 09 09 20 20 IMESTAMP,"....
0740: 20 20 22 63 6f 6d 6d 65 6e 74 20 54 45 58 54 20 "comment TEXT
0750: 44 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 DEFAULT '',"....
0760: 20 20 20 20 22 66 61 69 6c 5f 63 6f 75 6e 74 20 "fail_count
0770: 49 4e 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 INTEGER DEFAULT
0780: 30 2c 22 0a 09 09 09 20 20 20 20 22 70 61 73 73 0,".... "pass
0790: 5f 63 6f 75 6e 74 20 49 4e 54 45 47 45 52 20 44 _count INTEGER D
07a0: 45 46 41 55 4c 54 20 30 2c 22 0a 09 09 09 20 20 EFAULT 0,"....
07b0: 20 20 22 43 4f 4e 53 54 52 41 49 4e 54 20 72 75 "CONSTRAINT ru
07c0: 6e 73 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 nsconstraint UNI
07d0: 51 55 45 20 28 72 75 6e 6e 61 6d 65 22 20 28 69 QUE (runname" (i
07e0: 66 20 68 61 76 65 6b 65 79 73 20 22 2c 22 20 22 f havekeys "," "
07f0: 22 29 20 6b 65 79 73 74 72 20 22 29 29 3b 22 29 ") keystr "));")
0800: 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 ).. (sqlite3:ex
0810: 65 63 75 74 65 20 64 62 20 28 63 6f 6e 63 20 22 ecute db (conc "
0820: 43 52 45 41 54 45 20 49 4e 44 45 58 20 72 75 6e CREATE INDEX run
0830: 73 5f 69 6e 64 65 78 20 4f 4e 20 72 75 6e 73 20 s_index ON runs
0840: 28 72 75 6e 6e 61 6d 65 22 20 28 69 66 20 68 61 (runname" (if ha
0850: 76 65 6b 65 79 73 20 22 2c 22 20 22 22 29 20 6b vekeys "," "") k
0860: 65 79 73 74 72 20 22 29 3b 22 29 29 0a 09 20 20 eystr ");"))..
0870: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
0880: 20 64 62 20 0a 09 09 09 22 43 52 45 41 54 45 20 db ...."CREATE
0890: 54 41 42 4c 45 20 74 65 73 74 73 20 0a 20 20 20 TABLE tests .
08a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
08b0: 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 (id INTEGER PRI
08c0: 4d 41 52 59 20 4b 45 59 2c 0a 20 20 20 20 20 20 MARY KEY,.
08d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
08e0: 75 6e 5f 69 64 20 20 20 20 20 49 4e 54 45 47 45 un_id INTEGE
08f0: 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 R,.
0900: 20 20 20 20 20 20 20 20 74 65 73 74 6e 61 6d 65 testname
0910: 20 20 20 54 45 58 54 2c 0a 20 20 20 20 20 20 20 TEXT,.
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f ho
0930: 73 74 20 20 20 20 20 20 20 54 45 58 54 20 44 45 st TEXT DE
0940: 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 20 20 FAULT 'n/a',.
0950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0960: 20 20 63 70 75 6c 6f 61 64 20 20 20 20 52 45 41 cpuload REA
0970: 4c 20 44 45 46 41 55 4c 54 20 2d 31 2c 0a 20 20 L DEFAULT -1,.
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0990: 20 20 20 64 69 73 6b 66 72 65 65 20 20 20 49 4e diskfree IN
09a0: 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 2d 31 TEGER DEFAULT -1
09b0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
09c0: 20 20 20 20 20 20 20 75 6e 61 6d 65 20 20 20 20 uname
09d0: 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 TEXT DEFAULT '
09e0: 6e 2f 61 27 2c 20 0a 20 20 20 20 20 20 20 20 20 n/a', .
09f0: 20 20 20 20 20 20 20 20 20 20 20 20 72 75 6e 64 rund
0a00: 69 72 20 20 20 20 20 54 45 58 54 20 44 45 46 41 ir TEXT DEFA
0a10: 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 20 20 20 20 ULT 'n/a',.
0a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a30: 69 74 65 6d 5f 70 61 74 68 20 20 54 45 58 54 20 item_path TEXT
0a40: 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 DEFAULT '',.
0a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a60: 20 73 74 61 74 65 20 20 20 20 20 20 54 45 58 54 state TEXT
0a70: 20 44 45 46 41 55 4c 54 20 27 4e 4f 54 5f 53 54 DEFAULT 'NOT_ST
0a80: 41 52 54 45 44 27 2c 0a 20 20 20 20 20 20 20 20 ARTED',.
0a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 sta
0aa0: 74 75 73 20 20 20 20 20 54 45 58 54 20 44 45 46 tus TEXT DEF
0ab0: 41 55 4c 54 20 27 46 41 49 4c 27 2c 0a 20 20 20 AULT 'FAIL',.
0ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ad0: 20 20 61 74 74 65 6d 70 74 6e 75 6d 20 49 4e 54 attemptnum INT
0ae0: 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 2c 0a EGER DEFAULT 0,.
0af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0b00: 20 20 20 20 20 66 69 6e 61 6c 5f 6c 6f 67 66 20 final_logf
0b10: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 6c 6f TEXT DEFAULT 'lo
0b20: 67 73 2f 66 69 6e 61 6c 2e 6c 6f 67 27 2c 0a 20 gs/final.log',.
0b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0b40: 20 20 20 20 6c 6f 67 64 61 74 20 20 20 20 20 42 logdat B
0b50: 4c 4f 42 2c 20 0a 20 20 20 20 20 20 20 20 20 20 LOB, .
0b60: 20 20 20 20 20 20 20 20 20 20 20 72 75 6e 5f 64 run_d
0b70: 75 72 61 74 69 6f 6e 20 49 4e 54 45 47 45 52 20 uration INTEGER
0b80: 44 45 46 41 55 4c 54 20 30 2c 0a 20 20 20 20 20 DEFAULT 0,.
0b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ba0: 63 6f 6d 6d 65 6e 74 20 20 20 20 54 45 58 54 20 comment TEXT
0bb0: 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 DEFAULT '',.
0bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0bd0: 20 65 76 65 6e 74 5f 74 69 6d 65 20 54 49 4d 45 event_time TIME
0be0: 53 54 41 4d 50 2c 0a 20 20 20 20 20 20 20 20 20 STAMP,.
0bf0: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c fail
0c00: 5f 63 6f 75 6e 74 20 49 4e 54 45 47 45 52 20 44 _count INTEGER D
0c10: 45 46 41 55 4c 54 20 30 2c 0a 20 20 20 20 20 20 EFAULT 0,.
0c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
0c30: 61 73 73 5f 63 6f 75 6e 74 20 49 4e 54 45 47 45 ass_count INTEGE
0c40: 52 20 44 45 46 41 55 4c 54 20 30 2c 0a 20 20 20 R DEFAULT 0,.
0c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0c60: 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 CONSTRAINT tes
0c70: 74 73 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 tsconstraint UNI
0c80: 51 55 45 20 28 72 75 6e 5f 69 64 2c 20 74 65 73 QUE (run_id, tes
0c90: 74 6e 61 6d 65 2c 20 69 74 65 6d 5f 70 61 74 68 tname, item_path
0ca0: 29 0a 20 20 20 20 20 20 20 20 20 20 29 3b 22 29 ). );")
0cb0: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
0cc0: 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 cute db "CREATE
0cd0: 49 4e 44 45 58 20 74 65 73 74 73 5f 69 6e 64 65 INDEX tests_inde
0ce0: 78 20 4f 4e 20 74 65 73 74 73 20 28 72 75 6e 5f x ON tests (run_
0cf0: 69 64 2c 20 74 65 73 74 6e 61 6d 65 29 3b 22 29 id, testname);")
0d00: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
0d10: 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 cute db "CREATE
0d20: 56 49 45 57 20 72 75 6e 73 5f 74 65 73 74 73 20 VIEW runs_tests
0d30: 41 53 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d AS SELECT * FROM
0d40: 20 72 75 6e 73 20 49 4e 4e 45 52 20 4a 4f 49 4e runs INNER JOIN
0d50: 20 74 65 73 74 73 20 4f 4e 20 72 75 6e 73 2e 69 tests ON runs.i
0d60: 64 3d 74 65 73 74 73 2e 72 75 6e 5f 69 64 3b 22 d=tests.run_id;"
0d70: 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 ).. (sqlite3:ex
0d80: 65 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 ecute db "CREATE
0d90: 20 54 41 42 4c 45 20 74 65 73 74 5f 73 74 65 70 TABLE test_step
0da0: 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 s .
0db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0dc0: 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 (id INTEGER PRI
0dd0: 4d 41 52 59 20 4b 45 59 2c 0a 20 20 20 20 20 20 MARY KEY,.
0de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0df0: 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 69 64 test_id
0e00: 20 49 4e 54 45 47 45 52 2c 20 0a 20 20 20 20 20 INTEGER, .
0e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e20: 20 20 20 20 20 20 20 20 20 20 73 74 65 70 6e 61 stepna
0e30: 6d 65 20 54 45 58 54 2c 20 0a 20 20 20 20 20 20 me TEXT, .
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e50: 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 54 state T
0e60: 45 58 54 20 44 45 46 41 55 4c 54 20 27 4e 4f 54 EXT DEFAULT 'NOT
0e70: 5f 53 54 41 52 54 45 44 27 2c 20 0a 20 20 20 20 _STARTED', .
0e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e90: 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 statu
0ea0: 73 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 s TEXT DEFAULT '
0eb0: 6e 2f 61 27 2c 65 76 65 6e 74 5f 74 69 6d 65 20 n/a',event_time
0ec0: 54 49 4d 45 53 54 41 4d 50 2c 0a 20 20 20 20 20 TIMESTAMP,.
0ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ee0: 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e commen
0ef0: 74 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 t TEXT DEFAULT '
0f00: 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ',.
0f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f20: 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 CONSTRAINT tes
0f30: 74 5f 73 74 65 70 73 5f 63 6f 6e 73 74 72 61 69 t_steps_constrai
0f40: 6e 74 20 55 4e 49 51 55 45 20 28 74 65 73 74 5f nt UNIQUE (test_
0f50: 69 64 2c 73 74 65 70 6e 61 6d 65 2c 73 74 61 74 id,stepname,stat
0f60: 65 29 29 3b 22 29 0a 09 20 20 28 73 71 6c 69 74 e));").. (sqlit
0f70: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 e3:execute db "C
0f80: 52 45 41 54 45 20 54 41 42 4c 45 20 65 78 74 72 REATE TABLE extr
0f90: 61 64 61 74 20 28 69 64 20 49 4e 54 45 47 45 52 adat (id INTEGER
0fa0: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 72 75 PRIMARY KEY, ru
0fb0: 6e 5f 69 64 20 49 4e 54 45 47 45 52 2c 20 6b 65 n_id INTEGER, ke
0fc0: 79 20 54 45 58 54 2c 20 76 61 6c 20 54 45 58 54 y TEXT, val TEXT
0fd0: 29 3b 22 29 0a 09 20 20 28 73 71 6c 69 74 65 33 );").. (sqlite3
0fe0: 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 52 45 :execute db "CRE
0ff0: 41 54 45 20 54 41 42 4c 45 20 6d 65 74 61 64 61 ATE TABLE metada
1000: 74 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 t (id INTEGER PR
1010: 49 4d 41 52 59 20 4b 45 59 2c 20 76 61 72 20 54 IMARY KEY, var T
1020: 45 58 54 2c 20 76 61 6c 20 54 45 58 54 2c 0a 20 EXT, val TEXT,.
1030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1050: 20 43 4f 4e 53 54 52 41 49 4e 54 20 6d 65 74 61 CONSTRAINT meta
1060: 64 61 74 5f 63 6f 6e 73 74 72 61 69 6e 74 20 55 dat_constraint U
1070: 4e 49 51 55 45 20 28 69 64 2c 76 61 72 29 29 3b NIQUE (id,var));
1080: 22 29 0a 09 20 20 28 64 62 3a 73 65 74 2d 76 61 ").. (db:set-va
1090: 72 20 64 62 20 22 4d 45 47 41 54 45 53 54 5f 56 r db "MEGATEST_V
10a0: 45 52 53 49 4f 4e 22 20 6d 65 67 61 74 65 73 74 ERSION" megatest
10b0: 2d 76 65 72 73 69 6f 6e 29 0a 09 20 20 28 73 71 -version).. (sq
10c0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
10d0: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 "CREATE TABLE a
10e0: 63 63 65 73 73 5f 6c 6f 67 20 28 69 64 20 49 4e ccess_log (id IN
10f0: 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 TEGER PRIMARY KE
1100: 59 2c 20 75 73 65 72 20 54 45 58 54 2c 20 61 63 Y, user TEXT, ac
1110: 63 65 73 73 65 64 20 54 49 4d 45 53 54 41 4d 50 cessed TIMESTAMP
1120: 2c 20 61 72 67 73 20 54 45 58 54 29 3b 22 29 0a , args TEXT);").
1130: 09 20 20 28 70 61 74 63 68 2d 64 62 20 64 62 29 . (patch-db db)
1140: 29 29 0a 20 20 20 20 64 62 29 29 0a 0a 3b 3b 3d )). db))..;;=
1150: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1160: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1170: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1180: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1190: 3d 3d 3d 3d 3d 0a 3b 3b 20 54 4f 44 4f 3a 0a 3b =====.;; TODO:.;
11a0: 3b 20 20 20 70 75 74 20 64 65 6c 74 61 73 20 69 ; put deltas i
11b0: 6e 74 6f 20 61 6e 20 61 73 73 6f 63 20 6c 69 73 nto an assoc lis
11c0: 74 20 77 69 74 68 20 76 65 72 73 69 6f 6e 20 6e t with version n
11d0: 75 6d 62 65 72 73 0a 3b 3b 20 20 20 61 70 70 6c umbers.;; appl
11e0: 79 20 61 6c 6c 20 66 72 6f 6d 20 6c 61 73 74 20 y all from last
11f0: 74 6f 20 63 75 72 72 65 6e 74 0a 3b 3b 3d 3d 3d to current.;;===
1200: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1210: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1220: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1230: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1240: 3d 3d 3d 0a 28 64 65 66 69 6e 65 20 28 70 61 74 ===.(define (pat
1250: 63 68 2d 64 62 20 64 62 29 0a 20 20 28 68 61 6e ch-db db). (han
1260: 64 6c 65 2d 65 78 63 65 70 74 69 6f 6e 73 0a 20 dle-exceptions.
1270: 20 20 65 78 6e 0a 20 20 20 28 62 65 67 69 6e 0a exn. (begin.
1280: 20 20 20 20 20 28 70 72 69 6e 74 20 22 45 78 63 (print "Exc
1290: 65 70 74 69 6f 6e 3a 20 22 20 65 78 6e 29 0a 20 eption: " exn).
12a0: 20 20 20 20 28 70 72 69 6e 74 20 22 45 52 52 4f (print "ERRO
12b0: 52 3a 20 50 6f 73 73 69 62 6c 65 20 6f 75 74 20 R: Possible out
12c0: 6f 66 20 64 61 74 65 20 73 63 68 65 6d 61 2c 20 of date schema,
12d0: 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20 61 64 attempting to ad
12e0: 64 20 74 61 62 6c 65 20 6d 65 74 61 64 61 74 61 d table metadata
12f0: 2e 2e 2e 22 29 0a 20 20 20 20 20 28 73 71 6c 69 ..."). (sqli
1300: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
1310: 43 52 45 41 54 45 20 54 41 42 4c 45 20 6d 65 74 CREATE TABLE met
1320: 61 64 61 74 20 28 69 64 20 49 4e 54 45 47 45 52 adat (id INTEGER
1330: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 76 61 PRIMARY KEY, va
1340: 72 20 54 45 58 54 2c 20 76 61 6c 20 54 45 58 54 r TEXT, val TEXT
1350: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1370: 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 6d CONSTRAINT m
1380: 65 74 61 64 61 74 5f 63 6f 6e 73 74 72 61 69 6e etadat_constrain
1390: 74 20 55 4e 49 51 55 45 20 28 69 64 2c 76 61 72 t UNIQUE (id,var
13a0: 29 29 3b 22 29 0a 20 20 20 20 20 28 64 62 3a 73 ));"). (db:s
13b0: 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 54 et-var db "MEGAT
13c0: 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 2e 31 EST_VERSION" 1.1
13d0: 37 29 0a 20 20 20 20 20 29 0a 20 20 20 28 6c 65 7). ). (le
13e0: 74 20 28 28 6d 76 65 72 20 28 64 62 3a 67 65 74 t ((mver (db:get
13f0: 2d 76 61 72 20 64 62 20 22 4d 45 47 41 54 45 53 -var db "MEGATES
1400: 54 5f 56 45 52 53 49 4f 4e 22 29 29 29 0a 20 20 T_VERSION"))).
1410: 20 20 20 28 70 72 69 6e 74 20 22 43 75 72 72 65 (print "Curre
1420: 6e 74 20 73 63 68 65 6d 61 20 76 65 72 73 69 6f nt schema versio
1430: 6e 3a 20 22 20 6d 76 65 72 20 22 20 63 75 72 72 n: " mver " curr
1440: 65 6e 74 20 6d 65 67 61 74 65 73 74 20 76 65 72 ent megatest ver
1450: 73 69 6f 6e 3a 20 22 20 6d 65 67 61 74 65 73 74 sion: " megatest
1460: 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 -version). (
1470: 69 66 20 28 6e 6f 74 20 6d 76 65 72 29 0a 09 28 if (not mver)..(
1480: 62 65 67 69 6e 0a 09 20 20 28 70 72 69 6e 74 20 begin.. (print
1490: 22 41 64 64 69 6e 67 20 6d 65 67 61 74 65 73 74 "Adding megatest
14a0: 2d 76 65 72 73 69 6f 6e 20 74 6f 20 6d 65 74 61 -version to meta
14b0: 64 61 74 61 22 29 0a 09 20 20 28 73 71 6c 69 74 data").. (sqlit
14c0: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 28 64 e3:execute db (d
14d0: 62 3a 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 b:set-var db "ME
14e0: 47 41 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 GATEST_VERSION"
14f0: 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f 6e megatest-version
1500: 29 29 29 29 0a 20 20 20 20 20 3b 3b 20 20 20 20 )))). ;;
1510: 20 20 28 69 66 20 28 3c 20 6d 76 65 72 20 31 2e (if (< mver 1.
1520: 31 38 29 0a 20 20 20 20 20 3b 3b 20 09 20 28 62 18). ;; . (b
1530: 65 67 69 6e 0a 20 20 20 20 20 3b 3b 20 09 20 20 egin. ;; .
1540: 20 28 70 72 69 6e 74 20 22 41 64 64 69 6e 67 20 (print "Adding
1550: 74 61 67 73 20 63 6f 6c 75 6d 6e 20 74 6f 20 74 tags column to t
1560: 65 73 74 73 20 74 61 62 6c 65 22 29 0a 20 20 20 ests table").
1570: 20 20 3b 3b 20 09 20 20 20 28 73 71 6c 69 74 65 ;; . (sqlite
1580: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 41 4c 3:execute db "AL
1590: 54 45 52 20 54 41 42 4c 45 20 74 65 73 74 73 20 TER TABLE tests
15a0: 41 44 44 20 43 4f 4c 55 4d 4e 20 74 61 67 73 20 ADD COLUMN tags
15b0: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 3b TEXT DEFAULT '';
15c0: 22 29 29 29 0a 20 20 20 20 20 28 69 66 20 28 3c "))). (if (<
15d0: 20 6d 76 65 72 20 31 2e 32 30 29 0a 09 20 28 62 mver 1.20).. (b
15e0: 65 67 69 6e 0a 09 20 20 20 28 73 71 6c 69 74 65 egin.. (sqlite
15f0: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 52 3:execute db "CR
1600: 45 41 54 45 20 54 41 42 4c 45 20 74 65 73 74 5f EATE TABLE test_
1610: 6d 65 74 61 20 28 69 64 20 49 4e 54 45 47 45 52 meta (id INTEGER
1620: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 PRIMARY KEY,.
1630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1650: 20 20 20 74 65 73 74 6e 61 6d 65 20 20 20 20 54 testname T
1660: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
1670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1690: 20 20 20 20 20 61 75 74 68 6f 72 20 20 20 20 20 author
16a0: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 TEXT DEFAULT ''
16b0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
16c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
16d0: 20 20 20 20 20 20 20 6f 77 6e 65 72 20 20 20 20 owner
16e0: 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 TEXT DEFAULT
16f0: 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '',.
1700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1710: 20 20 20 20 20 20 20 20 20 64 65 73 63 72 69 70 descrip
1720: 74 69 6f 6e 20 54 45 58 54 20 44 45 46 41 55 4c tion TEXT DEFAUL
1730: 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 T '',.
1740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1750: 20 20 20 20 20 20 20 20 20 20 20 72 65 76 69 65 revie
1760: 77 65 64 20 20 20 20 54 49 4d 45 53 54 41 4d 50 wed TIMESTAMP
1770: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1790: 20 20 20 20 20 20 20 69 74 65 72 61 74 65 64 20 iterated
17a0: 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 TEXT DEFAULT
17b0: 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '',.
17c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17d0: 20 20 20 20 20 20 20 20 20 61 76 67 5f 72 75 6e avg_run
17e0: 74 69 6d 65 20 52 45 41 4c 2c 0a 20 20 20 20 20 time REAL,.
17f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1810: 61 76 67 5f 64 69 73 6b 20 20 20 20 52 45 41 4c avg_disk REAL
1820: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1840: 20 20 20 20 20 20 20 74 61 67 73 20 20 20 20 20 tags
1850: 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 TEXT DEFAULT
1860: 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '',.
1870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1880: 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 CONSTRAINT t
1890: 65 73 74 5f 6d 65 74 61 5f 63 6f 6e 74 73 74 72 est_meta_contstr
18a0: 61 69 6e 74 20 55 4e 49 51 55 45 20 28 69 64 2c aint UNIQUE (id,
18b0: 74 65 73 74 6e 61 6d 65 29 29 3b 22 29 0a 09 20 testname));")..
18c0: 20 20 28 66 6f 72 2d 65 61 63 68 20 0a 09 20 20 (for-each ..
18d0: 20 20 28 6c 61 6d 62 64 61 20 28 73 74 6d 74 29 (lambda (stmt)
18e0: 0a 09 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 .. (sqlite3
18f0: 3a 65 78 65 63 75 74 65 20 64 62 20 73 74 6d 74 :execute db stmt
1900: 29 29 0a 09 20 20 20 20 28 6c 69 73 74 20 0a 09 )).. (list ..
1910: 20 20 20 20 20 22 41 4c 54 45 52 20 54 41 42 4c "ALTER TABL
1920: 45 20 74 65 73 74 73 20 41 44 44 20 43 4f 4c 55 E tests ADD COLU
1930: 4d 4e 20 65 78 70 65 63 74 65 64 5f 76 61 6c 75 MN expected_valu
1940: 65 20 52 45 41 4c 3b 22 20 3b 3b 20 44 4f 20 4e e REAL;" ;; DO N
1950: 4f 54 20 41 64 64 20 61 20 64 65 66 61 75 6c 74 OT Add a default
1960: 2c 20 77 65 20 77 61 6e 74 20 69 74 20 74 6f 20 , we want it to
1970: 62 65 20 4e 55 4c 4c 0a 09 20 20 20 20 20 22 41 be NULL.. "A
1980: 4c 54 45 52 20 54 41 42 4c 45 20 74 65 73 74 73 LTER TABLE tests
1990: 20 41 44 44 20 43 4f 4c 55 4d 4e 20 76 61 6c 75 ADD COLUMN valu
19a0: 65 20 52 45 41 4c 3b 22 0a 09 20 20 20 20 20 22 e REAL;".. "
19b0: 41 4c 54 45 52 20 54 41 42 4c 45 20 74 65 73 74 ALTER TABLE test
19c0: 73 20 41 44 44 20 43 4f 4c 55 4d 4e 20 74 6f 6c s ADD COLUMN tol
19d0: 20 52 45 41 4c 3b 22 0a 09 20 20 20 20 20 22 41 REAL;".. "A
19e0: 4c 54 45 52 20 54 41 42 4c 45 20 74 65 73 74 73 LTER TABLE tests
19f0: 20 41 44 44 20 43 4f 4c 55 4d 4e 20 74 6f 6c 5f ADD COLUMN tol_
1a00: 70 65 72 63 20 52 45 41 4c 3b 22 0a 09 20 20 20 perc REAL;"..
1a10: 20 20 22 41 4c 54 45 52 20 54 41 42 4c 45 20 74 "ALTER TABLE t
1a20: 65 73 74 73 20 41 44 44 20 43 4f 4c 55 4d 4e 20 ests ADD COLUMN
1a30: 66 69 72 73 74 5f 65 72 72 20 54 45 58 54 3b 22 first_err TEXT;"
1a40: 0a 09 20 20 20 20 20 22 41 4c 54 45 52 20 54 41 .. "ALTER TA
1a50: 42 4c 45 20 74 65 73 74 73 20 41 44 44 20 43 4f BLE tests ADD CO
1a60: 4c 55 4d 4e 20 66 69 72 73 74 5f 77 61 72 6e 20 LUMN first_warn
1a70: 54 45 58 54 3b 22 0a 09 20 20 20 20 20 29 29 29 TEXT;".. )))
1a80: 29 0a 20 20 20 20 20 28 69 66 20 28 3c 20 6d 76 ). (if (< mv
1a90: 65 72 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 er megatest-vers
1aa0: 69 6f 6e 29 0a 09 20 28 64 62 3a 73 65 74 2d 76 ion).. (db:set-v
1ab0: 61 72 20 64 62 20 22 4d 45 47 41 54 45 53 54 5f ar db "MEGATEST_
1ac0: 56 45 52 53 49 4f 4e 22 20 6d 65 67 61 74 65 73 VERSION" megates
1ad0: 74 2d 76 65 72 73 69 6f 6e 29 29 29 29 29 0a 0a t-version)))))..
1ae0: 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;;==============
1af0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b20: 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 6d 65 74 61 ========.;; meta
1b30: 20 67 65 74 20 61 6e 64 20 73 65 74 20 76 61 72 get and set var
1b40: 73 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d s.;;============
1b50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 72 ==========..;; r
1b90: 65 74 75 72 6e 73 20 6e 75 6d 62 65 72 20 69 66 eturns number if
1ba0: 20 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 20 string->number
1bb0: 69 73 20 73 75 63 63 65 73 73 66 75 6c 2c 20 73 is successful, s
1bc0: 74 72 69 6e 67 20 6f 74 68 65 72 77 69 73 65 0a tring otherwise.
1bd0: 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 2d (define (db:get-
1be0: 76 61 72 20 64 62 20 76 61 72 29 0a 20 20 28 6c var db var). (l
1bf0: 65 74 20 28 28 72 65 73 20 23 66 29 29 0a 20 20 et ((res #f)).
1c00: 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 (sqlite3:for-e
1c10: 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 6c 61 ach-row. (la
1c20: 6d 62 64 61 20 28 76 61 6c 29 0a 20 20 20 20 20 mbda (val).
1c30: 20 20 28 73 65 74 21 20 72 65 73 20 76 61 6c 29 (set! res val)
1c40: 29 0a 20 20 20 20 20 64 62 20 22 53 45 4c 45 43 ). db "SELEC
1c50: 54 20 76 61 6c 20 46 52 4f 4d 20 6d 65 74 61 64 T val FROM metad
1c60: 61 74 20 57 48 45 52 45 20 76 61 72 3d 3f 3b 22 at WHERE var=?;"
1c70: 20 76 61 72 29 0a 20 20 20 20 28 69 66 20 28 73 var). (if (s
1c80: 74 72 69 6e 67 3f 20 72 65 73 29 0a 09 28 6c 65 tring? res)..(le
1c90: 74 20 28 28 76 61 6c 6e 75 6d 20 28 73 74 72 69 t ((valnum (stri
1ca0: 6e 67 2d 3e 6e 75 6d 62 65 72 20 72 65 73 29 29 ng->number res))
1cb0: 29 0a 09 20 20 28 69 66 20 76 61 6c 6e 75 6d 20 ).. (if valnum
1cc0: 76 61 6c 6e 75 6d 20 72 65 73 29 29 0a 09 72 65 valnum res))..re
1cd0: 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 s)))..(define (d
1ce0: 62 3a 73 65 74 2d 76 61 72 20 64 62 20 76 61 72 b:set-var db var
1cf0: 20 76 61 6c 29 0a 20 20 28 73 71 6c 69 74 65 33 val). (sqlite3
1d00: 3a 65 78 65 63 75 74 65 20 64 62 20 22 49 4e 53 :execute db "INS
1d10: 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45 20 49 ERT OR REPLACE I
1d20: 4e 54 4f 20 6d 65 74 61 64 61 74 20 28 76 61 72 NTO metadat (var
1d30: 2c 76 61 6c 29 20 56 41 4c 55 45 53 20 28 3f 2c ,val) VALUES (?,
1d40: 3f 29 3b 22 20 76 61 72 20 76 61 6c 29 29 0a 0a ?);" var val))..
1d50: 28 64 65 66 69 6e 65 20 28 64 62 2d 67 65 74 2d (define (db-get-
1d60: 6b 65 79 73 20 64 62 29 0a 20 20 28 6c 65 74 20 keys db). (let
1d70: 28 28 72 65 73 20 27 28 29 29 29 0a 20 20 20 20 ((res '())).
1d80: 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 (sqlite3:for-eac
1d90: 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d h-row . (lam
1da0: 62 64 61 20 28 6b 65 79 20 6b 65 79 74 79 70 65 bda (key keytype
1db0: 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 ). (set! r
1dc0: 65 73 20 28 63 6f 6e 73 20 28 76 65 63 74 6f 72 es (cons (vector
1dd0: 20 6b 65 79 20 6b 65 79 74 79 70 65 29 20 72 65 key keytype) re
1de0: 73 29 29 29 0a 20 20 20 20 20 64 62 0a 20 20 20 s))). db.
1df0: 20 20 22 53 45 4c 45 43 54 20 66 69 65 6c 64 6e "SELECT fieldn
1e00: 61 6d 65 2c 66 69 65 6c 64 74 79 70 65 20 46 52 ame,fieldtype FR
1e10: 4f 4d 20 6b 65 79 73 20 4f 52 44 45 52 20 42 59 OM keys ORDER BY
1e20: 20 69 64 20 44 45 53 43 3b 22 29 0a 20 20 20 20 id DESC;").
1e30: 72 65 73 29 29 0a 0a 0a 28 64 65 66 69 6e 65 2d res))...(define-
1e40: 69 6e 6c 69 6e 65 20 28 64 62 3a 67 65 74 2d 68 inline (db:get-h
1e50: 65 61 64 65 72 20 76 65 63 29 28 76 65 63 74 6f eader vec)(vecto
1e60: 72 2d 72 65 66 20 76 65 63 20 30 29 29 0a 28 64 r-ref vec 0)).(d
1e70: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
1e80: 3a 67 65 74 2d 72 6f 77 73 20 20 20 76 65 63 29 :get-rows vec)
1e90: 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 (vector-ref vec
1ea0: 31 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 1))..(define (db
1eb0: 3a 67 65 74 2d 76 61 6c 75 65 2d 62 79 2d 68 65 :get-value-by-he
1ec0: 61 64 65 72 20 72 6f 77 20 68 65 61 64 65 72 20 ader row header
1ed0: 66 69 65 6c 64 29 0a 20 20 28 69 66 20 28 6e 75 field). (if (nu
1ee0: 6c 6c 3f 20 68 65 61 64 65 72 29 20 23 66 0a 20 ll? header) #f.
1ef0: 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 (let loop (
1f00: 28 68 65 64 20 28 63 61 72 20 68 65 61 64 65 72 (hed (car header
1f10: 29 29 0a 09 09 20 28 74 61 6c 20 28 63 64 72 20 ))... (tal (cdr
1f20: 68 65 61 64 65 72 29 29 0a 09 09 20 28 6e 20 20 header))... (n
1f30: 20 30 29 29 0a 09 28 69 66 20 28 65 71 75 61 6c 0))..(if (equal
1f40: 3f 20 68 65 64 20 66 69 65 6c 64 29 0a 09 20 20 ? hed field)..
1f50: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 6f (vector-ref ro
1f60: 77 20 6e 29 0a 09 20 20 20 20 28 69 66 20 28 6e w n).. (if (n
1f70: 75 6c 6c 3f 20 74 61 6c 29 20 23 66 20 28 6c 6f ull? tal) #f (lo
1f80: 6f 70 20 28 63 61 72 20 74 61 6c 29 28 63 64 72 op (car tal)(cdr
1f90: 20 74 61 6c 29 28 2b 20 6e 20 31 29 29 29 29 29 tal)(+ n 1)))))
1fa0: 29 29 0a 09 20 20 20 20 0a 3b 3b 3d 3d 3d 3d 3d )).. .;;=====
1fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ff0: 3d 0a 3b 3b 20 20 52 20 55 20 4e 20 53 0a 3b 3b =.;; R U N S.;;
2000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2040: 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 20 ======..(define
2050: 28 72 75 6e 73 3a 67 65 74 2d 73 74 64 2d 72 75 (runs:get-std-ru
2060: 6e 2d 66 69 65 6c 64 73 20 6b 65 79 73 20 72 65 n-fields keys re
2070: 6d 66 69 65 6c 64 73 29 0a 20 20 28 6c 65 74 2a mfields). (let*
2080: 20 28 28 68 65 61 64 65 72 20 20 20 20 28 61 70 ((header (ap
2090: 70 65 6e 64 20 28 6d 61 70 20 6b 65 79 3a 67 65 pend (map key:ge
20a0: 74 2d 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 t-fieldname keys
20b0: 29 0a 09 09 09 20 20 20 20 72 65 6d 66 69 65 6c ).... remfiel
20c0: 64 73 29 29 0a 09 20 28 6b 65 79 73 74 72 20 20 ds)).. (keystr
20d0: 20 20 28 63 6f 6e 63 20 28 6b 65 79 73 2d 3e 6b (conc (keys->k
20e0: 65 79 73 74 72 20 6b 65 79 73 29 20 22 2c 22 0a eystr keys) ",".
20f0: 09 09 09 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 ... (string-int
2100: 65 72 73 70 65 72 73 65 20 72 65 6d 66 69 65 6c ersperse remfiel
2110: 64 73 20 22 2c 22 29 29 29 29 0a 20 20 20 20 28 ds ",")))). (
2120: 6c 69 73 74 20 6b 65 79 73 74 72 20 68 65 61 64 list keystr head
2130: 65 72 29 29 29 0a 0a 3b 3b 20 72 65 70 6c 61 63 er)))..;; replac
2140: 65 20 68 65 61 64 65 72 20 61 6e 64 20 6b 65 79 e header and key
2150: 73 74 72 20 77 69 74 68 20 61 20 63 61 6c 6c 20 str with a call
2160: 74 6f 20 72 75 6e 73 3a 67 65 74 2d 73 74 64 2d to runs:get-std-
2170: 72 75 6e 2d 66 69 65 6c 64 73 0a 28 64 65 66 69 run-fields.(defi
2180: 6e 65 20 28 64 62 2d 67 65 74 2d 72 75 6e 73 20 ne (db-get-runs
2190: 64 62 20 72 75 6e 70 61 74 74 20 2e 20 63 6f 75 db runpatt . cou
21a0: 6e 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 65 nt). (let* ((re
21b0: 73 20 20 20 20 20 20 27 28 29 29 0a 09 20 28 6b s '()).. (k
21c0: 65 79 73 20 20 20 20 20 20 28 64 62 2d 67 65 74 eys (db-get
21d0: 2d 6b 65 79 73 20 64 62 29 29 0a 09 20 28 72 65 -keys db)).. (re
21e0: 6d 66 69 65 6c 64 73 20 28 6c 69 73 74 20 22 69 mfields (list "i
21f0: 64 22 20 22 72 75 6e 6e 61 6d 65 22 20 22 73 74 d" "runname" "st
2200: 61 74 65 22 20 22 73 74 61 74 75 73 22 20 22 6f ate" "status" "o
2210: 77 6e 65 72 22 20 22 65 76 65 6e 74 5f 74 69 6d wner" "event_tim
2220: 65 22 29 29 0a 09 20 28 68 65 61 64 65 72 20 20 e")).. (header
2230: 20 20 28 61 70 70 65 6e 64 20 28 6d 61 70 20 6b (append (map k
2240: 65 79 3a 67 65 74 2d 66 69 65 6c 64 6e 61 6d 65 ey:get-fieldname
2250: 20 6b 65 79 73 29 0a 09 09 09 20 20 20 20 72 65 keys).... re
2260: 6d 66 69 65 6c 64 73 29 29 0a 09 20 28 6b 65 79 mfields)).. (key
2270: 73 74 72 20 20 20 20 28 63 6f 6e 63 20 28 6b 65 str (conc (ke
2280: 79 73 2d 3e 6b 65 79 73 74 72 20 6b 65 79 73 29 ys->keystr keys)
2290: 20 22 2c 22 0a 09 09 09 20 20 28 73 74 72 69 6e ",".... (strin
22a0: 67 2d 69 6e 74 65 72 73 70 65 72 73 65 20 72 65 g-intersperse re
22b0: 6d 66 69 65 6c 64 73 20 22 2c 22 29 29 29 29 0a mfields ",")))).
22c0: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 (sqlite3:for
22d0: 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 -each-row. (
22e0: 6c 61 6d 62 64 61 20 28 61 20 2e 20 78 29 0a 20 lambda (a . x).
22f0: 20 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 (set! res
2300: 28 63 6f 6e 73 20 28 61 70 70 6c 79 20 76 65 63 (cons (apply vec
2310: 74 6f 72 20 61 20 78 29 20 72 65 73 29 29 29 0a tor a x) res))).
2320: 20 20 20 20 20 64 62 0a 20 20 20 20 20 28 63 6f db. (co
2330: 6e 63 20 22 53 45 4c 45 43 54 20 22 20 6b 65 79 nc "SELECT " key
2340: 73 74 72 20 22 20 46 52 4f 4d 20 72 75 6e 73 20 str " FROM runs
2350: 57 48 45 52 45 20 72 75 6e 6e 61 6d 65 20 4c 49 WHERE runname LI
2360: 4b 45 20 3f 20 4f 52 44 45 52 20 42 59 20 65 76 KE ? ORDER BY ev
2370: 65 6e 74 5f 74 69 6d 65 20 44 45 53 43 20 22 0a ent_time DESC ".
2380: 09 20 20 20 28 69 66 20 28 61 6e 64 20 28 6e 6f . (if (and (no
2390: 74 20 28 6e 75 6c 6c 3f 20 63 6f 75 6e 74 29 29 t (null? count))
23a0: 0a 09 09 20 20 20 20 28 6e 75 6d 62 65 72 3f 20 ... (number?
23b0: 28 63 61 72 20 63 6f 75 6e 74 29 29 29 0a 09 20 (car count)))..
23c0: 20 20 20 20 20 20 28 63 6f 6e 63 20 22 20 4c 49 (conc " LI
23d0: 4d 49 54 20 22 20 28 63 61 72 20 63 6f 75 6e 74 MIT " (car count
23e0: 29 29 0a 09 20 20 20 20 20 20 20 22 22 29 0a 09 )).. "")..
23f0: 20 20 20 28 69 66 20 28 61 6e 64 20 28 3e 20 28 (if (and (> (
2400: 6c 65 6e 67 74 68 20 63 6f 75 6e 74 29 20 31 29 length count) 1)
2410: 0a 09 09 20 20 20 20 28 6e 75 6d 62 65 72 3f 20 ... (number?
2420: 28 63 61 64 72 20 63 6f 75 6e 74 29 29 29 0a 09 (cadr count)))..
2430: 20 20 20 20 20 20 20 28 63 6f 6e 63 20 22 20 4f (conc " O
2440: 46 46 53 45 54 20 22 20 28 63 61 64 72 20 63 6f FFSET " (cadr co
2450: 75 6e 74 29 29 0a 09 20 20 20 20 20 20 20 22 22 unt)).. ""
2460: 29 29 0a 20 20 20 20 20 72 75 6e 70 61 74 74 29 )). runpatt)
2470: 0a 20 20 20 20 28 76 65 63 74 6f 72 20 68 65 61 . (vector hea
2480: 64 65 72 20 72 65 73 29 29 29 0a 0a 3b 3b 20 72 der res)))..;; r
2490: 65 70 6c 61 63 65 20 68 65 61 64 65 72 20 61 6e eplace header an
24a0: 64 20 6b 65 79 73 74 72 20 77 69 74 68 20 61 20 d keystr with a
24b0: 63 61 6c 6c 20 74 6f 20 72 75 6e 73 3a 67 65 74 call to runs:get
24c0: 2d 73 74 64 2d 72 75 6e 2d 66 69 65 6c 64 73 0a -std-run-fields.
24d0: 3b 3b 20 6b 65 79 70 61 74 74 3a 20 27 28 28 22 ;; keypatt: '(("
24e0: 6b 65 79 31 22 20 22 70 61 74 74 31 22 29 28 22 key1" "patt1")("
24f0: 6b 65 79 32 22 20 22 70 61 74 74 32 22 29 2e 2e key2" "patt2")..
2500: 2e 29 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 .).(define (db:g
2510: 65 74 2d 72 75 6e 73 20 64 62 20 6b 65 79 73 20 et-runs db keys
2520: 6b 65 79 70 61 74 74 73 20 72 75 6e 70 61 74 74 keypatts runpatt
2530: 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 65 73 20 ). (let* ((res
2540: 20 20 20 20 20 27 28 29 29 0a 09 20 28 72 65 6d '()).. (rem
2550: 66 69 65 6c 64 73 20 28 6c 69 73 74 20 22 69 64 fields (list "id
2560: 22 20 22 72 75 6e 6e 61 6d 65 22 20 22 73 74 61 " "runname" "sta
2570: 74 65 22 20 22 73 74 61 74 75 73 22 20 22 6f 77 te" "status" "ow
2580: 6e 65 72 22 20 22 65 76 65 6e 74 5f 74 69 6d 65 ner" "event_time
2590: 22 29 29 0a 09 20 28 68 65 61 64 65 72 20 20 20 ")).. (header
25a0: 20 28 61 70 70 65 6e 64 20 28 6d 61 70 20 6b 65 (append (map ke
25b0: 79 3a 67 65 74 2d 66 69 65 6c 64 6e 61 6d 65 20 y:get-fieldname
25c0: 6b 65 79 73 29 0a 09 09 09 20 20 20 20 72 65 6d keys).... rem
25d0: 66 69 65 6c 64 73 29 29 0a 09 20 28 6b 65 79 73 fields)).. (keys
25e0: 74 72 20 20 20 20 28 63 6f 6e 63 20 28 6b 65 79 tr (conc (key
25f0: 73 2d 3e 6b 65 79 73 74 72 20 6b 65 79 73 29 20 s->keystr keys)
2600: 22 2c 22 0a 09 09 09 20 20 28 73 74 72 69 6e 67 ",".... (string
2610: 2d 69 6e 74 65 72 73 70 65 72 73 65 20 72 65 6d -intersperse rem
2620: 66 69 65 6c 64 73 20 22 2c 22 29 29 29 29 0a 20 fields ",")))).
2630: 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d (sqlite3:for-
2640: 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 6c each-row. (l
2650: 61 6d 62 64 61 20 28 61 20 2e 20 78 29 20 3b 3b ambda (a . x) ;;
2660: 20 74 75 72 6e 20 61 6c 6c 20 74 68 65 20 66 69 turn all the fi
2670: 65 6c 64 73 20 72 65 74 75 72 6e 65 64 20 69 6e elds returned in
2680: 74 6f 20 61 20 76 65 63 74 6f 72 20 61 6e 64 20 to a vector and
2690: 61 64 64 20 74 6f 20 74 68 65 20 6c 69 73 74 0a add to the list.
26a0: 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 73 (set! res
26b0: 20 28 63 6f 6e 73 20 28 61 70 70 6c 79 20 76 65 (cons (apply ve
26c0: 63 74 6f 72 20 61 20 78 29 20 72 65 73 29 29 29 ctor a x) res)))
26d0: 0a 20 20 20 20 20 64 62 0a 20 20 20 20 20 28 63 . db. (c
26e0: 6f 6e 63 20 22 53 45 4c 45 43 54 20 22 20 6b 65 onc "SELECT " ke
26f0: 79 73 74 72 20 22 20 46 52 4f 4d 20 72 75 6e 73 ystr " FROM runs
2700: 20 57 48 45 52 45 20 72 75 6e 6e 61 6d 65 20 4c WHERE runname L
2710: 49 4b 45 20 3f 20 22 0a 09 20 20 20 28 6d 61 70 IKE ? ".. (map
2720: 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 70 61 74 (lambda (keypat
2730: 74 29 0a 09 09 20 20 28 63 6f 6e 63 20 22 41 4e t)... (conc "AN
2740: 44 20 22 20 28 63 61 72 20 6b 65 79 70 61 74 74 D " (car keypatt
2750: 29 20 22 20 4c 49 4b 45 20 22 20 28 63 61 64 72 ) " LIKE " (cadr
2760: 20 6b 65 79 70 61 74 74 29 20 22 20 22 29 29 0a keypatt) " ")).
2770: 09 09 6b 65 79 70 61 74 74 73 29 0a 09 20 20 20 ..keypatts)..
2780: 22 4f 52 44 45 52 20 42 59 20 65 76 65 6e 74 5f "ORDER BY event_
2790: 74 69 6d 65 20 44 45 53 43 3b 22 29 0a 20 20 20 time DESC;").
27a0: 20 20 72 75 6e 70 61 74 74 29 0a 20 20 20 20 28 runpatt). (
27b0: 76 65 63 74 6f 72 20 68 65 61 64 65 72 20 72 65 vector header re
27c0: 73 29 29 29 0a 0a 3b 3b 20 75 73 65 20 74 68 69 s)))..;; use thi
27d0: 73 20 6f 6e 65 20 66 6f 72 20 64 62 2d 67 65 74 s one for db-get
27e0: 2d 72 75 6e 2d 69 6e 66 6f 0a 28 64 65 66 69 6e -run-info.(defin
27f0: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 67 65 74 e-inline (db:get
2800: 2d 72 6f 77 20 20 20 20 76 65 63 29 28 76 65 63 -row vec)(vec
2810: 74 6f 72 2d 72 65 66 20 76 65 63 20 31 29 29 0a tor-ref vec 1)).
2820: 0a 3b 3b 20 75 73 65 20 28 67 65 74 2d 76 61 6c .;; use (get-val
2830: 75 65 2d 62 79 2d 68 65 61 64 65 72 20 28 64 62 ue-by-header (db
2840: 3a 67 65 74 2d 68 65 61 64 65 72 20 72 75 6e 69 :get-header runi
2850: 6e 66 6f 29 28 64 62 3a 67 65 74 2d 72 6f 77 20 nfo)(db:get-row
2860: 72 75 6e 69 6e 66 6f 29 29 0a 28 64 65 66 69 6e runinfo)).(defin
2870: 65 20 28 64 62 3a 67 65 74 2d 72 75 6e 2d 69 6e e (db:get-run-in
2880: 66 6f 20 64 62 20 72 75 6e 2d 69 64 29 0a 20 20 fo db run-id).
2890: 28 6c 65 74 2a 20 28 28 72 65 73 20 20 20 20 20 (let* ((res
28a0: 20 23 66 29 0a 09 20 28 6b 65 79 73 20 20 20 20 #f).. (keys
28b0: 20 20 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 64 (db-get-keys d
28c0: 62 29 29 0a 09 20 28 72 65 6d 66 69 65 6c 64 73 b)).. (remfields
28d0: 20 28 6c 69 73 74 20 22 69 64 22 20 22 72 75 6e (list "id" "run
28e0: 6e 61 6d 65 22 20 22 73 74 61 74 65 22 20 22 73 name" "state" "s
28f0: 74 61 74 75 73 22 20 22 6f 77 6e 65 72 22 20 22 tatus" "owner" "
2900: 65 76 65 6e 74 5f 74 69 6d 65 22 29 29 0a 09 20 event_time"))..
2910: 28 68 65 61 64 65 72 20 20 20 20 28 61 70 70 65 (header (appe
2920: 6e 64 20 28 6d 61 70 20 6b 65 79 3a 67 65 74 2d nd (map key:get-
2930: 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 29 0a fieldname keys).
2940: 09 09 09 20 20 20 20 72 65 6d 66 69 65 6c 64 73 ... remfields
2950: 29 29 0a 09 20 28 6b 65 79 73 74 72 20 20 20 20 )).. (keystr
2960: 28 63 6f 6e 63 20 28 6b 65 79 73 2d 3e 6b 65 79 (conc (keys->key
2970: 73 74 72 20 6b 65 79 73 29 20 22 2c 22 0a 09 09 str keys) ","...
2980: 09 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 . (string-inter
2990: 73 70 65 72 73 65 20 72 65 6d 66 69 65 6c 64 73 sperse remfields
29a0: 20 22 2c 22 29 29 29 29 0a 20 20 20 20 28 73 71 ",")))). (sq
29b0: 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 lite3:for-each-r
29c0: 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 ow. (lambda
29d0: 28 61 20 2e 20 78 29 0a 20 20 20 20 20 20 20 28 (a . x). (
29e0: 73 65 74 21 20 72 65 73 20 28 61 70 70 6c 79 20 set! res (apply
29f0: 76 65 63 74 6f 72 20 61 20 78 29 29 29 0a 20 20 vector a x))).
2a00: 20 20 20 64 62 0a 20 20 20 20 20 28 63 6f 6e 63 db. (conc
2a10: 20 22 53 45 4c 45 43 54 20 22 20 6b 65 79 73 74 "SELECT " keyst
2a20: 72 20 22 20 46 52 4f 4d 20 72 75 6e 73 20 57 48 r " FROM runs WH
2a30: 45 52 45 20 69 64 3d 3f 3b 22 29 0a 20 20 20 20 ERE id=?;").
2a40: 20 72 75 6e 2d 69 64 29 0a 20 20 20 20 28 76 65 run-id). (ve
2a50: 63 74 6f 72 20 68 65 61 64 65 72 20 72 65 73 29 ctor header res)
2a60: 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ))..(define (db:
2a70: 73 65 74 2d 63 6f 6d 6d 65 6e 74 2d 66 6f 72 2d set-comment-for-
2a80: 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 20 63 6f run db run-id co
2a90: 6d 6d 65 6e 74 29 0a 20 20 28 73 71 6c 69 74 65 mment). (sqlite
2aa0: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 50 3:execute db "UP
2ab0: 44 41 54 45 20 72 75 6e 73 20 53 45 54 20 63 6f DATE runs SET co
2ac0: 6d 6d 65 6e 74 3d 3f 20 57 48 45 52 45 20 69 64 mment=? WHERE id
2ad0: 3d 3f 3b 22 20 63 6f 6d 6d 65 6e 74 20 72 75 6e =?;" comment run
2ae0: 2d 69 64 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 -id))..(define (
2af0: 64 62 3a 64 65 6c 65 74 65 2d 72 75 6e 20 64 62 db:delete-run db
2b00: 20 72 75 6e 2d 69 64 29 0a 20 20 28 73 71 6c 69 run-id). (sqli
2b10: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
2b20: 44 45 4c 45 54 45 20 46 52 4f 4d 20 72 75 6e 73 DELETE FROM runs
2b30: 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 72 75 WHERE id=?;" ru
2b40: 6e 2d 69 64 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d n-id))..;;======
2b50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2b90: 0a 3b 3b 20 20 54 20 45 20 53 20 54 20 53 0a 3b .;; T E S T S.;
2ba0: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;===============
2bb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2bc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2bd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2be0: 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 =======..(define
2bf0: 20 28 6d 61 6b 65 2d 64 62 3a 74 65 73 74 29 28 (make-db:test)(
2c00: 6d 61 6b 65 2d 76 65 63 74 6f 72 20 36 29 29 0a make-vector 6)).
2c10: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
2c20: 64 62 3a 74 65 73 74 2d 67 65 74 2d 69 64 20 20 db:test-get-id
2c30: 20 20 20 20 20 20 20 20 20 76 65 63 29 20 28 76 vec) (v
2c40: 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 30 29 ector-ref vec 0)
2c50: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
2c60: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 (db:test-get-ru
2c70: 6e 5f 69 64 20 20 20 20 20 20 20 76 65 63 29 20 n_id vec)
2c80: 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 (vector-ref vec
2c90: 31 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 1)).(define-inli
2ca0: 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d ne (db:test-get-
2cb0: 74 65 73 74 6e 61 6d 65 20 20 20 20 20 76 65 63 testname vec
2cc0: 29 20 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 ) (vector-ref ve
2cd0: 63 20 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 2)).(define-in
2ce0: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 line (db:test-ge
2cf0: 74 2d 73 74 61 74 65 20 20 20 20 20 20 20 20 76 t-state v
2d00: 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 20 ec) (vector-ref
2d10: 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e 65 2d vec 3)).(define-
2d20: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d inline (db:test-
2d30: 67 65 74 2d 73 74 61 74 75 73 20 20 20 20 20 20 get-status
2d40: 20 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 vec) (vector-re
2d50: 66 20 76 65 63 20 34 29 29 0a 28 64 65 66 69 6e f vec 4)).(defin
2d60: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes
2d70: 74 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 t-get-event_time
2d80: 20 20 20 76 65 63 29 20 28 76 65 63 74 6f 72 2d vec) (vector-
2d90: 72 65 66 20 76 65 63 20 35 29 29 0a 28 64 65 66 ref vec 5)).(def
2da0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
2db0: 65 73 74 2d 67 65 74 2d 68 6f 73 74 20 20 20 20 est-get-host
2dc0: 20 20 20 20 20 76 65 63 29 20 28 76 65 63 74 6f vec) (vecto
2dd0: 72 2d 72 65 66 20 76 65 63 20 36 29 29 0a 28 64 r-ref vec 6)).(d
2de0: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
2df0: 3a 74 65 73 74 2d 67 65 74 2d 63 70 75 6c 6f 61 :test-get-cpuloa
2e00: 64 20 20 20 20 20 20 76 65 63 29 20 28 76 65 63 d vec) (vec
2e10: 74 6f 72 2d 72 65 66 20 76 65 63 20 37 29 29 0a tor-ref vec 7)).
2e20: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
2e30: 64 62 3a 74 65 73 74 2d 67 65 74 2d 64 69 73 6b db:test-get-disk
2e40: 66 72 65 65 20 20 20 20 20 76 65 63 29 20 28 76 free vec) (v
2e50: 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 38 29 ector-ref vec 8)
2e60: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
2e70: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 75 6e (db:test-get-un
2e80: 61 6d 65 20 20 20 20 20 20 20 20 76 65 63 29 20 ame vec)
2e90: 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 (vector-ref vec
2ea0: 39 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 9)).(define-inli
2eb0: 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d ne (db:test-get-
2ec0: 72 75 6e 64 69 72 20 20 20 20 20 20 20 76 65 63 rundir vec
2ed0: 29 20 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 ) (vector-ref ve
2ee0: 63 20 31 30 29 29 0a 28 64 65 66 69 6e 65 2d 69 c 10)).(define-i
2ef0: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 nline (db:test-g
2f00: 65 74 2d 69 74 65 6d 2d 70 61 74 68 20 20 20 20 et-item-path
2f10: 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 vec) (vector-ref
2f20: 20 76 65 63 20 31 31 29 29 0a 28 64 65 66 69 6e vec 11)).(defin
2f30: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes
2f40: 74 2d 67 65 74 2d 72 75 6e 5f 64 75 72 61 74 69 t-get-run_durati
2f50: 6f 6e 20 76 65 63 29 20 28 76 65 63 74 6f 72 2d on vec) (vector-
2f60: 72 65 66 20 76 65 63 20 31 32 29 29 0a 28 64 65 ref vec 12)).(de
2f70: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
2f80: 74 65 73 74 2d 67 65 74 2d 66 69 6e 61 6c 5f 6c test-get-final_l
2f90: 6f 67 66 20 20 20 76 65 63 29 20 28 76 65 63 74 ogf vec) (vect
2fa0: 6f 72 2d 72 65 66 20 76 65 63 20 31 33 29 29 0a or-ref vec 13)).
2fb0: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
2fc0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 63 6f 6d 6d db:test-get-comm
2fd0: 65 6e 74 20 20 20 20 20 20 76 65 63 29 20 28 76 ent vec) (v
2fe0: 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 31 34 ector-ref vec 14
2ff0: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
3000: 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 66 e (db:test-get-f
3010: 75 6c 6c 6e 61 6d 65 20 20 20 20 20 76 65 63 29 ullname vec)
3020: 0a 20 20 28 63 6f 6e 63 20 28 64 62 3a 74 65 73 . (conc (db:tes
3030: 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 20 76 t-get-testname v
3040: 65 63 29 20 22 2f 22 20 28 64 62 3a 74 65 73 74 ec) "/" (db:test
3050: 2d 67 65 74 2d 69 74 65 6d 2d 70 61 74 68 20 76 -get-item-path v
3060: 65 63 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 69 ec)))..(define-i
3070: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 nline (db:test-s
3080: 65 74 2d 74 65 73 74 6e 61 6d 65 21 20 76 65 63 et-testname! vec
3090: 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 val)(vector-set
30a0: 21 20 76 65 63 20 32 20 76 61 6c 29 29 0a 28 64 ! vec 2 val)).(d
30b0: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
30c0: 3a 74 65 73 74 2d 73 65 74 2d 73 74 61 74 65 21 :test-set-state!
30d0: 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 vec val)(vec
30e0: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 33 20 76 tor-set! vec 3 v
30f0: 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c al)).(define-inl
3100: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 65 74 ine (db:test-set
3110: 2d 73 74 61 74 75 73 21 20 20 20 76 65 63 20 76 -status! vec v
3120: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
3130: 76 65 63 20 34 20 76 61 6c 29 29 0a 0a 28 64 65 vec 4 val))..(de
3140: 66 69 6e 65 20 28 64 62 2d 67 65 74 2d 74 65 73 fine (db-get-tes
3150: 74 73 2d 66 6f 72 2d 72 75 6e 20 64 62 20 72 75 ts-for-run db ru
3160: 6e 2d 69 64 20 2e 20 70 61 72 61 6d 73 29 0a 20 n-id . params).
3170: 20 28 6c 65 74 20 28 28 72 65 73 20 27 28 29 29 (let ((res '())
3180: 0a 09 28 74 65 73 74 70 61 74 74 20 28 69 66 20 ..(testpatt (if
3190: 28 6f 72 20 28 6e 75 6c 6c 3f 20 70 61 72 61 6d (or (null? param
31a0: 73 29 28 6e 6f 74 20 28 63 61 72 20 70 61 72 61 s)(not (car para
31b0: 6d 73 29 29 29 20 22 25 22 20 28 63 61 72 20 70 ms))) "%" (car p
31c0: 61 72 61 6d 73 29 29 29 0a 09 28 69 74 65 6d 70 arams)))..(itemp
31d0: 61 74 74 20 28 69 66 20 28 3e 20 28 6c 65 6e 67 att (if (> (leng
31e0: 74 68 20 70 61 72 61 6d 73 29 20 31 29 28 63 61 th params) 1)(ca
31f0: 64 72 20 70 61 72 61 6d 73 29 20 22 25 22 29 29 dr params) "%"))
3200: 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 ). (sqlite3:f
3210: 6f 72 2d 65 61 63 68 2d 72 6f 77 20 0a 20 20 20 or-each-row .
3220: 20 20 28 6c 61 6d 62 64 61 20 28 69 64 20 72 75 (lambda (id ru
3230: 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 73 74 n-id testname st
3240: 61 74 65 20 73 74 61 74 75 73 20 65 76 65 6e 74 ate status event
3250: 2d 74 69 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f -time host cpulo
3260: 61 64 20 64 69 73 6b 66 72 65 65 20 75 6e 61 6d ad diskfree unam
3270: 65 20 72 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 e rundir item-pa
3280: 74 68 20 72 75 6e 2d 64 75 72 61 74 69 6f 6e 20 th run-duration
3290: 66 69 6e 61 6c 2d 6c 6f 67 66 20 63 6f 6d 6d 65 final-logf comme
32a0: 6e 74 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 nt). (set!
32b0: 20 72 65 73 20 28 63 6f 6e 73 20 28 76 65 63 74 res (cons (vect
32c0: 6f 72 20 69 64 20 72 75 6e 2d 69 64 20 74 65 73 or id run-id tes
32d0: 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 tname state stat
32e0: 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f us event-time ho
32f0: 73 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 st cpuload diskf
3300: 72 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 ree uname rundir
3310: 20 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 2d 64 item-path run-d
3320: 75 72 61 74 69 6f 6e 20 66 69 6e 61 6c 2d 6c 6f uration final-lo
3330: 67 66 20 63 6f 6d 6d 65 6e 74 29 20 72 65 73 29 gf comment) res)
3340: 29 29 0a 20 20 20 20 20 64 62 20 0a 20 20 20 20 )). db .
3350: 20 22 53 45 4c 45 43 54 20 69 64 2c 72 75 6e 5f "SELECT id,run_
3360: 69 64 2c 74 65 73 74 6e 61 6d 65 2c 73 74 61 74 id,testname,stat
3370: 65 2c 73 74 61 74 75 73 2c 65 76 65 6e 74 5f 74 e,status,event_t
3380: 69 6d 65 2c 68 6f 73 74 2c 63 70 75 6c 6f 61 64 ime,host,cpuload
3390: 2c 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d 65 2c ,diskfree,uname,
33a0: 72 75 6e 64 69 72 2c 69 74 65 6d 5f 70 61 74 68 rundir,item_path
33b0: 2c 72 75 6e 5f 64 75 72 61 74 69 6f 6e 2c 66 69 ,run_duration,fi
33c0: 6e 61 6c 5f 6c 6f 67 66 2c 63 6f 6d 6d 65 6e 74 nal_logf,comment
33d0: 20 46 52 4f 4d 20 74 65 73 74 73 20 57 48 45 52 FROM tests WHER
33e0: 45 20 72 75 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 E run_id=? AND t
33f0: 65 73 74 6e 61 6d 65 20 6c 69 6b 65 20 3f 20 41 estname like ? A
3400: 4e 44 20 69 74 65 6d 5f 70 61 74 68 20 4c 49 4b ND item_path LIK
3410: 45 20 3f 20 4f 52 44 45 52 20 42 59 20 69 64 20 E ? ORDER BY id
3420: 44 45 53 43 3b 22 0a 20 20 20 20 20 72 75 6e 2d DESC;". run-
3430: 69 64 20 74 65 73 74 70 61 74 74 20 28 69 66 20 id testpatt (if
3440: 69 74 65 6d 70 61 74 74 20 69 74 65 6d 70 61 74 itempatt itempat
3450: 74 20 22 25 22 29 29 0a 20 20 20 20 72 65 73 29 t "%")). res)
3460: 29 0a 0a 3b 3b 20 74 68 69 73 20 6f 6e 65 20 69 )..;; this one i
3470: 73 20 61 20 62 69 74 20 62 72 6f 6b 65 6e 20 42 s a bit broken B
3480: 55 47 20 46 49 58 4d 45 0a 28 64 65 66 69 6e 65 UG FIXME.(define
3490: 20 28 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 (db:delete-test
34a0: 2d 73 74 65 70 2d 72 65 63 6f 72 64 73 20 64 62 -step-records db
34b0: 20 72 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 6d run-id test-nam
34c0: 65 20 69 74 65 6d 64 61 74 29 0a 20 20 28 73 71 e itemdat). (sq
34d0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
34e0: 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 65 "DELETE FROM te
34f0: 73 74 5f 73 74 65 70 73 20 57 48 45 52 45 20 74 st_steps WHERE t
3500: 65 73 74 5f 69 64 20 69 6e 20 28 53 45 4c 45 43 est_id in (SELEC
3510: 54 20 69 64 20 46 52 4f 4d 20 74 65 73 74 73 20 T id FROM tests
3520: 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 41 WHERE run_id=? A
3530: 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 4e ND testname=? AN
3540: 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 29 3b 22 D item_path=?);"
3550: 20 0a 09 09 20 20 20 72 75 6e 2d 69 64 20 74 65 ... run-id te
3560: 73 74 2d 6e 61 6d 65 20 28 69 74 65 6d 2d 6c 69 st-name (item-li
3570: 73 74 2d 3e 70 61 74 68 20 69 74 65 6d 64 61 74 st->path itemdat
3580: 29 29 29 0a 3b 3b 20 0a 28 64 65 66 69 6e 65 20 ))).;; .(define
3590: 28 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 2d (db:delete-test-
35a0: 72 65 63 6f 72 64 73 20 64 62 20 74 65 73 74 2d records db test-
35b0: 69 64 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 id). (sqlite3:e
35c0: 78 65 63 75 74 65 20 64 62 20 22 44 45 4c 45 54 xecute db "DELET
35d0: 45 20 46 52 4f 4d 20 74 65 73 74 5f 73 74 65 70 E FROM test_step
35e0: 73 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 3d s WHERE test_id=
35f0: 3f 3b 22 20 74 65 73 74 2d 69 64 29 0a 20 20 28 ?;" test-id). (
3600: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
3610: 64 62 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 db "DELETE FROM
3620: 74 65 73 74 73 20 57 48 45 52 45 20 69 64 3d 3f tests WHERE id=?
3630: 3b 22 20 74 65 73 74 2d 69 64 29 29 0a 0a 3b 3b ;" test-id))..;;
3640: 20 73 65 74 20 74 65 73 74 73 20 77 69 74 68 20 set tests with
3650: 73 74 61 74 65 20 63 75 72 72 73 74 61 74 65 20 state currstate
3660: 61 6e 64 20 73 74 61 74 75 73 20 63 75 72 72 73 and status currs
3670: 74 61 74 75 73 20 74 6f 20 6e 65 77 73 74 61 74 tatus to newstat
3680: 65 20 61 6e 64 20 6e 65 77 73 74 61 74 75 73 0a e and newstatus.
3690: 3b 3b 20 75 73 65 20 63 75 72 72 73 74 61 74 65 ;; use currstate
36a0: 20 3d 20 23 66 20 61 6e 64 20 6f 72 20 63 75 72 = #f and or cur
36b0: 72 73 74 61 74 75 73 20 3d 20 23 66 20 74 6f 20 rstatus = #f to
36c0: 61 70 70 6c 79 20 74 6f 20 61 6e 79 20 73 74 61 apply to any sta
36d0: 74 65 20 6f 72 20 73 74 61 74 75 73 20 72 65 73 te or status res
36e0: 70 65 63 74 69 76 65 6c 79 0a 3b 3b 20 57 41 52 pectively.;; WAR
36f0: 4e 49 4e 47 3a 20 53 51 4c 20 69 6e 6a 65 63 74 NING: SQL inject
3700: 69 6f 6e 20 72 69 73 6b 0a 28 64 65 66 69 6e 65 ion risk.(define
3710: 20 28 64 62 3a 73 65 74 2d 74 65 73 74 73 2d 73 (db:set-tests-s
3720: 74 61 74 65 2d 73 74 61 74 75 73 20 64 62 20 72 tate-status db r
3730: 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 73 20 un-id testnames
3740: 63 75 72 72 73 74 61 74 65 20 63 75 72 72 73 74 currstate currst
3750: 61 74 75 73 20 6e 65 77 73 74 61 74 65 20 6e 65 atus newstate ne
3760: 77 73 74 61 74 75 73 29 0a 20 20 28 66 6f 72 2d wstatus). (for-
3770: 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 74 65 each (lambda (te
3780: 73 74 6e 61 6d 65 29 0a 09 20 20 20 20 20 20 28 stname).. (
3790: 6c 65 74 20 28 28 71 72 79 20 28 63 6f 6e 63 20 let ((qry (conc
37a0: 22 55 50 44 41 54 45 20 74 65 73 74 73 20 53 45 "UPDATE tests SE
37b0: 54 20 73 74 61 74 65 3d 3f 2c 73 74 61 74 75 73 T state=?,status
37c0: 3d 3f 20 57 48 45 52 45 20 22 0a 09 09 09 09 09 =? WHERE "......
37d0: 28 69 66 20 63 75 72 72 73 74 61 74 65 20 20 28 (if currstate (
37e0: 63 6f 6e 63 20 22 73 74 61 74 65 3d 27 22 20 63 conc "state='" c
37f0: 75 72 72 73 74 61 74 65 20 22 27 20 41 4e 44 20 urrstate "' AND
3800: 22 29 20 22 22 29 0a 09 09 09 09 09 28 69 66 20 ") "")......(if
3810: 63 75 72 72 73 74 61 74 75 73 20 28 63 6f 6e 63 currstatus (conc
3820: 20 22 73 74 61 74 75 73 3d 27 22 20 63 75 72 72 "status='" curr
3830: 73 74 61 74 75 73 20 22 27 20 41 4e 44 20 22 29 status "' AND ")
3840: 20 22 22 29 0a 09 09 09 09 09 22 20 72 75 6e 5f "")......" run_
3850: 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e 61 6d id=? AND testnam
3860: 65 3d 3f 20 41 4e 44 20 4e 4f 54 20 28 69 74 65 e=? AND NOT (ite
3870: 6d 5f 70 61 74 68 3d 27 27 20 41 4e 44 20 74 65 m_path='' AND te
3880: 73 74 6e 61 6d 65 20 69 6e 20 28 53 45 4c 45 43 stname in (SELEC
3890: 54 20 44 49 53 54 49 4e 43 54 20 74 65 73 74 6e T DISTINCT testn
38a0: 61 6d 65 20 46 52 4f 4d 20 74 65 73 74 73 20 57 ame FROM tests W
38b0: 48 45 52 45 20 74 65 73 74 6e 61 6d 65 3d 3f 20 HERE testname=?
38c0: 41 4e 44 20 69 74 65 6d 5f 70 61 74 68 20 21 3d AND item_path !=
38d0: 20 27 27 29 29 3b 22 29 29 29 0a 09 09 3b 3b 28 ''));")))...;;(
38e0: 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 22 51 debug:print 0 "Q
38f0: 52 59 3a 20 22 20 71 72 79 29 0a 09 09 28 73 71 RY: " qry)...(sq
3900: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
3910: 20 71 72 79 20 72 75 6e 2d 69 64 20 6e 65 77 73 qry run-id news
3920: 74 61 74 65 20 6e 65 77 73 74 61 74 75 73 20 74 tate newstatus t
3930: 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 estname testname
3940: 29 29 29 0a 09 20 20 20 20 74 65 73 74 6e 61 6d ))).. testnam
3950: 65 73 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 es))..(define (d
3960: 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 73 2d 69 b:delete-tests-i
3970: 6e 2d 73 74 61 74 65 20 64 62 20 72 75 6e 2d 69 n-state db run-i
3980: 64 20 73 74 61 74 65 29 0a 20 20 28 73 71 6c 69 d state). (sqli
3990: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
39a0: 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 65 73 74 DELETE FROM test
39b0: 73 20 57 48 45 52 45 20 73 74 61 74 65 3d 3f 20 s WHERE state=?
39c0: 41 4e 44 20 72 75 6e 5f 69 64 3d 3f 3b 22 20 73 AND run_id=?;" s
39d0: 74 61 74 65 20 72 75 6e 2d 69 64 29 29 0a 0a 28 tate run-id))..(
39e0: 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d define (db:test-
39f0: 73 65 74 2d 73 74 61 74 65 2d 73 74 61 74 75 73 set-state-status
3a00: 2d 62 79 2d 69 64 20 64 62 20 74 65 73 74 2d 69 -by-id db test-i
3a10: 64 20 6e 65 77 73 74 61 74 65 20 6e 65 77 73 74 d newstate newst
3a20: 61 74 75 73 20 6e 65 77 63 6f 6d 6d 65 6e 74 29 atus newcomment)
3a30: 0a 20 20 28 69 66 20 6e 65 77 73 74 61 74 65 20 . (if newstate
3a40: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
3a50: 74 65 20 64 62 20 22 55 50 44 41 54 45 20 74 65 te db "UPDATE te
3a60: 73 74 73 20 53 45 54 20 73 74 61 74 65 3d 3f 20 sts SET state=?
3a70: 20 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 6e WHERE id=?;" n
3a80: 65 77 73 74 61 74 65 20 20 20 74 65 73 74 2d 69 ewstate test-i
3a90: 64 29 29 0a 20 20 28 69 66 20 6e 65 77 73 74 61 d)). (if newsta
3aa0: 74 75 73 20 20 28 73 71 6c 69 74 65 33 3a 65 78 tus (sqlite3:ex
3ab0: 65 63 75 74 65 20 64 62 20 22 55 50 44 41 54 45 ecute db "UPDATE
3ac0: 20 74 65 73 74 73 20 53 45 54 20 73 74 61 74 75 tests SET statu
3ad0: 73 3d 3f 20 20 57 48 45 52 45 20 69 64 3d 3f 3b s=? WHERE id=?;
3ae0: 22 20 6e 65 77 73 74 61 74 75 73 20 20 74 65 73 " newstatus tes
3af0: 74 2d 69 64 29 29 0a 20 20 28 69 66 20 6e 65 77 t-id)). (if new
3b00: 63 6f 6d 6d 65 6e 74 20 28 73 71 6c 69 74 65 33 comment (sqlite3
3b10: 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 50 44 :execute db "UPD
3b20: 41 54 45 20 74 65 73 74 73 20 53 45 54 20 63 6f ATE tests SET co
3b30: 6d 6d 65 6e 74 3d 3f 20 57 48 45 52 45 20 69 64 mment=? WHERE id
3b40: 3d 3f 3b 22 20 6e 65 77 63 6f 6d 6d 65 6e 74 20 =?;" newcomment
3b50: 74 65 73 74 2d 69 64 29 29 29 0a 0a 28 64 65 66 test-id)))..(def
3b60: 69 6e 65 20 28 64 62 3a 67 65 74 2d 63 6f 75 6e ine (db:get-coun
3b70: 74 2d 74 65 73 74 73 2d 72 75 6e 6e 69 6e 67 20 t-tests-running
3b80: 64 62 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 db). (let ((res
3b90: 20 30 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 0)). (sqlite
3ba0: 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 3:for-each-row.
3bb0: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 75 (lambda (cou
3bc0: 6e 74 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 nt). (set!
3bd0: 20 72 65 73 20 63 6f 75 6e 74 29 29 0a 20 20 20 res count)).
3be0: 20 20 64 62 0a 20 20 20 20 20 22 53 45 4c 45 43 db. "SELEC
3bf0: 54 20 63 6f 75 6e 74 28 69 64 29 20 46 52 4f 4d T count(id) FROM
3c00: 20 74 65 73 74 73 20 57 48 45 52 45 20 73 74 61 tests WHERE sta
3c10: 74 65 20 3d 20 27 52 55 4e 4e 49 4e 47 27 20 4f te = 'RUNNING' O
3c20: 52 20 73 74 61 74 65 20 3d 20 27 4c 41 55 4e 43 R state = 'LAUNC
3c30: 48 45 44 27 20 4f 52 20 73 74 61 74 65 20 3d 20 HED' OR state =
3c40: 27 52 45 4d 4f 54 45 48 4f 53 54 53 54 41 52 54 'REMOTEHOSTSTART
3c50: 27 3b 22 29 0a 20 20 20 20 72 65 73 29 29 0a 0a ';"). res))..
3c60: 3b 3b 20 64 6f 6e 65 20 77 69 74 68 20 72 75 6e ;; done with run
3c70: 20 77 68 65 6e 3a 0a 3b 3b 20 20 20 30 20 74 65 when:.;; 0 te
3c80: 73 74 73 20 69 6e 20 4c 41 55 4e 43 48 45 44 2c sts in LAUNCHED,
3c90: 20 4e 4f 54 5f 53 54 41 52 54 45 44 2c 20 52 45 NOT_STARTED, RE
3ca0: 4d 4f 54 45 48 4f 53 54 53 54 41 52 54 2c 20 52 MOTEHOSTSTART, R
3cb0: 55 4e 4e 49 4e 47 0a 28 64 65 66 69 6e 65 20 28 UNNING.(define (
3cc0: 64 62 3a 65 73 74 69 6d 61 74 65 64 2d 74 65 73 db:estimated-tes
3cd0: 74 73 2d 72 65 6d 61 69 6e 69 6e 67 20 64 62 20 ts-remaining db
3ce0: 72 75 6e 2d 69 64 29 0a 20 20 28 6c 65 74 20 28 run-id). (let (
3cf0: 28 72 65 73 20 30 29 29 0a 20 20 20 20 28 73 71 (res 0)). (sq
3d00: 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 lite3:for-each-r
3d10: 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 ow. (lambda
3d20: 28 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 28 (count). (
3d30: 73 65 74 21 20 72 65 73 20 63 6f 75 6e 74 29 29 set! res count))
3d40: 0a 20 20 20 20 20 64 62 20 3b 3b 20 4e 42 2f 2f . db ;; NB//
3d50: 20 4b 49 4c 4c 52 45 51 20 6d 65 61 6e 73 20 74 KILLREQ means t
3d60: 68 65 20 6a 6f 62 73 20 69 73 20 73 74 69 6c 6c he jobs is still
3d70: 20 70 72 6f 62 61 62 6c 79 20 72 75 6e 6e 69 6e probably runnin
3d80: 67 0a 20 20 20 20 20 22 53 45 4c 45 43 54 20 63 g. "SELECT c
3d90: 6f 75 6e 74 28 69 64 29 20 46 52 4f 4d 20 74 65 ount(id) FROM te
3da0: 73 74 73 20 57 48 45 52 45 20 73 74 61 74 65 20 sts WHERE state
3db0: 69 6e 20 28 27 4c 41 55 4e 43 48 45 44 27 2c 27 in ('LAUNCHED','
3dc0: 4e 4f 54 5f 53 54 41 52 54 45 44 27 2c 27 52 45 NOT_STARTED','RE
3dd0: 4d 4f 54 45 48 4f 53 54 53 54 41 52 54 27 2c 27 MOTEHOSTSTART','
3de0: 52 55 4e 4e 49 4e 47 27 2c 27 4b 49 4c 4c 52 45 RUNNING','KILLRE
3df0: 51 27 29 20 41 4e 44 20 72 75 6e 5f 69 64 3d 3f Q') AND run_id=?
3e00: 3b 22 20 72 75 6e 2d 69 64 29 0a 20 20 20 20 72 ;" run-id). r
3e10: 65 73 29 29 0a 0a 3b 3b 20 4e 42 2f 2f 20 53 79 es))..;; NB// Sy
3e20: 6e 63 20 74 68 69 73 20 77 69 74 68 20 72 75 6e nc this with run
3e30: 73 3a 67 65 74 2d 74 65 73 74 2d 69 6e 66 6f 0a s:get-test-info.
3e40: 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 2d (define (db:get-
3e50: 74 65 73 74 2d 69 6e 66 6f 20 64 62 20 72 75 6e test-info db run
3e60: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
3e70: 6d 2d 70 61 74 68 29 0a 20 20 28 6c 65 74 20 28 m-path). (let (
3e80: 28 72 65 73 20 23 66 29 29 0a 20 20 20 20 28 73 (res #f)). (s
3e90: 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d qlite3:for-each-
3ea0: 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 row. (lambda
3eb0: 20 28 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 (id run-id test
3ec0: 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 name state statu
3ed0: 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 s event-time hos
3ee0: 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 t cpuload diskfr
3ef0: 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 ee uname rundir
3f00: 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 5f 64 75 item-path run_du
3f10: 72 61 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f 67 ration final_log
3f20: 66 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 f comment).
3f30: 20 20 28 73 65 74 21 20 72 65 73 20 28 76 65 63 (set! res (vec
3f40: 74 6f 72 20 69 64 20 72 75 6e 2d 69 64 20 74 65 tor id run-id te
3f50: 73 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 stname state sta
3f60: 74 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 tus event-time h
3f70: 6f 73 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b ost cpuload disk
3f80: 66 72 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 free uname rundi
3f90: 72 20 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 5f r item-path run_
3fa0: 64 75 72 61 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c duration final_l
3fb0: 6f 67 66 20 63 6f 6d 6d 65 6e 74 29 29 29 0a 20 ogf comment))).
3fc0: 20 20 20 20 64 62 20 0a 20 20 20 20 20 22 53 45 db . "SE
3fd0: 4c 45 43 54 20 69 64 2c 72 75 6e 5f 69 64 2c 74 LECT id,run_id,t
3fe0: 65 73 74 6e 61 6d 65 2c 73 74 61 74 65 2c 73 74 estname,state,st
3ff0: 61 74 75 73 2c 65 76 65 6e 74 5f 74 69 6d 65 2c atus,event_time,
4000: 68 6f 73 74 2c 63 70 75 6c 6f 61 64 2c 64 69 73 host,cpuload,dis
4010: 6b 66 72 65 65 2c 75 6e 61 6d 65 2c 72 75 6e 64 kfree,uname,rund
4020: 69 72 2c 69 74 65 6d 5f 70 61 74 68 2c 72 75 6e ir,item_path,run
4030: 5f 64 75 72 61 74 69 6f 6e 2c 66 69 6e 61 6c 5f _duration,final_
4040: 6c 6f 67 66 2c 63 6f 6d 6d 65 6e 74 20 46 52 4f logf,comment FRO
4050: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 72 75 M tests WHERE ru
4060: 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e n_id=? AND testn
4070: 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f 70 ame=? AND item_p
4080: 61 74 68 3d 3f 3b 22 0a 20 20 20 20 20 72 75 6e ath=?;". run
4090: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
40a0: 6d 2d 70 61 74 68 29 0a 20 20 20 20 72 65 73 29 m-path). res)
40b0: 29 0a 0a 3b 3b 20 47 65 74 20 74 65 73 74 20 64 )..;; Get test d
40c0: 61 74 61 20 75 73 69 6e 67 20 74 65 73 74 5f 69 ata using test_i
40d0: 64 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 d.(define (db:ge
40e0: 74 2d 74 65 73 74 2d 64 61 74 61 2d 62 79 2d 69 t-test-data-by-i
40f0: 64 20 64 62 20 74 65 73 74 2d 69 64 29 0a 20 20 d db test-id).
4100: 28 6c 65 74 20 28 28 72 65 73 20 23 66 29 29 0a (let ((res #f)).
4110: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 (sqlite3:for
4120: 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 -each-row. (
4130: 6c 61 6d 62 64 61 20 28 69 64 20 72 75 6e 2d 69 lambda (id run-i
4140: 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 74 65 d testname state
4150: 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 status event-ti
4160: 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 64 20 me host cpuload
4170: 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 20 72 diskfree uname r
4180: 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 68 20 undir item-path
4190: 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 69 6e run_duration fin
41a0: 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e 74 29 al_logf comment)
41b0: 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 . (set! re
41c0: 73 20 28 76 65 63 74 6f 72 20 69 64 20 72 75 6e s (vector id run
41d0: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 -id testname sta
41e0: 74 65 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d te status event-
41f0: 74 69 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 time host cpuloa
4200: 64 20 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 d diskfree uname
4210: 20 72 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 rundir item-pat
4220: 68 20 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 h run_duration f
4230: 69 6e 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e inal_logf commen
4240: 74 29 29 29 0a 20 20 20 20 20 64 62 20 0a 20 20 t))). db .
4250: 20 20 20 22 53 45 4c 45 43 54 20 69 64 2c 72 75 "SELECT id,ru
4260: 6e 5f 69 64 2c 74 65 73 74 6e 61 6d 65 2c 73 74 n_id,testname,st
4270: 61 74 65 2c 73 74 61 74 75 73 2c 65 76 65 6e 74 ate,status,event
4280: 5f 74 69 6d 65 2c 68 6f 73 74 2c 63 70 75 6c 6f _time,host,cpulo
4290: 61 64 2c 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d ad,diskfree,unam
42a0: 65 2c 72 75 6e 64 69 72 2c 69 74 65 6d 5f 70 61 e,rundir,item_pa
42b0: 74 68 2c 72 75 6e 5f 64 75 72 61 74 69 6f 6e 2c th,run_duration,
42c0: 66 69 6e 61 6c 5f 6c 6f 67 66 2c 63 6f 6d 6d 65 final_logf,comme
42d0: 6e 74 20 46 52 4f 4d 20 74 65 73 74 73 20 57 48 nt FROM tests WH
42e0: 45 52 45 20 69 64 3d 3f 3b 22 0a 20 20 20 20 20 ERE id=?;".
42f0: 74 65 73 74 2d 69 64 29 0a 20 20 20 20 72 65 73 test-id). res
4300: 29 29 0a 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 ))...(define (db
4310: 3a 74 65 73 74 2d 73 65 74 2d 63 6f 6d 6d 65 6e :test-set-commen
4320: 74 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 t db run-id test
4330: 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 63 name item-path c
4340: 6f 6d 6d 65 6e 74 29 0a 20 20 28 73 71 6c 69 74 omment). (sqlit
4350: 65 33 3a 65 78 65 63 75 74 65 20 0a 20 20 20 64 e3:execute . d
4360: 62 20 0a 20 20 20 22 55 50 44 41 54 45 20 74 65 b . "UPDATE te
4370: 73 74 73 20 53 45 54 20 63 6f 6d 6d 65 6e 74 3d sts SET comment=
4380: 3f 20 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f ? WHERE run_id=?
4390: 20 41 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 AND testname=?
43a0: 41 4e 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 3b AND item_path=?;
43b0: 22 0a 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 ". comment r
43c0: 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 un-id testname i
43d0: 74 65 6d 2d 70 61 74 68 29 29 0a 0a 3b 3b 0a 28 tem-path))..;;.(
43e0: 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d define (db:test-
43f0: 73 65 74 2d 72 75 6e 64 69 72 21 20 64 62 20 72 set-rundir! db r
4400: 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 un-id testname i
4410: 74 65 6d 2d 70 61 74 68 20 72 75 6e 64 69 72 29 tem-path rundir)
4420: 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
4430: 75 74 65 20 0a 20 20 20 64 62 20 0a 20 20 20 22 ute . db . "
4440: 55 50 44 41 54 45 20 74 65 73 74 73 20 53 45 54 UPDATE tests SET
4450: 20 72 75 6e 64 69 72 3d 3f 20 57 48 45 52 45 20 rundir=? WHERE
4460: 72 75 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 run_id=? AND tes
4470: 74 6e 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d tname=? AND item
4480: 5f 70 61 74 68 3d 3f 3b 22 0a 20 20 20 20 20 72 _path=?;". r
4490: 75 6e 64 69 72 20 72 75 6e 2d 69 64 20 74 65 73 undir run-id tes
44a0: 74 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 29 tname item-path)
44b0: 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d )..;;===========
44c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
44f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 54 ===========.;; T
4500: 65 73 74 73 20 6d 65 74 61 20 64 61 74 61 0a 3b ests meta data.;
4510: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;===============
4520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4550: 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 6d 61 6b 65 =======..;; make
4560: 2d 76 65 63 74 6f 72 2d 72 65 63 6f 72 64 20 64 -vector-record d
4570: 62 20 74 65 73 74 6d 65 74 61 20 69 64 20 74 65 b testmeta id te
4580: 73 74 6e 61 6d 65 20 61 75 74 68 6f 72 20 6f 77 stname author ow
4590: 6e 65 72 20 64 65 73 63 72 69 70 74 69 6f 6e 20 ner description
45a0: 72 65 76 69 65 77 65 64 20 69 74 65 72 61 74 65 reviewed iterate
45b0: 64 20 61 76 67 5f 72 75 6e 74 69 6d 65 20 61 76 d avg_runtime av
45c0: 67 5f 64 69 73 6b 0a 28 64 65 66 69 6e 65 20 28 g_disk.(define (
45d0: 6d 61 6b 65 2d 64 62 3a 74 65 73 74 6d 65 74 61 make-db:testmeta
45e0: 29 28 6d 61 6b 65 2d 76 65 63 74 6f 72 20 31 30 )(make-vector 10
45f0: 20 22 22 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e "")).(define-in
4600: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 line (db:testmet
4610: 61 2d 67 65 74 2d 69 64 20 20 20 20 20 20 20 20 a-get-id
4620: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec
4630: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 tor-ref vec 0))
4640: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline
4650: 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 (db:testmeta-get
4660: 2d 74 65 73 74 6e 61 6d 65 20 20 20 20 20 20 76 -testname v
4670: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r
4680: 65 66 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 ef vec 1)).(def
4690: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
46a0: 65 73 74 6d 65 74 61 2d 67 65 74 2d 61 75 74 68 estmeta-get-auth
46b0: 6f 72 20 20 20 20 20 20 20 20 76 65 63 29 20 20 or vec)
46c0: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v
46d0: 65 63 20 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 2)).(define-i
46e0: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 nline (db:testme
46f0: 74 61 2d 67 65 74 2d 6f 77 6e 65 72 20 20 20 20 ta-get-owner
4700: 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 vec) (ve
4710: 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 33 29 ctor-ref vec 3)
4720: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
4730: 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 65 (db:testmeta-ge
4740: 74 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 20 20 t-description
4750: 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d vec) (vector-
4760: 72 65 66 20 20 76 65 63 20 34 29 29 0a 28 64 65 ref vec 4)).(de
4770: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
4780: 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 72 65 76 testmeta-get-rev
4790: 69 65 77 65 64 20 20 20 20 20 20 76 65 63 29 20 iewed vec)
47a0: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref
47b0: 76 65 63 20 35 29 29 0a 28 64 65 66 69 6e 65 2d vec 5)).(define-
47c0: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d inline (db:testm
47d0: 65 74 61 2d 67 65 74 2d 69 74 65 72 61 74 65 64 eta-get-iterated
47e0: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v
47f0: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 36 ector-ref vec 6
4800: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
4810: 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 e (db:testmeta-g
4820: 65 74 2d 61 76 67 5f 72 75 6e 74 69 6d 65 20 20 et-avg_runtime
4830: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector
4840: 2d 72 65 66 20 20 76 65 63 20 37 29 29 0a 28 64 -ref vec 7)).(d
4850: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
4860: 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 61 76 :testmeta-get-av
4870: 67 5f 64 69 73 6b 20 20 20 20 20 20 76 65 63 29 g_disk vec)
4880: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
4890: 20 76 65 63 20 38 29 29 0a 28 64 65 66 69 6e 65 vec 8)).(define
48a0: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test
48b0: 6d 65 74 61 2d 67 65 74 2d 74 61 67 73 20 20 20 meta-get-tags
48c0: 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 vec) (
48d0: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec
48e0: 39 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 9)).(define-inli
48f0: 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d ne (db:testmeta-
4900: 73 65 74 2d 69 64 21 20 20 20 20 20 20 20 20 20 set-id!
4910: 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f vec val)(vecto
4920: 72 2d 73 65 74 21 20 76 65 63 20 30 20 76 61 6c r-set! vec 0 val
4930: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
4940: 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 e (db:testmeta-s
4950: 65 74 2d 74 65 73 74 6e 61 6d 65 21 20 20 20 20 et-testname!
4960: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector
4970: 2d 73 65 74 21 20 76 65 63 20 31 20 76 61 6c 29 -set! vec 1 val)
4980: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
4990: 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 (db:testmeta-se
49a0: 74 2d 61 75 74 68 6f 72 21 20 20 20 20 20 20 20 t-author!
49b0: 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d vec val)(vector-
49c0: 73 65 74 21 20 76 65 63 20 32 20 76 61 6c 29 29 set! vec 2 val))
49d0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline
49e0: 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 (db:testmeta-set
49f0: 2d 6f 77 6e 65 72 21 20 20 20 20 20 20 20 20 76 -owner! v
4a00: 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 ec val)(vector-s
4a10: 65 74 21 20 76 65 63 20 33 20 76 61 6c 29 29 0a et! vec 3 val)).
4a20: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
4a30: 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 2d db:testmeta-set-
4a40: 64 65 73 63 72 69 70 74 69 6f 6e 21 20 20 76 65 description! ve
4a50: 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 c val)(vector-se
4a60: 74 21 20 76 65 63 20 34 20 76 61 6c 29 29 0a 28 t! vec 4 val)).(
4a70: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
4a80: 62 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 2d 72 b:testmeta-set-r
4a90: 65 76 69 65 77 65 64 21 20 20 20 20 20 76 65 63 eviewed! vec
4aa0: 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 val)(vector-set
4ab0: 21 20 76 65 63 20 35 20 76 61 6c 29 29 0a 28 64 ! vec 5 val)).(d
4ac0: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
4ad0: 3a 74 65 73 74 6d 65 74 61 2d 73 65 74 2d 69 74 :testmeta-set-it
4ae0: 65 72 61 74 65 64 21 20 20 20 20 20 76 65 63 20 erated! vec
4af0: 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 val)(vector-set!
4b00: 20 76 65 63 20 36 20 76 61 6c 29 29 0a 28 64 65 vec 6 val)).(de
4b10: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db:
4b20: 74 65 73 74 6d 65 74 61 2d 73 65 74 2d 61 76 67 testmeta-set-avg
4b30: 5f 72 75 6e 74 69 6d 65 21 20 20 76 65 63 20 76 _runtime! vec v
4b40: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
4b50: 76 65 63 20 37 20 76 61 6c 29 29 0a 28 64 65 66 vec 7 val)).(def
4b60: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 ine-inline (db:t
4b70: 65 73 74 6d 65 74 61 2d 73 65 74 2d 61 76 67 5f estmeta-set-avg_
4b80: 64 69 73 6b 21 20 20 20 20 20 76 65 63 20 76 61 disk! vec va
4b90: 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 l)(vector-set! v
4ba0: 65 63 20 38 20 76 61 6c 29 29 0a 0a 3b 3b 20 72 ec 8 val))..;; r
4bb0: 65 61 64 20 74 68 65 20 72 65 63 6f 72 64 20 67 ead the record g
4bc0: 69 76 65 6e 20 61 20 74 65 73 74 6e 61 6d 65 0a iven a testname.
4bd0: 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 (define (db:test
4be0: 6d 65 74 61 2d 67 65 74 2d 72 65 63 6f 72 64 20 meta-get-record
4bf0: 64 62 20 74 65 73 74 6e 61 6d 65 29 0a 20 20 28 db testname). (
4c00: 6c 65 74 20 28 28 72 65 73 20 23 66 29 29 0a 20 let ((res #f)).
4c10: 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d (sqlite3:for-
4c20: 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 6c each-row. (l
4c30: 61 6d 62 64 61 20 28 69 64 20 74 65 73 74 6e 61 ambda (id testna
4c40: 6d 65 20 61 75 74 68 6f 72 20 6f 77 6e 65 72 20 me author owner
4c50: 64 65 73 63 72 69 70 74 69 6f 6e 20 72 65 76 69 description revi
4c60: 65 77 65 64 20 69 74 65 72 61 74 65 64 20 61 76 ewed iterated av
4c70: 67 5f 72 75 6e 74 69 6d 65 20 61 76 67 5f 64 69 g_runtime avg_di
4c80: 73 6b 20 74 61 67 73 29 0a 20 20 20 20 20 20 20 sk tags).
4c90: 28 73 65 74 21 20 72 65 73 20 28 76 65 63 74 6f (set! res (vecto
4ca0: 72 20 69 64 20 74 65 73 74 6e 61 6d 65 20 61 75 r id testname au
4cb0: 74 68 6f 72 20 6f 77 6e 65 72 20 64 65 73 63 72 thor owner descr
4cc0: 69 70 74 69 6f 6e 20 72 65 76 69 65 77 65 64 20 iption reviewed
4cd0: 69 74 65 72 61 74 65 64 20 61 76 67 5f 72 75 6e iterated avg_run
4ce0: 74 69 6d 65 20 61 76 67 5f 64 69 73 6b 20 74 61 time avg_disk ta
4cf0: 67 73 29 29 29 0a 20 20 20 20 20 64 62 20 22 53 gs))). db "S
4d00: 45 4c 45 43 54 20 69 64 2c 74 65 73 74 6e 61 6d ELECT id,testnam
4d10: 65 2c 61 75 74 68 6f 72 2c 6f 77 6e 65 72 2c 64 e,author,owner,d
4d20: 65 73 63 72 69 70 74 69 6f 6e 2c 72 65 76 69 65 escription,revie
4d30: 77 65 64 2c 69 74 65 72 61 74 65 64 2c 61 76 67 wed,iterated,avg
4d40: 5f 72 75 6e 74 69 6d 65 2c 61 76 67 5f 64 69 73 _runtime,avg_dis
4d50: 6b 2c 74 61 67 73 20 46 52 4f 4d 20 74 65 73 74 k,tags FROM test
4d60: 5f 6d 65 74 61 20 57 48 45 52 45 20 74 65 73 74 _meta WHERE test
4d70: 6e 61 6d 65 3d 3f 3b 22 0a 20 20 20 20 20 74 65 name=?;". te
4d80: 73 74 6e 61 6d 65 29 0a 20 20 20 20 72 65 73 29 stname). res)
4d90: 29 0a 0a 3b 3b 20 63 72 65 61 74 65 20 61 20 6e )..;; create a n
4da0: 65 77 20 72 65 63 6f 72 64 20 66 6f 72 20 61 20 ew record for a
4db0: 67 69 76 65 6e 20 74 65 73 74 6e 61 6d 65 0a 28 given testname.(
4dc0: 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 6d define (db:testm
4dd0: 65 74 61 2d 61 64 64 2d 72 65 63 6f 72 64 20 64 eta-add-record d
4de0: 62 20 74 65 73 74 6e 61 6d 65 29 0a 20 20 28 73 b testname). (s
4df0: 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 qlite3:execute d
4e00: 62 20 22 49 4e 53 45 52 54 20 4f 52 20 49 47 4e b "INSERT OR IGN
4e10: 4f 52 45 20 49 4e 54 4f 20 74 65 73 74 5f 6d 65 ORE INTO test_me
4e20: 74 61 20 28 74 65 73 74 6e 61 6d 65 2c 61 75 74 ta (testname,aut
4e30: 68 6f 72 2c 6f 77 6e 65 72 2c 64 65 73 63 72 69 hor,owner,descri
4e40: 70 74 69 6f 6e 2c 72 65 76 69 65 77 65 64 2c 69 ption,reviewed,i
4e50: 74 65 72 61 74 65 64 2c 61 76 67 5f 72 75 6e 74 terated,avg_runt
4e60: 69 6d 65 2c 61 76 67 5f 64 69 73 6b 2c 74 61 67 ime,avg_disk,tag
4e70: 73 29 20 56 41 4c 55 45 53 20 28 3f 2c 27 27 2c s) VALUES (?,'',
4e80: 27 27 2c 27 27 2c 27 27 2c 27 27 2c 27 27 2c 27 '','','','','','
4e90: 27 2c 27 27 29 3b 22 20 74 65 73 74 6e 61 6d 65 ','');" testname
4ea0: 29 29 0a 0a 3b 3b 20 75 70 64 61 74 65 20 6f 6e ))..;; update on
4eb0: 65 20 6f 66 20 74 68 65 20 74 65 73 74 6d 65 74 e of the testmet
4ec0: 61 20 66 69 65 6c 64 73 0a 28 64 65 66 69 6e 65 a fields.(define
4ed0: 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 75 70 (db:testmeta-up
4ee0: 64 61 74 65 2d 66 69 65 6c 64 20 64 62 20 74 65 date-field db te
4ef0: 73 74 6e 61 6d 65 20 66 69 65 6c 64 20 76 61 6c stname field val
4f00: 75 65 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 ue). (sqlite3:e
4f10: 78 65 63 75 74 65 20 64 62 20 28 63 6f 6e 63 20 xecute db (conc
4f20: 22 55 50 44 41 54 45 20 74 65 73 74 5f 6d 65 74 "UPDATE test_met
4f30: 61 20 53 45 54 20 22 20 66 69 65 6c 64 20 22 3d a SET " field "=
4f40: 3f 20 57 48 45 52 45 20 74 65 73 74 6e 61 6d 65 ? WHERE testname
4f50: 3d 3f 3b 22 29 20 76 61 6c 75 65 20 74 65 73 74 =?;") value test
4f60: 6e 61 6d 65 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d name))..;;======
4f70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fb0: 0a 3b 3b 20 53 74 65 70 73 0a 3b 3b 3d 3d 3d 3d .;; Steps.;;====
4fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5000: 3d 3d 0a 3b 3b 20 52 75 6e 20 73 74 65 70 73 0a ==.;; Run steps.
5010: 3b 3b 20 6d 61 6b 65 2d 76 65 63 74 6f 72 2d 72 ;; make-vector-r
5020: 65 63 6f 72 64 20 22 52 75 6e 20 73 74 65 70 73 ecord "Run steps
5030: 22 20 64 62 20 73 74 65 70 20 69 64 20 74 65 73 " db step id tes
5040: 74 5f 69 64 20 73 74 65 70 6e 61 6d 65 20 73 74 t_id stepname st
5050: 65 70 5f 63 6f 6d 70 6c 65 74 65 20 73 74 65 70 ep_complete step
5060: 5f 70 61 73 73 20 65 76 65 6e 74 5f 74 69 6d 65 _pass event_time
5070: 20 20 20 20 0a 28 64 65 66 69 6e 65 20 28 6d 61 .(define (ma
5080: 6b 65 2d 64 62 3a 73 74 65 70 29 28 6d 61 6b 65 ke-db:step)(make
5090: 2d 76 65 63 74 6f 72 20 36 29 29 0a 28 64 65 66 -vector 6)).(def
50a0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 ine-inline (db:s
50b0: 74 65 70 2d 67 65 74 2d 69 64 20 20 20 20 20 20 tep-get-id
50c0: 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 vec)
50d0: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec
50e0: 20 30 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 0)).(define-inl
50f0: 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 67 65 74 ine (db:step-get
5100: 2d 74 65 73 74 5f 69 64 20 20 20 20 20 20 20 20 -test_id
5110: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector
5120: 2d 72 65 66 20 20 76 65 63 20 31 29 29 0a 28 64 -ref vec 1)).(d
5130: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db
5140: 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 :step-get-stepna
5150: 6d 65 20 20 20 20 20 20 20 20 76 65 63 29 20 20 me vec)
5160: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v
5170: 65 63 20 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 2)).(define-i
5180: 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 67 nline (db:step-g
5190: 65 74 2d 73 74 61 74 65 20 20 20 20 20 20 20 20 et-state
51a0: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect
51b0: 6f 72 2d 72 65 66 20 20 76 65 63 20 33 29 29 0a or-ref vec 3)).
51c0: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline (
51d0: 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 db:step-get-stat
51e0: 75 73 20 20 20 20 20 20 20 20 20 20 76 65 63 29 us vec)
51f0: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
5200: 20 76 65 63 20 34 29 29 0a 28 64 65 66 69 6e 65 vec 4)).(define
5210: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 -inline (db:step
5220: 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 -get-event_time
5230: 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 vec) (ve
5240: 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 35 29 ctor-ref vec 5)
5250: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline
5260: 20 28 64 62 3a 73 74 65 70 2d 73 65 74 2d 69 64 (db:step-set-id
5270: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 ! ve
5280: 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 c val)(vector-se
5290: 74 21 20 76 65 63 20 30 20 76 61 6c 29 29 0a 28 t! vec 0 val)).(
52a0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d
52b0: 62 3a 73 74 65 70 2d 73 65 74 2d 74 65 73 74 5f b:step-set-test_
52c0: 69 64 21 20 20 20 20 20 20 20 20 76 65 63 20 76 id! vec v
52d0: 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 al)(vector-set!
52e0: 76 65 63 20 31 20 76 61 6c 29 29 0a 28 64 65 66 vec 1 val)).(def
52f0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 ine-inline (db:s
5300: 74 65 70 2d 73 65 74 2d 73 74 65 70 6e 61 6d 65 tep-set-stepname
5310: 21 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 ! vec val)
5320: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 (vector-set! vec
5330: 20 32 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2 val)).(define
5340: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 -inline (db:step
5350: 2d 73 65 74 2d 73 74 61 74 65 21 20 20 20 20 20 -set-state!
5360: 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 vec val)(ve
5370: 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 33 20 ctor-set! vec 3
5380: 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e val)).(define-in
5390: 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 73 65 line (db:step-se
53a0: 74 2d 73 74 61 74 75 73 21 20 20 20 20 20 20 20 t-status!
53b0: 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f vec val)(vecto
53c0: 72 2d 73 65 74 21 20 76 65 63 20 34 20 76 61 6c r-set! vec 4 val
53d0: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin
53e0: 65 20 28 64 62 3a 73 74 65 70 2d 73 65 74 2d 65 e (db:step-set-e
53f0: 76 65 6e 74 5f 74 69 6d 65 21 20 20 20 20 20 76 vent_time! v
5400: 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 ec val)(vector-s
5410: 65 74 21 20 76 65 63 20 35 20 76 61 6c 29 29 0a et! vec 5 val)).
5420: 0a 3b 3b 20 64 62 2d 67 65 74 2d 74 65 73 74 2d .;; db-get-test-
5430: 73 74 65 70 73 2d 66 6f 72 2d 72 75 6e 0a 28 64 steps-for-run.(d
5440: 65 66 69 6e 65 20 28 64 62 3a 67 65 74 2d 73 74 efine (db:get-st
5450: 65 70 73 2d 66 6f 72 2d 74 65 73 74 20 64 62 20 eps-for-test db
5460: 74 65 73 74 2d 69 64 29 0a 20 20 28 6c 65 74 20 test-id). (let
5470: 28 28 72 65 73 20 27 28 29 29 29 0a 20 20 20 20 ((res '())).
5480: 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 (sqlite3:for-eac
5490: 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d h-row . (lam
54a0: 62 64 61 20 28 69 64 20 74 65 73 74 2d 69 64 20 bda (id test-id
54b0: 73 74 65 70 6e 61 6d 65 20 73 74 61 74 65 20 73 stepname state s
54c0: 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 tatus event-time
54d0: 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 ). (set! r
54e0: 65 73 20 28 63 6f 6e 73 20 28 76 65 63 74 6f 72 es (cons (vector
54f0: 20 69 64 20 74 65 73 74 2d 69 64 20 73 74 65 70 id test-id step
5500: 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 name state statu
5510: 73 20 65 76 65 6e 74 2d 74 69 6d 65 29 20 72 65 s event-time) re
5520: 73 29 29 29 0a 20 20 20 20 20 64 62 0a 20 20 20 s))). db.
5530: 20 20 22 53 45 4c 45 43 54 20 69 64 2c 74 65 73 "SELECT id,tes
5540: 74 5f 69 64 2c 73 74 65 70 6e 61 6d 65 2c 73 74 t_id,stepname,st
5550: 61 74 65 2c 73 74 61 74 75 73 2c 65 76 65 6e 74 ate,status,event
5560: 5f 74 69 6d 65 20 46 52 4f 4d 20 74 65 73 74 5f _time FROM test_
5570: 73 74 65 70 73 20 57 48 45 52 45 20 74 65 73 74 steps WHERE test
5580: 5f 69 64 3d 3f 20 4f 52 44 45 52 20 42 59 20 69 _id=? ORDER BY i
5590: 64 20 41 53 43 3b 22 20 3b 3b 20 65 76 65 6e 74 d ASC;" ;; event
55a0: 5f 74 69 6d 65 20 44 45 53 43 2c 69 64 20 41 53 _time DESC,id AS
55b0: 43 3b 0a 20 20 20 20 20 74 65 73 74 2d 69 64 29 C;. test-id)
55c0: 0a 20 20 20 20 28 72 65 76 65 72 73 65 20 72 65 . (reverse re
55d0: 73 29 29 29 0a 0a 3b 3b 20 3b 3b 20 63 68 65 63 s)))..;; ;; chec
55e0: 6b 20 74 68 61 74 20 2a 61 6c 6c 2a 20 74 68 65 k that *all* the
55f0: 20 70 72 65 72 65 71 73 20 61 72 65 20 22 43 4f prereqs are "CO
5600: 4d 50 4c 45 54 45 44 22 0a 3b 3b 20 28 64 65 66 MPLETED".;; (def
5610: 69 6e 65 20 28 64 62 2d 67 65 74 2d 70 72 65 72 ine (db-get-prer
5620: 65 71 73 2d 6d 65 74 20 64 62 20 72 75 6e 2d 69 eqs-met db run-i
5630: 64 20 77 61 69 74 6f 6e 29 0a 3b 3b 20 20 20 28 d waiton).;; (
5640: 6c 65 74 20 28 28 72 65 73 20 20 20 20 20 20 20 let ((res
5650: 20 20 20 23 66 29 0a 3b 3b 20 09 28 6e 6f 74 2d #f).;; .(not-
5660: 63 6f 6d 70 6c 65 74 65 20 30 29 0a 3b 3b 20 09 complete 0).;; .
5670: 28 74 65 73 74 73 20 20 20 20 20 20 20 20 28 64 (tests (d
5680: 62 2d 67 65 74 2d 74 65 73 74 73 2d 66 6f 72 2d b-get-tests-for-
5690: 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 29 29 29 run db run-id)))
56a0: 0a 3b 3b 20 20 20 20 20 28 66 6f 72 2d 65 61 63 .;; (for-eac
56b0: 68 0a 3b 3b 20 20 20 20 20 20 28 6c 61 6d 62 64 h.;; (lambd
56c0: 61 20 28 74 65 73 74 2d 6e 61 6d 65 29 0a 3b 3b a (test-name).;;
56d0: 20 20 20 20 20 20 20 20 28 66 6f 72 2d 65 61 63 (for-eac
56e0: 68 20 0a 3b 3b 20 09 28 6c 61 6d 62 64 61 20 28 h .;; .(lambda (
56f0: 74 65 73 74 29 0a 3b 3b 20 09 20 20 28 69 66 20 test).;; . (if
5700: 28 65 71 75 61 6c 3f 20 28 64 62 3a 74 65 73 74 (equal? (db:test
5710: 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 20 74 65 -get-testname te
5720: 73 74 29 20 74 65 73 74 2d 6e 61 6d 65 29 0a 3b st) test-name).;
5730: 3b 20 09 20 20 20 20 20 20 28 62 65 67 69 6e 0a ; . (begin.
5740: 3b 3b 20 09 09 28 73 65 74 21 20 72 65 73 20 23 ;; ..(set! res #
5750: 74 29 0a 3b 3b 20 09 09 28 69 66 20 28 6e 6f 74 t).;; ..(if (not
5760: 20 28 65 71 75 61 6c 3f 20 28 64 62 3a 74 65 73 (equal? (db:tes
5770: 74 2d 67 65 74 2d 73 74 61 74 65 20 74 65 73 74 t-get-state test
5780: 29 20 22 43 4f 4d 50 4c 45 54 45 44 22 29 29 0a ) "COMPLETED")).
5790: 3b 3b 20 09 09 20 20 20 20 28 73 65 74 21 20 6e ;; .. (set! n
57a0: 6f 74 2d 63 6f 6d 70 6c 65 74 65 20 28 2b 20 31 ot-complete (+ 1
57b0: 20 6e 6f 74 2d 63 6f 6d 70 6c 65 74 65 29 29 29 not-complete)))
57c0: 29 29 29 0a 3b 3b 20 09 74 65 73 74 73 29 29 0a ))).;; .tests)).
57d0: 3b 3b 20 20 20 20 20 20 77 61 69 74 6f 6e 29 0a ;; waiton).
57e0: 3b 3b 20 20 20 20 20 28 61 6e 64 20 28 6f 72 20 ;; (and (or
57f0: 28 6e 75 6c 6c 3f 20 77 61 69 74 6f 6e 29 20 72 (null? waiton) r
5800: 65 73 29 0a 3b 3b 20 09 20 28 65 71 3f 20 6e 6f es).;; . (eq? no
5810: 74 2d 63 6f 6d 70 6c 65 74 65 20 30 29 29 29 29 t-complete 0))))
5820: 0a 0a 3b 3b 20 55 53 45 3a 20 28 6c 73 65 74 2d ..;; USE: (lset-
5830: 64 69 66 66 65 72 65 6e 63 65 20 73 74 72 69 6e difference strin
5840: 67 3d 3f 20 27 28 22 61 22 20 22 62 22 20 22 63 g=? '("a" "b" "c
5850: 22 29 20 27 28 22 64 22 20 22 63 22 20 22 65 22 ") '("d" "c" "e"
5860: 20 22 61 22 29 29 0a 3b 3b 0a 3b 3b 20 52 65 74 "a")).;;.;; Ret
5870: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 urn a list of pr
5880: 65 72 65 71 73 20 74 68 61 74 20 77 65 72 65 20 ereqs that were
5890: 4e 4f 54 20 6d 65 74 0a 3b 3b 20 20 54 65 73 74 NOT met.;; Test
58a0: 73 20 28 61 6e 64 20 61 6c 6c 20 69 74 65 6d 73 s (and all items
58b0: 29 20 69 6e 20 77 61 69 74 6f 6e 20 6c 69 73 74 ) in waiton list
58c0: 20 6d 75 73 74 20 62 65 20 22 43 4f 4d 50 4c 45 must be "COMPLE
58d0: 54 45 44 22 20 61 6e 64 20 22 50 41 53 53 22 0a TED" and "PASS".
58e0: 28 64 65 66 69 6e 65 20 28 64 62 2d 67 65 74 2d (define (db-get-
58f0: 70 72 65 72 65 71 73 2d 6e 6f 74 2d 6d 65 74 20 prereqs-not-met
5900: 64 62 20 72 75 6e 2d 69 64 20 77 61 69 74 6f 6e db run-id waiton
5910: 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 77 ). (if (null? w
5920: 61 69 74 6f 6e 29 0a 20 20 20 20 20 20 27 28 29 aiton). '()
5930: 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 75 . (let* ((u
5940: 6e 6d 65 74 2d 70 72 65 2d 72 65 71 73 20 27 28 nmet-pre-reqs '(
5950: 29 29 0a 09 20 20 20 20 20 28 74 65 73 74 73 20 )).. (tests
5960: 20 20 20 20 20 20 20 20 20 20 28 64 62 2d 67 65 (db-ge
5970: 74 2d 74 65 73 74 73 2d 66 6f 72 2d 72 75 6e 20 t-tests-for-run
5980: 64 62 20 72 75 6e 2d 69 64 29 29 0a 09 20 20 20 db run-id))..
5990: 20 20 28 72 65 73 75 6c 74 20 20 20 20 20 20 20 (result
59a0: 20 20 27 28 29 29 29 0a 09 28 66 6f 72 2d 65 61 '()))..(for-ea
59b0: 63 68 20 28 6c 61 6d 62 64 61 20 28 77 61 69 74 ch (lambda (wait
59c0: 6f 6e 74 65 73 74 2d 6e 61 6d 65 29 0a 09 09 20 ontest-name)...
59d0: 20 20 20 28 6c 65 74 20 28 28 65 76 65 72 2d 73 (let ((ever-s
59e0: 65 65 6e 20 23 66 29 29 0a 09 09 20 20 20 20 20 een #f))...
59f0: 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 (for-each (lamb
5a00: 64 61 20 28 74 65 73 74 29 0a 09 09 09 09 20 20 da (test).....
5a10: 28 69 66 20 28 65 71 75 61 6c 3f 20 77 61 69 74 (if (equal? wait
5a20: 6f 6e 74 65 73 74 2d 6e 61 6d 65 20 28 64 62 3a ontest-name (db:
5a30: 74 65 73 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d test-get-testnam
5a40: 65 20 74 65 73 74 29 29 0a 09 09 09 09 20 20 20 e test)).....
5a50: 20 20 20 28 62 65 67 69 6e 0a 09 09 09 09 09 28 (begin......(
5a60: 73 65 74 21 20 65 76 65 72 2d 73 65 65 6e 20 23 set! ever-seen #
5a70: 74 29 0a 09 09 09 09 09 28 69 66 20 28 6e 6f 74 t)......(if (not
5a80: 20 28 61 6e 64 20 28 65 71 75 61 6c 3f 20 28 64 (and (equal? (d
5a90: 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 61 74 65 b:test-get-state
5aa0: 20 74 65 73 74 29 20 22 43 4f 4d 50 4c 45 54 45 test) "COMPLETE
5ab0: 44 22 29 0a 09 09 09 09 09 09 20 20 20 20 20 20 D").......
5ac0: 28 6d 65 6d 62 65 72 20 28 64 62 3a 74 65 73 74 (member (db:test
5ad0: 2d 67 65 74 2d 73 74 61 74 75 73 20 74 65 73 74 -get-status test
5ae0: 29 20 27 28 22 50 41 53 53 22 20 22 57 41 52 4e ) '("PASS" "WARN
5af0: 22 20 22 43 48 45 43 4b 22 29 29 29 29 0a 09 09 " "CHECK"))))...
5b00: 09 09 09 20 20 20 20 28 73 65 74 21 20 72 65 73 ... (set! res
5b10: 75 6c 74 20 28 63 6f 6e 73 20 77 61 69 74 6f 6e ult (cons waiton
5b20: 74 65 73 74 2d 6e 61 6d 65 20 72 65 73 75 6c 74 test-name result
5b30: 29 29 29 29 29 29 0a 09 09 09 09 74 65 73 74 73 )))))).....tests
5b40: 29 0a 09 09 20 20 20 20 20 20 28 69 66 20 28 6e )... (if (n
5b50: 6f 74 20 65 76 65 72 2d 73 65 65 6e 29 28 73 65 ot ever-seen)(se
5b60: 74 21 20 72 65 73 75 6c 74 20 28 63 6f 6e 73 20 t! result (cons
5b70: 77 61 69 74 6f 6e 74 65 73 74 2d 6e 61 6d 65 20 waitontest-name
5b80: 72 65 73 75 6c 74 29 29 29 29 29 0a 09 09 20 20 result)))))...
5b90: 77 61 69 74 6f 6e 29 0a 09 28 64 65 6c 65 74 65 waiton)..(delete
5ba0: 2d 64 75 70 6c 69 63 61 74 65 73 20 72 65 73 75 -duplicates resu
5bb0: 6c 74 29 29 29 29 0a 0a lt))))..