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 75 73 65 20 73 71 6c 69 74 65 33 20 73 ..(use sqlite3 s
0290: 72 66 69 2d 31 20 70 6f 73 69 78 20 72 65 67 65 rfi-1 posix rege
02a0: 78 20 72 65 67 65 78 2d 63 61 73 65 20 73 72 66 x regex-case srf
02b0: 69 2d 36 39 29 0a 28 69 6d 70 6f 72 74 20 28 70 i-69).(import (p
02c0: 72 65 66 69 78 20 73 71 6c 69 74 65 33 20 73 71 refix sqlite3 sq
02d0: 6c 69 74 65 33 3a 29 29 0a 0a 28 64 65 63 6c 61 lite3:))..(decla
02e0: 72 65 20 28 75 6e 69 74 20 64 62 29 29 0a 28 64 re (unit db)).(d
02f0: 65 63 6c 61 72 65 20 28 75 73 65 73 20 63 6f 6d eclare (uses com
0300: 6d 6f 6e 29 29 0a 28 64 65 63 6c 61 72 65 20 28 mon)).(declare (
0310: 75 73 65 73 20 6b 65 79 73 29 29 0a 0a 28 69 6e uses keys))..(in
0320: 63 6c 75 64 65 20 22 63 6f 6d 6d 6f 6e 5f 72 65 clude "common_re
0330: 63 6f 72 64 73 2e 73 63 6d 22 29 0a 28 69 6e 63 cords.scm").(inc
0340: 6c 75 64 65 20 22 64 62 5f 72 65 63 6f 72 64 73 lude "db_records
0350: 2e 73 63 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 .scm").(include
0360: 22 6b 65 79 5f 72 65 63 6f 72 64 73 2e 73 63 6d "key_records.scm
0370: 22 29 0a 0a 28 64 65 66 69 6e 65 20 28 6f 70 65 ")..(define (ope
0380: 6e 2d 64 62 29 20 3b 3b 20 20 28 63 6f 6e 63 20 n-db) ;; (conc
0390: 2a 74 6f 70 70 61 74 68 2a 20 22 2f 6d 65 67 61 *toppath* "/mega
03a0: 74 65 73 74 2e 64 62 22 29 20 28 63 61 72 20 2a test.db") (car *
03b0: 63 6f 6e 66 69 67 69 6e 66 6f 2a 29 29 29 0a 20 configinfo*))).
03c0: 20 28 6c 65 74 2a 20 28 28 64 62 70 61 74 68 20 (let* ((dbpath
03d0: 20 20 20 28 63 6f 6e 63 20 2a 74 6f 70 70 61 74 (conc *toppat
03e0: 68 2a 20 22 2f 6d 65 67 61 74 65 73 74 2e 64 62 h* "/megatest.db
03f0: 22 29 29 20 3b 3b 20 66 6e 61 6d 65 29 0a 09 20 ")) ;; fname)..
0400: 28 63 6f 6e 66 69 67 64 61 74 20 28 63 61 72 20 (configdat (car
0410: 2a 63 6f 6e 66 69 67 69 6e 66 6f 2a 29 29 0a 09 *configinfo*))..
0420: 20 28 64 62 65 78 69 73 74 73 20 20 28 66 69 6c (dbexists (fil
0430: 65 2d 65 78 69 73 74 73 3f 20 64 62 70 61 74 68 e-exists? dbpath
0440: 29 29 0a 09 20 28 64 62 20 20 20 20 20 20 20 20 )).. (db
0450: 28 73 71 6c 69 74 65 33 3a 6f 70 65 6e 2d 64 61 (sqlite3:open-da
0460: 74 61 62 61 73 65 20 64 62 70 61 74 68 29 29 20 tabase dbpath))
0470: 3b 3b 20 28 6e 65 76 65 72 2d 67 69 76 65 2d 75 ;; (never-give-u
0480: 70 2d 6f 70 65 6e 2d 64 62 20 64 62 70 61 74 68 p-open-db dbpath
0490: 29 29 0a 09 20 28 68 61 6e 64 6c 65 72 20 20 20 )).. (handler
04a0: 28 6d 61 6b 65 2d 62 75 73 79 2d 74 69 6d 65 6f (make-busy-timeo
04b0: 75 74 20 33 36 30 30 30 29 29 29 0a 20 20 20 20 ut 36000))).
04c0: 28 73 71 6c 69 74 65 33 3a 73 65 74 2d 62 75 73 (sqlite3:set-bus
04d0: 79 2d 68 61 6e 64 6c 65 72 21 20 64 62 20 68 61 y-handler! db ha
04e0: 6e 64 6c 65 72 29 0a 20 20 20 20 28 69 66 20 28 ndler). (if (
04f0: 6e 6f 74 20 64 62 65 78 69 73 74 73 29 0a 09 28 not dbexists)..(
0500: 6c 65 74 2a 20 28 28 6b 65 79 73 20 20 20 20 20 let* ((keys
0510: 28 63 6f 6e 66 69 67 2d 67 65 74 2d 66 69 65 6c (config-get-fiel
0520: 64 73 20 63 6f 6e 66 69 67 64 61 74 29 29 0a 09 ds configdat))..
0530: 20 20 20 20 20 20 20 28 68 61 76 65 6b 65 79 73 (havekeys
0540: 20 28 3e 20 28 6c 65 6e 67 74 68 20 6b 65 79 73 (> (length keys
0550: 29 20 30 29 29 0a 09 20 20 20 20 20 20 20 28 6b ) 0)).. (k
0560: 65 79 73 74 72 20 20 20 28 6b 65 79 73 2d 3e 6b eystr (keys->k
0570: 65 79 73 74 72 20 6b 65 79 73 29 29 0a 09 20 20 eystr keys))..
0580: 20 20 20 20 20 28 66 69 65 6c 64 73 74 72 20 28 (fieldstr (
0590: 6b 65 79 73 2d 3e 6b 65 79 2f 66 69 65 6c 64 20 keys->key/field
05a0: 6b 65 79 73 29 29 29 0a 09 20 20 28 66 6f 72 2d keys))).. (for-
05b0: 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 6b 65 each (lambda (ke
05c0: 79 29 0a 09 09 20 20 20 20 20 20 28 6c 65 74 20 y)... (let
05d0: 28 28 6b 65 79 6e 20 28 76 65 63 74 6f 72 2d 72 ((keyn (vector-r
05e0: 65 66 20 6b 65 79 20 30 29 29 29 0a 09 09 09 28 ef key 0)))....(
05f0: 69 66 20 28 6d 65 6d 62 65 72 20 28 73 74 72 69 if (member (stri
0600: 6e 67 2d 64 6f 77 6e 63 61 73 65 20 6b 65 79 6e ng-downcase keyn
0610: 29 0a 09 09 09 09 20 20 20 20 20 28 6c 69 73 74 )..... (list
0620: 20 22 72 75 6e 6e 61 6d 65 22 20 22 73 74 61 74 "runname" "stat
0630: 65 22 20 22 73 74 61 74 75 73 22 20 22 6f 77 6e e" "status" "own
0640: 65 72 22 20 22 65 76 65 6e 74 5f 74 69 6d 65 22 er" "event_time"
0650: 20 22 63 6f 6d 6d 65 6e 74 22 20 22 66 61 69 6c "comment" "fail
0660: 5f 63 6f 75 6e 74 22 0a 09 09 09 09 09 20 20 20 _count"......
0670: 22 70 61 73 73 5f 63 6f 75 6e 74 22 29 29 0a 09 "pass_count"))..
0680: 09 09 20 20 20 20 28 62 65 67 69 6e 0a 09 09 09 .. (begin....
0690: 20 20 20 20 20 20 28 70 72 69 6e 74 20 22 45 52 (print "ER
06a0: 52 4f 52 3a 20 79 6f 75 72 20 6b 65 79 20 63 61 ROR: your key ca
06b0: 6e 6e 6f 74 20 62 65 20 6e 61 6d 65 64 20 22 20 nnot be named "
06c0: 6b 65 79 6e 20 22 20 61 73 20 74 68 69 73 20 63 keyn " as this c
06d0: 6f 6e 66 6c 69 63 74 73 20 77 69 74 68 20 74 68 onflicts with th
06e0: 65 20 73 61 6d 65 20 6e 61 6d 65 64 20 66 69 65 e same named fie
06f0: 6c 64 20 69 6e 20 74 68 65 20 72 75 6e 73 20 74 ld in the runs t
0700: 61 62 6c 65 22 29 0a 09 09 09 20 20 20 20 20 20 able")....
0710: 28 73 79 73 74 65 6d 20 28 63 6f 6e 63 20 22 72 (system (conc "r
0720: 6d 20 2d 66 20 22 20 64 62 70 61 74 68 29 29 0a m -f " dbpath)).
0730: 09 09 09 20 20 20 20 20 20 28 65 78 69 74 20 31 ... (exit 1
0740: 29 29 29 29 29 0a 09 09 20 20 20 20 6b 65 79 73 )))))... keys
0750: 29 0a 09 20 20 3b 3b 20 28 73 71 6c 69 74 65 33 ).. ;; (sqlite3
0760: 3a 65 78 65 63 75 74 65 20 64 62 20 22 50 52 41 :execute db "PRA
0770: 47 4d 41 20 73 79 6e 63 68 72 6f 6e 6f 75 73 20 GMA synchronous
0780: 3d 20 4f 46 46 3b 22 29 0a 09 20 20 28 73 71 6c = OFF;").. (sql
0790: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
07a0: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 "CREATE TABLE IF
07b0: 20 4e 4f 54 20 45 58 49 53 54 53 20 6b 65 79 73 NOT EXISTS keys
07c0: 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 (id INTEGER PRI
07d0: 4d 41 52 59 20 4b 45 59 2c 20 66 69 65 6c 64 6e MARY KEY, fieldn
07e0: 61 6d 65 20 54 45 58 54 2c 20 66 69 65 6c 64 74 ame TEXT, fieldt
07f0: 79 70 65 20 54 45 58 54 2c 20 43 4f 4e 53 54 52 ype TEXT, CONSTR
0800: 41 49 4e 54 20 6b 65 79 63 6f 6e 73 74 72 61 69 AINT keyconstrai
0810: 6e 74 20 55 4e 49 51 55 45 20 28 66 69 65 6c 64 nt UNIQUE (field
0820: 6e 61 6d 65 29 29 3b 22 29 0a 09 20 20 28 66 6f name));").. (fo
0830: 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 r-each (lambda (
0840: 6b 65 79 29 0a 09 09 20 20 20 20 20 20 28 73 71 key)... (sq
0850: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
0860: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 6b 65 "INSERT INTO ke
0870: 79 73 20 28 66 69 65 6c 64 6e 61 6d 65 2c 66 69 ys (fieldname,fi
0880: 65 6c 64 74 79 70 65 29 20 56 41 4c 55 45 53 20 eldtype) VALUES
0890: 28 3f 2c 3f 29 3b 22 20 28 6b 65 79 3a 67 65 74 (?,?);" (key:get
08a0: 2d 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 29 28 -fieldname key)(
08b0: 6b 65 79 3a 67 65 74 2d 66 69 65 6c 64 74 79 70 key:get-fieldtyp
08c0: 65 20 6b 65 79 29 29 29 0a 09 09 20 20 20 20 6b e key)))... k
08d0: 65 79 73 29 0a 09 20 20 28 73 71 6c 69 74 65 33 eys).. (sqlite3
08e0: 3a 65 78 65 63 75 74 65 20 64 62 20 28 63 6f 6e :execute db (con
08f0: 63 20 0a 09 09 09 20 20 20 20 22 43 52 45 41 54 c .... "CREAT
0900: 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 E TABLE IF NOT E
0910: 58 49 53 54 53 20 72 75 6e 73 20 28 69 64 20 49 XISTS runs (id I
0920: 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b NTEGER PRIMARY K
0930: 45 59 2c 20 22 20 0a 09 09 09 20 20 20 20 66 69 EY, " .... fi
0940: 65 6c 64 73 74 72 20 28 69 66 20 68 61 76 65 6b eldstr (if havek
0950: 65 79 73 20 22 2c 22 20 22 22 29 0a 09 09 09 20 eys "," "")....
0960: 20 20 20 22 72 75 6e 6e 61 6d 65 20 54 45 58 54 "runname TEXT
0970: 2c 22 0a 09 09 09 20 20 20 20 22 73 74 61 74 65 ,".... "state
0980: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 TEXT DEFAULT ''
0990: 2c 22 0a 09 09 09 20 20 20 20 22 73 74 61 74 75 ,".... "statu
09a0: 73 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 s TEXT DEFAULT '
09b0: 27 2c 22 0a 09 09 09 20 20 20 20 22 6f 77 6e 65 ',".... "owne
09c0: 72 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 r TEXT DEFAULT '
09d0: 27 2c 22 0a 09 09 09 20 20 20 20 22 65 76 65 6e ',".... "even
09e0: 74 5f 74 69 6d 65 20 54 49 4d 45 53 54 41 4d 50 t_time TIMESTAMP
09f0: 2c 22 0a 09 09 09 20 20 20 20 22 63 6f 6d 6d 65 ,".... "comme
0a00: 6e 74 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 nt TEXT DEFAULT
0a10: 27 27 2c 22 0a 09 09 09 20 20 20 20 22 66 61 69 '',".... "fai
0a20: 6c 5f 63 6f 75 6e 74 20 49 4e 54 45 47 45 52 20 l_count INTEGER
0a30: 44 45 46 41 55 4c 54 20 30 2c 22 0a 09 09 09 20 DEFAULT 0,"....
0a40: 20 20 20 22 70 61 73 73 5f 63 6f 75 6e 74 20 49 "pass_count I
0a50: 4e 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 NTEGER DEFAULT 0
0a60: 2c 22 0a 09 09 09 20 20 20 20 22 43 4f 4e 53 54 ,".... "CONST
0a70: 52 41 49 4e 54 20 72 75 6e 73 63 6f 6e 73 74 72 RAINT runsconstr
0a80: 61 69 6e 74 20 55 4e 49 51 55 45 20 28 72 75 6e aint UNIQUE (run
0a90: 6e 61 6d 65 22 20 28 69 66 20 68 61 76 65 6b 65 name" (if haveke
0aa0: 79 73 20 22 2c 22 20 22 22 29 20 6b 65 79 73 74 ys "," "") keyst
0ab0: 72 20 22 29 29 3b 22 29 29 0a 09 20 20 28 73 71 r "));")).. (sq
0ac0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
0ad0: 20 28 63 6f 6e 63 20 22 43 52 45 41 54 45 20 49 (conc "CREATE I
0ae0: 4e 44 45 58 20 72 75 6e 73 5f 69 6e 64 65 78 20 NDEX runs_index
0af0: 4f 4e 20 72 75 6e 73 20 28 72 75 6e 6e 61 6d 65 ON runs (runname
0b00: 22 20 28 69 66 20 68 61 76 65 6b 65 79 73 20 22 " (if havekeys "
0b10: 2c 22 20 22 22 29 20 6b 65 79 73 74 72 20 22 29 ," "") keystr ")
0b20: 3b 22 29 29 0a 09 20 20 28 73 71 6c 69 74 65 33 ;")).. (sqlite3
0b30: 3a 65 78 65 63 75 74 65 20 64 62 20 0a 20 20 20 :execute db .
0b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 "C
0b50: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e REATE TABLE IF N
0b60: 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 73 20 OT EXISTS tests
0b70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0b80: 20 20 20 20 20 28 69 64 20 49 4e 54 45 47 45 52 (id INTEGER
0b90: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 PRIMARY KEY,.
0ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0bb0: 20 20 20 72 75 6e 5f 69 64 20 20 20 20 20 49 4e run_id IN
0bc0: 54 45 47 45 52 2c 0a 20 20 20 20 20 20 20 20 20 TEGER,.
0bd0: 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
0be0: 6e 61 6d 65 20 20 20 54 45 58 54 2c 0a 20 20 20 name TEXT,.
0bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0c00: 20 20 68 6f 73 74 20 20 20 20 20 20 20 54 45 58 host TEX
0c10: 54 20 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 2c T DEFAULT 'n/a',
0c20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0c30: 20 20 20 20 20 20 63 70 75 6c 6f 61 64 20 20 20 cpuload
0c40: 20 52 45 41 4c 20 44 45 46 41 55 4c 54 20 2d 31 REAL DEFAULT -1
0c50: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
0c60: 20 20 20 20 20 20 20 64 69 73 6b 66 72 65 65 20 diskfree
0c70: 20 20 49 4e 54 45 47 45 52 20 44 45 46 41 55 4c INTEGER DEFAUL
0c80: 54 20 2d 31 2c 0a 20 20 20 20 20 20 20 20 20 20 T -1,.
0c90: 20 20 20 20 20 20 20 20 20 20 20 75 6e 61 6d 65 uname
0ca0: 20 20 20 20 20 20 54 45 58 54 20 44 45 46 41 55 TEXT DEFAU
0cb0: 4c 54 20 27 6e 2f 61 27 2c 20 0a 20 20 20 20 20 LT 'n/a', .
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0cd0: 72 75 6e 64 69 72 20 20 20 20 20 54 45 58 54 20 rundir TEXT
0ce0: 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 DEFAULT 'n/a',.
0cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d00: 20 20 20 20 69 74 65 6d 5f 70 61 74 68 20 20 54 item_path T
0d10: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
0d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d30: 20 20 20 20 20 73 74 61 74 65 20 20 20 20 20 20 state
0d40: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 4e 4f TEXT DEFAULT 'NO
0d50: 54 5f 53 54 41 52 54 45 44 27 2c 0a 20 20 20 20 T_STARTED',.
0d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d70: 20 73 74 61 74 75 73 20 20 20 20 20 54 45 58 54 status TEXT
0d80: 20 44 45 46 41 55 4c 54 20 27 46 41 49 4c 27 2c DEFAULT 'FAIL',
0d90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0da0: 20 20 20 20 20 20 61 74 74 65 6d 70 74 6e 75 6d attemptnum
0db0: 20 49 4e 54 45 47 45 52 20 44 45 46 41 55 4c 54 INTEGER DEFAULT
0dc0: 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 0,.
0dd0: 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 5f 6c final_l
0de0: 6f 67 66 20 54 45 58 54 20 44 45 46 41 55 4c 54 ogf TEXT DEFAULT
0df0: 20 27 6c 6f 67 73 2f 66 69 6e 61 6c 2e 6c 6f 67 'logs/final.log
0e00: 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ',.
0e10: 20 20 20 20 20 20 20 20 6c 6f 67 64 61 74 20 20 logdat
0e20: 20 20 20 42 4c 4f 42 2c 20 0a 20 20 20 20 20 20 BLOB, .
0e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
0e40: 75 6e 5f 64 75 72 61 74 69 6f 6e 20 49 4e 54 45 un_duration INTE
0e50: 47 45 52 20 44 45 46 41 55 4c 54 20 30 2c 0a 20 GER DEFAULT 0,.
0e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e70: 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 54 comment T
0e80: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
0e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ea0: 20 20 20 20 20 65 76 65 6e 74 5f 74 69 6d 65 20 event_time
0eb0: 54 49 4d 45 53 54 41 4d 50 2c 0a 20 20 20 20 20 TIMESTAMP,.
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ed0: 66 61 69 6c 5f 63 6f 75 6e 74 20 49 4e 54 45 47 fail_count INTEG
0ee0: 45 52 20 44 45 46 41 55 4c 54 20 30 2c 0a 20 20 ER DEFAULT 0,.
0ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f00: 20 20 20 70 61 73 73 5f 63 6f 75 6e 74 20 49 4e pass_count IN
0f10: 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 2c TEGER DEFAULT 0,
0f20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0f30: 20 20 20 20 20 20 66 69 72 73 74 5f 65 72 72 20 first_err
0f40: 20 54 45 58 54 2c 0a 20 20 20 20 20 20 20 20 20 TEXT,.
0f50: 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 firs
0f60: 74 5f 77 61 72 6e 20 54 45 58 54 2c 0a 20 20 20 t_warn TEXT,.
0f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f80: 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 CONSTRAINT tes
0f90: 74 73 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 tsconstraint UNI
0fa0: 51 55 45 20 28 72 75 6e 5f 69 64 2c 20 74 65 73 QUE (run_id, tes
0fb0: 74 6e 61 6d 65 2c 20 69 74 65 6d 5f 70 61 74 68 tname, item_path
0fc0: 29 0a 20 20 20 20 20 20 20 20 20 20 29 3b 22 29 ). );")
0fd0: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
0fe0: 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 cute db "CREATE
0ff0: 49 4e 44 45 58 20 74 65 73 74 73 5f 69 6e 64 65 INDEX tests_inde
1000: 78 20 4f 4e 20 74 65 73 74 73 20 28 72 75 6e 5f x ON tests (run_
1010: 69 64 2c 20 74 65 73 74 6e 61 6d 65 29 3b 22 29 id, testname);")
1020: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
1030: 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 cute db "CREATE
1040: 56 49 45 57 20 72 75 6e 73 5f 74 65 73 74 73 20 VIEW runs_tests
1050: 41 53 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d AS SELECT * FROM
1060: 20 72 75 6e 73 20 49 4e 4e 45 52 20 4a 4f 49 4e runs INNER JOIN
1070: 20 74 65 73 74 73 20 4f 4e 20 72 75 6e 73 2e 69 tests ON runs.i
1080: 64 3d 74 65 73 74 73 2e 72 75 6e 5f 69 64 3b 22 d=tests.run_id;"
1090: 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 ).. (sqlite3:ex
10a0: 65 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 ecute db "CREATE
10b0: 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 TABLE IF NOT EX
10c0: 49 53 54 53 20 74 65 73 74 5f 73 74 65 70 73 20 ISTS test_steps
10d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
10e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
10f0: 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41 id INTEGER PRIMA
1100: 52 59 20 4b 45 59 2c 0a 20 20 20 20 20 20 20 20 RY KEY,.
1110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1120: 20 20 20 20 20 20 20 74 65 73 74 5f 69 64 20 49 test_id I
1130: 4e 54 45 47 45 52 2c 20 0a 20 20 20 20 20 20 20 NTEGER, .
1140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1150: 20 20 20 20 20 20 20 20 73 74 65 70 6e 61 6d 65 stepname
1160: 20 54 45 58 54 2c 20 0a 20 20 20 20 20 20 20 20 TEXT, .
1170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1180: 20 20 20 20 20 20 20 73 74 61 74 65 20 54 45 58 state TEX
1190: 54 20 44 45 46 41 55 4c 54 20 27 4e 4f 54 5f 53 T DEFAULT 'NOT_S
11a0: 54 41 52 54 45 44 27 2c 20 0a 20 20 20 20 20 20 TARTED', .
11b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11c0: 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 status
11d0: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 6e 2f TEXT DEFAULT 'n/
11e0: 61 27 2c 65 76 65 6e 74 5f 74 69 6d 65 20 54 49 a',event_time TI
11f0: 4d 45 53 54 41 4d 50 2c 0a 20 20 20 20 20 20 20 MESTAMP,.
1200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1210: 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 comment
1220: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c TEXT DEFAULT '',
1230: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1250: 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 74 5f CONSTRAINT test_
1260: 73 74 65 70 73 5f 63 6f 6e 73 74 72 61 69 6e 74 steps_constraint
1270: 20 55 4e 49 51 55 45 20 28 74 65 73 74 5f 69 64 UNIQUE (test_id
1280: 2c 73 74 65 70 6e 61 6d 65 2c 73 74 61 74 65 29 ,stepname,state)
1290: 29 3b 22 29 0a 09 20 20 28 73 71 6c 69 74 65 33 );").. (sqlite3
12a0: 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 52 45 :execute db "CRE
12b0: 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 ATE TABLE IF NOT
12c0: 20 45 58 49 53 54 53 20 65 78 74 72 61 64 61 74 EXISTS extradat
12d0: 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 (id INTEGER PRI
12e0: 4d 41 52 59 20 4b 45 59 2c 20 72 75 6e 5f 69 64 MARY KEY, run_id
12f0: 20 49 4e 54 45 47 45 52 2c 20 6b 65 79 20 54 45 INTEGER, key TE
1300: 58 54 2c 20 76 61 6c 20 54 45 58 54 29 3b 22 29 XT, val TEXT);")
1310: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
1320: 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 cute db "CREATE
1330: 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 TABLE IF NOT EXI
1340: 53 54 53 20 6d 65 74 61 64 61 74 20 28 69 64 20 STS metadat (id
1350: 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 INTEGER PRIMARY
1360: 4b 45 59 2c 20 76 61 72 20 54 45 58 54 2c 20 76 KEY, var TEXT, v
1370: 61 6c 20 54 45 58 54 2c 0a 20 20 20 20 20 20 20 al TEXT,.
1380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1390: 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 CONST
13a0: 52 41 49 4e 54 20 6d 65 74 61 64 61 74 5f 63 6f RAINT metadat_co
13b0: 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 55 45 20 nstraint UNIQUE
13c0: 28 76 61 72 29 29 3b 22 29 0a 09 20 20 28 73 71 (var));").. (sq
13d0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
13e0: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 "CREATE TABLE I
13f0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 61 63 63 F NOT EXISTS acc
1400: 65 73 73 5f 6c 6f 67 20 28 69 64 20 49 4e 54 45 ess_log (id INTE
1410: 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c GER PRIMARY KEY,
1420: 20 75 73 65 72 20 54 45 58 54 2c 20 61 63 63 65 user TEXT, acce
1430: 73 73 65 64 20 54 49 4d 45 53 54 41 4d 50 2c 20 ssed TIMESTAMP,
1440: 61 72 67 73 20 54 45 58 54 29 3b 22 29 0a 09 20 args TEXT);")..
1450: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
1460: 74 65 20 64 62 20 22 43 52 45 41 54 45 20 54 41 te db "CREATE TA
1470: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 BLE IF NOT EXIST
1480: 53 20 74 65 73 74 5f 64 61 74 61 20 28 69 64 20 S test_data (id
1490: 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 INTEGER PRIMARY
14a0: 4b 45 59 2c 0a 20 20 20 20 20 20 20 20 20 20 20 KEY,.
14b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14c0: 20 20 20 20 20 74 65 73 74 5f 69 64 20 49 4e 54 test_id INT
14d0: 45 47 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 EGER,.
14e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14f0: 20 20 20 20 20 20 63 61 74 65 67 6f 72 79 20 54 category T
1500: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
1510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1530: 76 61 72 69 61 62 6c 65 20 54 45 58 54 2c 0a 09 variable TEXT,..
1540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1550: 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 52 45 value RE
1560: 41 4c 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 AL,..
1570: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 exp
1580: 65 63 74 65 64 20 52 45 41 4c 2c 0a 09 20 20 20 ected REAL,..
1590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
15a0: 20 20 20 20 20 74 6f 6c 20 52 45 41 4c 2c 0a 20 tol REAL,.
15b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
15c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 u
15d0: 6e 69 74 73 20 54 45 58 54 2c 0a 20 20 20 20 20 nits TEXT,.
15e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
15f0: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 comme
1600: 6e 74 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 nt TEXT DEFAULT
1610: 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '',.
1620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1630: 20 20 20 20 73 74 61 74 75 73 20 54 45 58 54 20 status TEXT
1640: 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 DEFAULT 'n/a',.
1650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1660: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e CON
1670: 53 54 52 41 49 4e 54 20 74 65 73 74 5f 64 61 74 STRAINT test_dat
1680: 61 20 55 4e 49 51 55 45 20 28 74 65 73 74 5f 69 a UNIQUE (test_i
1690: 64 2c 63 61 74 65 67 6f 72 79 2c 76 61 72 69 61 d,category,varia
16a0: 62 6c 65 29 29 3b 22 29 0a 09 20 20 20 28 73 71 ble));").. (sq
16b0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
16c0: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 "CREATE TABLE I
16d0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74 65 73 F NOT EXISTS tes
16e0: 74 5f 6d 65 74 61 20 28 69 64 20 49 4e 54 45 47 t_meta (id INTEG
16f0: 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a ER PRIMARY KEY,.
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 20 20 20 20 20 20 20
1720: 20 20 20 20 20 74 65 73 74 6e 61 6d 65 20 20 20 testname
1730: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 TEXT DEFAULT ''
1740: 2c 0a 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 20 20 20 20 20
1760: 20 20 20 20 20 20 20 61 75 74 68 6f 72 20 20 20 author
1770: 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 TEXT DEFAULT
1780: 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '',.
1790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17a0: 20 20 20 20 20 20 20 20 20 6f 77 6e 65 72 20 20 owner
17b0: 20 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c TEXT DEFAUL
17c0: 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 T '',.
17d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17e0: 20 20 20 20 20 20 20 20 20 20 20 64 65 73 63 72 descr
17f0: 69 70 74 69 6f 6e 20 54 45 58 54 20 44 45 46 41 iption TEXT DEFA
1800: 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 ULT '',.
1810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1820: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 76 rev
1830: 69 65 77 65 64 20 20 20 20 54 49 4d 45 53 54 41 iewed TIMESTA
1840: 4d 50 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 MP,.
1850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1860: 20 20 20 20 20 20 20 20 20 69 74 65 72 61 74 65 iterate
1870: 64 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c d TEXT DEFAUL
1880: 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 T '',.
1890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18a0: 20 20 20 20 20 20 20 20 20 20 20 61 76 67 5f 72 avg_r
18b0: 75 6e 74 69 6d 65 20 52 45 41 4c 2c 0a 20 20 20 untime REAL,.
18c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18e0: 20 20 61 76 67 5f 64 69 73 6b 20 20 20 20 52 45 avg_disk RE
18f0: 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 AL,.
1900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1910: 20 20 20 20 20 20 20 20 20 74 61 67 73 20 20 20 tags
1920: 20 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c TEXT DEFAUL
1930: 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 T '',.
1940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1950: 20 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 CONSTRAINT
1960: 20 74 65 73 74 5f 6d 65 74 61 5f 63 6f 6e 73 74 test_meta_const
1970: 72 61 69 6e 74 20 55 4e 49 51 55 45 20 28 74 65 raint UNIQUE (te
1980: 73 74 6e 61 6d 65 29 29 3b 22 29 0a 09 20 20 20 stname));")..
1990: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
19a0: 20 64 62 20 22 43 52 45 41 54 45 20 54 41 42 4c db "CREATE TABL
19b0: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 E IF NOT EXISTS
19c0: 74 65 73 74 5f 64 61 74 61 20 28 69 64 20 49 4e test_data (id IN
19d0: 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 TEGER PRIMARY KE
19e0: 59 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 Y,.
19f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a00: 20 20 20 74 65 73 74 5f 69 64 20 49 4e 54 45 47 test_id INTEG
1a10: 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ER,.
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a30: 20 20 20 20 63 61 74 65 67 6f 72 79 20 54 45 58 category TEX
1a40: 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 T DEFAULT '',.
1a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 va
1a70: 72 69 61 62 6c 65 20 54 45 58 54 2c 0a 09 20 20 riable TEXT,..
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a90: 20 20 20 20 20 20 76 61 6c 75 65 20 52 45 41 4c value REAL
1aa0: 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
1ab0: 20 20 20 20 20 20 20 20 20 20 20 65 78 70 65 63 expec
1ac0: 74 65 64 20 52 45 41 4c 2c 0a 09 20 20 20 20 20 ted REAL,..
1ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ae0: 20 20 20 74 6f 6c 20 52 45 41 4c 2c 0a 20 20 20 tol REAL,.
1af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 uni
1b10: 74 73 20 54 45 58 54 2c 0a 20 20 20 20 20 20 20 ts TEXT,.
1b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b30: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 comment
1b40: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 TEXT DEFAULT ''
1b50: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b70: 20 20 73 74 61 74 75 73 20 54 45 58 54 20 44 45 status TEXT DE
1b80: 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 20 20 FAULT 'n/a',.
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ba0: 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 CONST
1bb0: 52 41 49 4e 54 20 74 65 73 74 5f 64 61 74 61 20 RAINT test_data
1bc0: 55 4e 49 51 55 45 20 28 74 65 73 74 5f 69 64 2c UNIQUE (test_id,
1bd0: 63 61 74 65 67 6f 72 79 2c 76 61 72 69 61 62 6c category,variabl
1be0: 65 29 29 3b 22 29 0a 09 20 20 3b 3b 20 4d 75 73 e));").. ;; Mus
1bf0: 74 20 64 6f 20 74 68 69 73 20 2a 61 66 74 65 72 t do this *after
1c00: 2a 20 72 75 6e 6e 69 6e 67 20 70 61 74 63 68 20 * running patch
1c10: 64 62 20 21 21 20 4e 6f 20 6d 6f 72 65 2e 20 0a db !! No more. .
1c20: 09 20 20 28 64 62 3a 73 65 74 2d 76 61 72 20 64 . (db:set-var d
1c30: 62 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 53 b "MEGATEST_VERS
1c40: 49 4f 4e 22 20 6d 65 67 61 74 65 73 74 2d 76 65 ION" megatest-ve
1c50: 72 73 69 6f 6e 29 0a 09 20 20 29 29 0a 20 20 20 rsion).. )).
1c60: 20 64 62 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d db))..;;=======
1c70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
1cb0: 3b 3b 20 54 4f 44 4f 3a 0a 3b 3b 20 20 20 70 75 ;; TODO:.;; pu
1cc0: 74 20 64 65 6c 74 61 73 20 69 6e 74 6f 20 61 6e t deltas into an
1cd0: 20 61 73 73 6f 63 20 6c 69 73 74 20 77 69 74 68 assoc list with
1ce0: 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 73 version numbers
1cf0: 0a 3b 3b 20 20 20 61 70 70 6c 79 20 61 6c 6c 20 .;; apply all
1d00: 66 72 6f 6d 20 6c 61 73 74 20 74 6f 20 63 75 72 from last to cur
1d10: 72 65 6e 74 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d rent.;;=========
1d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 28 64 =============.(d
1d60: 65 66 69 6e 65 20 28 70 61 74 63 68 2d 64 62 20 efine (patch-db
1d70: 64 62 29 0a 20 20 28 68 61 6e 64 6c 65 2d 65 78 db). (handle-ex
1d80: 63 65 70 74 69 6f 6e 73 0a 20 20 20 65 78 6e 0a ceptions. exn.
1d90: 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 28 (begin. (
1da0: 70 72 69 6e 74 20 22 45 78 63 65 70 74 69 6f 6e print "Exception
1db0: 3a 20 22 20 65 78 6e 29 0a 20 20 20 20 20 28 70 : " exn). (p
1dc0: 72 69 6e 74 20 22 45 52 52 4f 52 3a 20 50 6f 73 rint "ERROR: Pos
1dd0: 73 69 62 6c 65 20 6f 75 74 20 6f 66 20 64 61 74 sible out of dat
1de0: 65 20 73 63 68 65 6d 61 2c 20 61 74 74 65 6d 70 e schema, attemp
1df0: 74 69 6e 67 20 74 6f 20 61 64 64 20 74 61 62 6c ting to add tabl
1e00: 65 20 6d 65 74 61 64 61 74 61 2e 2e 2e 22 29 0a e metadata...").
1e10: 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 (sqlite3:ex
1e20: 65 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 ecute db "CREATE
1e30: 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 TABLE IF NOT EX
1e40: 49 53 54 53 20 6d 65 74 61 64 61 74 20 28 69 64 ISTS metadat (id
1e50: 20 49 4e 54 45 47 45 52 2c 20 76 61 72 20 54 45 INTEGER, var TE
1e60: 58 54 2c 20 76 61 6c 20 54 45 58 54 2c 0a 20 20 XT, val TEXT,.
1e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
1e90: 4f 4e 53 54 52 41 49 4e 54 20 6d 65 74 61 64 61 ONSTRAINT metada
1ea0: 74 5f 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 t_constraint UNI
1eb0: 51 55 45 20 28 76 61 72 29 29 3b 22 29 0a 20 20 QUE (var));").
1ec0: 20 20 20 28 69 66 20 28 6e 6f 74 20 28 64 62 3a (if (not (db:
1ed0: 67 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 get-var db "MEGA
1ee0: 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 29 29 0a TEST_VERSION")).
1ef0: 09 20 28 64 62 3a 73 65 74 2d 76 61 72 20 64 62 . (db:set-var db
1f00: 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 53 49 "MEGATEST_VERSI
1f10: 4f 4e 22 20 31 2e 31 37 29 29 29 0a 20 20 20 28 ON" 1.17))). (
1f20: 6c 65 74 20 28 28 6d 76 65 72 20 28 64 62 3a 67 let ((mver (db:g
1f30: 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 54 et-var db "MEGAT
1f40: 45 53 54 5f 56 45 52 53 49 4f 4e 22 29 29 0a 09 EST_VERSION"))..
1f50: 20 28 74 65 73 74 2d 6d 65 74 61 2d 64 65 66 20 (test-meta-def
1f60: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 "CREATE TABLE IF
1f70: 20 4e 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 NOT EXISTS test
1f80: 5f 6d 65 74 61 20 28 69 64 20 49 4e 54 45 47 45 _meta (id INTEGE
1f90: 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 R PRIMARY KEY,.
1fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fc0: 20 20 20 20 74 65 73 74 6e 61 6d 65 20 20 20 20 testname
1fd0: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c TEXT DEFAULT '',
1fe0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2000: 20 20 20 20 20 20 61 75 74 68 6f 72 20 20 20 20 author
2010: 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 TEXT DEFAULT '
2020: 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ',.
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2040: 20 20 20 20 20 20 20 20 6f 77 6e 65 72 20 20 20 owner
2050: 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 TEXT DEFAULT
2060: 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 '',.
2070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2080: 20 20 20 20 20 20 20 20 20 20 64 65 73 63 72 69 descri
2090: 70 74 69 6f 6e 20 54 45 58 54 20 44 45 46 41 55 ption TEXT DEFAU
20a0: 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 LT '',.
20b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20c0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 76 69 revi
20d0: 65 77 65 64 20 20 20 20 54 49 4d 45 53 54 41 4d ewed TIMESTAM
20e0: 50 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 P,.
20f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2100: 20 20 20 20 20 20 20 20 69 74 65 72 61 74 65 64 iterated
2110: 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 TEXT DEFAULT
2120: 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 '',.
2130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2140: 20 20 20 20 20 20 20 20 20 20 61 76 67 5f 72 75 avg_ru
2150: 6e 74 69 6d 65 20 52 45 41 4c 2c 0a 20 20 20 20 ntime REAL,.
2160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2180: 20 61 76 67 5f 64 69 73 6b 20 20 20 20 52 45 41 avg_disk REA
2190: 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 L,.
21a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21b0: 20 20 20 20 20 20 20 20 74 61 67 73 20 20 20 20 tags
21c0: 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 TEXT DEFAULT
21d0: 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 '',.
21e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21f0: 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 CONSTRAINT
2200: 74 65 73 74 5f 6d 65 74 61 5f 63 6f 6e 73 74 72 test_meta_constr
2210: 61 69 6e 74 20 55 4e 49 51 55 45 20 28 74 65 73 aint UNIQUE (tes
2220: 74 6e 61 6d 65 29 29 3b 22 29 29 0a 20 20 20 20 tname));")).
2230: 20 28 70 72 69 6e 74 20 22 43 75 72 72 65 6e 74 (print "Current
2240: 20 73 63 68 65 6d 61 20 76 65 72 73 69 6f 6e 3a schema version:
2250: 20 22 20 6d 76 65 72 20 22 20 63 75 72 72 65 6e " mver " curren
2260: 74 20 6d 65 67 61 74 65 73 74 20 76 65 72 73 69 t megatest versi
2270: 6f 6e 3a 20 22 20 6d 65 67 61 74 65 73 74 2d 76 on: " megatest-v
2280: 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 63 6f ersion). (co
2290: 6e 64 0a 20 20 20 20 20 20 28 28 6e 6f 74 20 6d nd. ((not m
22a0: 76 65 72 29 0a 20 20 20 20 20 20 20 28 70 72 69 ver). (pri
22b0: 6e 74 20 22 41 64 64 69 6e 67 20 6d 65 67 61 74 nt "Adding megat
22c0: 65 73 74 2d 76 65 72 73 69 6f 6e 20 74 6f 20 6d est-version to m
22d0: 65 74 61 64 61 74 61 22 29 20 3b 3b 20 4e 65 65 etadata") ;; Nee
22e0: 64 20 74 6f 20 72 65 63 72 65 61 74 65 20 74 68 d to recreate th
22f0: 65 20 74 61 62 6c 65 0a 20 20 20 20 20 20 20 28 e table. (
2300: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
2310: 64 62 20 22 44 52 4f 50 20 54 41 42 4c 45 20 49 db "DROP TABLE I
2320: 46 20 45 58 49 53 54 53 20 6d 65 74 61 64 61 74 F EXISTS metadat
2330: 3b 22 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 ;"). (sqli
2340: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
2350: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 CREATE TABLE IF
2360: 4e 4f 54 20 45 58 49 53 54 53 20 6d 65 74 61 64 NOT EXISTS metad
2370: 61 74 20 28 69 64 20 49 4e 54 45 47 45 52 2c 20 at (id INTEGER,
2380: 76 61 72 20 54 45 58 54 2c 20 76 61 6c 20 54 45 var TEXT, val TE
2390: 58 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 XT,.
23a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
23b0: 20 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 CONSTRAINT
23c0: 20 6d 65 74 61 64 61 74 5f 63 6f 6e 73 74 72 61 metadat_constra
23d0: 69 6e 74 20 55 4e 49 51 55 45 20 28 76 61 72 29 int UNIQUE (var)
23e0: 29 3b 22 29 0a 20 20 20 20 20 20 20 28 64 62 3a );"). (db:
23f0: 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 set-var db "MEGA
2400: 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 2e TEST_VERSION" 1.
2410: 31 37 29 0a 20 20 20 20 20 20 20 28 70 61 74 63 17). (patc
2420: 68 2d 64 62 29 29 0a 20 20 20 20 20 20 28 28 3c h-db)). ((<
2430: 20 6d 76 65 72 20 31 2e 32 31 29 0a 20 20 20 20 mver 1.21).
2440: 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 (sqlite3:exec
2450: 75 74 65 20 64 62 20 22 44 52 4f 50 20 54 41 42 ute db "DROP TAB
2460: 4c 45 20 49 46 20 45 58 49 53 54 53 20 6d 65 74 LE IF EXISTS met
2470: 61 64 61 74 3b 22 29 0a 20 20 20 20 20 20 20 28 adat;"). (
2480: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
2490: 64 62 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 db "CREATE TABLE
24a0: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 6d IF NOT EXISTS m
24b0: 65 74 61 64 61 74 20 28 69 64 20 49 4e 54 45 47 etadat (id INTEG
24c0: 45 52 2c 20 76 61 72 20 54 45 58 54 2c 20 76 61 ER, var TEXT, va
24d0: 6c 20 54 45 58 54 2c 0a 20 20 20 20 20 20 20 20 l TEXT,.
24e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24f0: 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 52 CONSTR
2500: 41 49 4e 54 20 6d 65 74 61 64 61 74 5f 63 6f 6e AINT metadat_con
2510: 73 74 72 61 69 6e 74 20 55 4e 49 51 55 45 20 28 straint UNIQUE (
2520: 76 61 72 29 29 3b 22 29 0a 20 20 20 20 20 20 20 var));").
2530: 28 64 62 3a 73 65 74 2d 76 61 72 20 64 62 20 22 (db:set-var db "
2540: 4d 45 47 41 54 45 53 54 5f 56 45 52 53 49 4f 4e MEGATEST_VERSION
2550: 22 20 31 2e 32 31 29 20 3b 3b 20 73 65 74 20 62 " 1.21) ;; set b
2560: 65 66 6f 72 65 2c 20 6a 75 73 74 20 69 6e 20 63 efore, just in c
2570: 61 73 65 20 74 68 65 20 63 68 61 6e 67 65 73 20 ase the changes
2580: 61 72 65 20 61 6c 72 65 61 64 79 20 61 70 70 6c are already appl
2590: 69 65 64 0a 20 20 20 20 20 20 20 28 73 71 6c 69 ied. (sqli
25a0: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 74 te3:execute db t
25b0: 65 73 74 2d 6d 65 74 61 2d 64 65 66 29 0a 20 20 est-meta-def).
25c0: 20 20 20 20 20 28 66 6f 72 2d 65 61 63 68 20 0a (for-each .
25d0: 09 28 6c 61 6d 62 64 61 20 28 73 74 6d 74 29 0a .(lambda (stmt).
25e0: 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
25f0: 75 74 65 20 64 62 20 73 74 6d 74 29 29 0a 09 28 ute db stmt))..(
2600: 6c 69 73 74 20 0a 09 20 22 41 4c 54 45 52 20 54 list .. "ALTER T
2610: 41 42 4c 45 20 74 65 73 74 73 20 41 44 44 20 43 ABLE tests ADD C
2620: 4f 4c 55 4d 4e 20 66 69 72 73 74 5f 65 72 72 20 OLUMN first_err
2630: 54 45 58 54 3b 22 0a 09 20 22 41 4c 54 45 52 20 TEXT;".. "ALTER
2640: 54 41 42 4c 45 20 74 65 73 74 73 20 41 44 44 20 TABLE tests ADD
2650: 43 4f 4c 55 4d 4e 20 66 69 72 73 74 5f 77 61 72 COLUMN first_war
2660: 6e 20 54 45 58 54 3b 22 0a 09 20 29 29 0a 20 20 n TEXT;".. )).
2670: 20 20 20 20 20 28 70 61 74 63 68 2d 64 62 29 29 (patch-db))
2680: 0a 20 20 20 20 20 20 28 28 3c 20 6d 76 65 72 20 . ((< mver
2690: 31 2e 32 34 29 0a 20 20 20 20 20 20 20 28 64 62 1.24). (db
26a0: 3a 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 :set-var db "MEG
26b0: 41 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 ATEST_VERSION" 1
26c0: 2e 32 34 29 0a 20 20 20 20 20 20 20 28 73 71 6c .24). (sql
26d0: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
26e0: 22 44 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 "DROP TABLE IF E
26f0: 58 49 53 54 53 20 74 65 73 74 5f 64 61 74 61 3b XISTS test_data;
2700: 22 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 74 "). (sqlit
2710: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 44 e3:execute db "D
2720: 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58 49 ROP TABLE IF EXI
2730: 53 54 53 20 74 65 73 74 5f 6d 65 74 61 3b 22 29 STS test_meta;")
2740: 0a 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 . (sqlite3
2750: 3a 65 78 65 63 75 74 65 20 64 62 20 74 65 73 74 :execute db test
2760: 2d 6d 65 74 61 2d 64 65 66 29 0a 20 20 20 20 20 -meta-def).
2770: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
2780: 74 65 20 64 62 20 22 43 52 45 41 54 45 20 54 41 te db "CREATE TA
2790: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 BLE IF NOT EXIST
27a0: 53 20 74 65 73 74 5f 64 61 74 61 20 28 69 64 20 S test_data (id
27b0: 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 INTEGER PRIMARY
27c0: 4b 45 59 2c 0a 20 20 20 20 20 20 20 20 20 20 20 KEY,.
27d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
27e0: 20 20 20 20 20 74 65 73 74 5f 69 64 20 49 4e 54 test_id INT
27f0: 45 47 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 EGER,.
2800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2810: 20 20 20 20 20 20 63 61 74 65 67 6f 72 79 20 54 category T
2820: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
2830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2850: 76 61 72 69 61 62 6c 65 20 54 45 58 54 2c 0a 09 variable TEXT,..
2860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2870: 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 52 45 value RE
2880: 41 4c 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 AL,..
2890: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 exp
28a0: 65 63 74 65 64 20 52 45 41 4c 2c 0a 09 20 20 20 ected REAL,..
28b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
28c0: 20 20 20 20 20 74 6f 6c 20 52 45 41 4c 2c 0a 20 tol REAL,.
28d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
28e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 u
28f0: 6e 69 74 73 20 54 45 58 54 2c 0a 20 20 20 20 20 nits TEXT,.
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2910: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 comme
2920: 6e 74 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 nt TEXT DEFAULT
2930: 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '',.
2940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2950: 20 20 20 20 73 74 61 74 75 73 20 54 45 58 54 20 status TEXT
2960: 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 DEFAULT 'n/a',.
2970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e CON
2990: 53 54 52 41 49 4e 54 20 74 65 73 74 5f 64 61 74 STRAINT test_dat
29a0: 61 20 55 4e 49 51 55 45 20 28 74 65 73 74 5f 69 a UNIQUE (test_i
29b0: 64 2c 63 61 74 65 67 6f 72 79 2c 76 61 72 69 61 d,category,varia
29c0: 62 6c 65 29 29 3b 22 29 0a 20 20 20 20 20 20 20 ble));").
29d0: 28 70 61 74 63 68 2d 64 62 29 29 0a 20 20 20 20 (patch-db)).
29e0: 20 28 28 3c 20 6d 76 65 72 20 6d 65 67 61 74 65 ((< mver megate
29f0: 73 74 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 st-version).
2a00: 20 20 28 64 62 3a 73 65 74 2d 76 61 72 20 64 62 (db:set-var db
2a10: 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 53 49 "MEGATEST_VERSI
2a20: 4f 4e 22 20 6d 65 67 61 74 65 73 74 2d 76 65 72 ON" megatest-ver
2a30: 73 69 6f 6e 29 29 29 29 29 29 0a 0a 3b 3b 3d 3d sion))))))..;;==
2a40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a80: 3d 3d 3d 3d 0a 3b 3b 20 6d 65 74 61 20 67 65 74 ====.;; meta get
2a90: 20 61 6e 64 20 73 65 74 20 76 61 72 73 0a 3b 3b and set vars.;;
2aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ad0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ae0: 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 72 65 74 75 72 ======..;; retur
2af0: 6e 73 20 6e 75 6d 62 65 72 20 69 66 20 73 74 72 ns number if str
2b00: 69 6e 67 2d 3e 6e 75 6d 62 65 72 20 69 73 20 73 ing->number is s
2b10: 75 63 63 65 73 73 66 75 6c 2c 20 73 74 72 69 6e uccessful, strin
2b20: 67 20 6f 74 68 65 72 77 69 73 65 0a 28 64 65 66 g otherwise.(def
2b30: 69 6e 65 20 28 64 62 3a 67 65 74 2d 76 61 72 20 ine (db:get-var
2b40: 64 62 20 76 61 72 29 0a 20 20 28 6c 65 74 20 28 db var). (let (
2b50: 28 72 65 73 20 23 66 29 29 0a 20 20 20 20 28 73 (res #f)). (s
2b60: 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d qlite3:for-each-
2b70: 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 row. (lambda
2b80: 20 28 76 61 6c 29 0a 20 20 20 20 20 20 20 28 73 (val). (s
2b90: 65 74 21 20 72 65 73 20 76 61 6c 29 29 0a 20 20 et! res val)).
2ba0: 20 20 20 64 62 20 22 53 45 4c 45 43 54 20 76 61 db "SELECT va
2bb0: 6c 20 46 52 4f 4d 20 6d 65 74 61 64 61 74 20 57 l FROM metadat W
2bc0: 48 45 52 45 20 76 61 72 3d 3f 3b 22 20 76 61 72 HERE var=?;" var
2bd0: 29 0a 20 20 20 20 28 69 66 20 28 73 74 72 69 6e ). (if (strin
2be0: 67 3f 20 72 65 73 29 0a 09 28 6c 65 74 20 28 28 g? res)..(let ((
2bf0: 76 61 6c 6e 75 6d 20 28 73 74 72 69 6e 67 2d 3e valnum (string->
2c00: 6e 75 6d 62 65 72 20 72 65 73 29 29 29 0a 09 20 number res)))..
2c10: 20 28 69 66 20 76 61 6c 6e 75 6d 20 76 61 6c 6e (if valnum valn
2c20: 75 6d 20 72 65 73 29 29 0a 09 72 65 73 29 29 29 um res))..res)))
2c30: 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 73 65 ..(define (db:se
2c40: 74 2d 76 61 72 20 64 62 20 76 61 72 20 76 61 6c t-var db var val
2c50: 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 ). (sqlite3:exe
2c60: 63 75 74 65 20 64 62 20 22 49 4e 53 45 52 54 20 cute db "INSERT
2c70: 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 OR REPLACE INTO
2c80: 6d 65 74 61 64 61 74 20 28 76 61 72 2c 76 61 6c metadat (var,val
2c90: 29 20 56 41 4c 55 45 53 20 28 3f 2c 3f 29 3b 22 ) VALUES (?,?);"
2ca0: 20 76 61 72 20 76 61 6c 29 29 0a 0a 3b 3b 20 75 var val))..;; u
2cb0: 73 65 20 61 20 67 6c 6f 62 61 6c 20 66 6f 72 20 se a global for
2cc0: 73 6f 6d 65 20 70 72 69 6d 69 74 69 76 65 20 63 some primitive c
2cd0: 61 63 68 69 6e 67 2c 20 69 74 20 69 73 20 6a 75 aching, it is ju
2ce0: 73 74 20 73 69 6c 6c 79 20 74 6f 20 72 65 2d 72 st silly to re-r
2cf0: 65 61 64 20 74 68 65 20 64 62 20 0a 3b 3b 20 6f ead the db .;; o
2d00: 76 65 72 20 61 6e 64 20 6f 76 65 72 20 61 67 61 ver and over aga
2d10: 69 6e 20 66 6f 72 20 74 68 65 20 6b 65 79 73 20 in for the keys
2d20: 73 69 6e 63 65 20 74 68 65 79 20 6e 65 76 65 72 since they never
2d30: 20 63 68 61 6e 67 65 0a 0a 28 64 65 66 69 6e 65 change..(define
2d40: 20 2a 64 62 2d 6b 65 79 73 2a 20 23 66 29 0a 0a *db-keys* #f)..
2d50: 28 64 65 66 69 6e 65 20 28 64 62 2d 67 65 74 2d (define (db-get-
2d60: 6b 65 79 73 20 64 62 29 0a 20 20 28 69 66 20 2a keys db). (if *
2d70: 64 62 2d 6b 65 79 73 2a 20 2a 64 62 2d 6b 65 79 db-keys* *db-key
2d80: 73 2a 20 0a 20 20 20 20 20 20 28 6c 65 74 20 28 s* . (let (
2d90: 28 72 65 73 20 27 28 29 29 29 0a 09 28 73 71 6c (res '()))..(sql
2da0: 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f ite3:for-each-ro
2db0: 77 20 0a 09 20 28 6c 61 6d 62 64 61 20 28 6b 65 w .. (lambda (ke
2dc0: 79 20 6b 65 79 74 79 70 65 29 0a 09 20 20 20 28 y keytype).. (
2dd0: 73 65 74 21 20 72 65 73 20 28 63 6f 6e 73 20 28 set! res (cons (
2de0: 76 65 63 74 6f 72 20 6b 65 79 20 6b 65 79 74 79 vector key keyty
2df0: 70 65 29 20 72 65 73 29 29 29 0a 09 20 64 62 0a pe) res))).. db.
2e00: 09 20 22 53 45 4c 45 43 54 20 66 69 65 6c 64 6e . "SELECT fieldn
2e10: 61 6d 65 2c 66 69 65 6c 64 74 79 70 65 20 46 52 ame,fieldtype FR
2e20: 4f 4d 20 6b 65 79 73 20 4f 52 44 45 52 20 42 59 OM keys ORDER BY
2e30: 20 69 64 20 44 45 53 43 3b 22 29 0a 09 28 73 65 id DESC;")..(se
2e40: 74 21 20 2a 64 62 2d 6b 65 79 73 2a 20 72 65 73 t! *db-keys* res
2e50: 29 0a 09 72 65 73 29 29 29 0a 0a 28 64 65 66 69 )..res)))..(defi
2e60: 6e 65 20 64 62 3a 67 65 74 2d 6b 65 79 73 20 64 ne db:get-keys d
2e70: 62 2d 67 65 74 2d 6b 65 79 73 29 0a 0a 28 64 65 b-get-keys)..(de
2e80: 66 69 6e 65 20 28 64 62 3a 67 65 74 2d 76 61 6c fine (db:get-val
2e90: 75 65 2d 62 79 2d 68 65 61 64 65 72 20 72 6f 77 ue-by-header row
2ea0: 20 68 65 61 64 65 72 20 66 69 65 6c 64 29 0a 20 header field).
2eb0: 20 28 69 66 20 28 6e 75 6c 6c 3f 20 68 65 61 64 (if (null? head
2ec0: 65 72 29 20 23 66 0a 20 20 20 20 20 20 28 6c 65 er) #f. (le
2ed0: 74 20 6c 6f 6f 70 20 28 28 68 65 64 20 28 63 61 t loop ((hed (ca
2ee0: 72 20 68 65 61 64 65 72 29 29 0a 09 09 20 28 74 r header))... (t
2ef0: 61 6c 20 28 63 64 72 20 68 65 61 64 65 72 29 29 al (cdr header))
2f00: 0a 09 09 20 28 6e 20 20 20 30 29 29 0a 09 28 69 ... (n 0))..(i
2f10: 66 20 28 65 71 75 61 6c 3f 20 68 65 64 20 66 69 f (equal? hed fi
2f20: 65 6c 64 29 0a 09 20 20 20 20 28 76 65 63 74 6f eld).. (vecto
2f30: 72 2d 72 65 66 20 72 6f 77 20 6e 29 0a 09 20 20 r-ref row n)..
2f40: 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 74 61 6c (if (null? tal
2f50: 29 20 23 66 20 28 6c 6f 6f 70 20 28 63 61 72 20 ) #f (loop (car
2f60: 74 61 6c 29 28 63 64 72 20 74 61 6c 29 28 2b 20 tal)(cdr tal)(+
2f70: 6e 20 31 29 29 29 29 29 29 29 0a 09 20 20 20 20 n 1)))))))..
2f80: 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;=============
2f90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 20 52 20 =========.;; R
2fd0: 55 20 4e 20 53 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d U N S.;;========
2fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a ==============..
3020: 28 64 65 66 69 6e 65 20 28 72 75 6e 73 3a 67 65 (define (runs:ge
3030: 74 2d 73 74 64 2d 72 75 6e 2d 66 69 65 6c 64 73 t-std-run-fields
3040: 20 6b 65 79 73 20 72 65 6d 66 69 65 6c 64 73 29 keys remfields)
3050: 0a 20 20 28 6c 65 74 2a 20 28 28 68 65 61 64 65 . (let* ((heade
3060: 72 20 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 r (append (ma
3070: 70 20 6b 65 79 3a 67 65 74 2d 66 69 65 6c 64 6e p key:get-fieldn
3080: 61 6d 65 20 6b 65 79 73 29 0a 09 09 09 20 20 20 ame keys)....
3090: 20 72 65 6d 66 69 65 6c 64 73 29 29 0a 09 20 28 remfields)).. (
30a0: 6b 65 79 73 74 72 20 20 20 20 28 63 6f 6e 63 20 keystr (conc
30b0: 28 6b 65 79 73 2d 3e 6b 65 79 73 74 72 20 6b 65 (keys->keystr ke
30c0: 79 73 29 20 22 2c 22 0a 09 09 09 20 20 28 73 74 ys) ",".... (st
30d0: 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 ring-intersperse
30e0: 20 72 65 6d 66 69 65 6c 64 73 20 22 2c 22 29 29 remfields ","))
30f0: 29 29 0a 20 20 20 20 28 6c 69 73 74 20 6b 65 79 )). (list key
3100: 73 74 72 20 68 65 61 64 65 72 29 29 29 0a 0a 3b str header)))..;
3110: 3b 20 57 41 53 20 64 62 2d 67 65 74 2d 72 75 6e ; WAS db-get-run
3120: 73 20 46 49 58 4d 45 20 49 4e 20 52 45 4d 41 49 s FIXME IN REMAI
3130: 4e 49 4e 47 20 43 4f 44 45 0a 3b 3b 0a 3b 3b 20 NING CODE.;;.;;
3140: 4d 45 52 47 45 20 54 48 49 53 20 57 49 54 48 20 MERGE THIS WITH
3150: 64 62 3a 67 65 74 2d 72 75 6e 73 2c 20 61 63 63 db:get-runs, acc
3160: 69 64 65 6e 74 6c 79 20 77 72 6f 74 65 20 69 74 idently wrote it
3170: 20 74 77 69 63 65 0a 3b 3b 0a 3b 3b 20 72 65 70 twice.;;.;; rep
3180: 6c 61 63 65 20 68 65 61 64 65 72 20 61 6e 64 20 lace header and
3190: 6b 65 79 73 74 72 20 77 69 74 68 20 61 20 63 61 keystr with a ca
31a0: 6c 6c 20 74 6f 20 72 75 6e 73 3a 67 65 74 2d 73 ll to runs:get-s
31b0: 74 64 2d 72 75 6e 2d 66 69 65 6c 64 73 0a 3b 3b td-run-fields.;;
31c0: 0a 3b 3b 20 6b 65 79 70 61 74 74 73 3a 20 28 20 .;; keypatts: (
31d0: 28 4b 45 59 31 20 22 61 62 63 25 64 65 66 22 29 (KEY1 "abc%def")
31e0: 28 4b 45 59 32 20 22 25 22 29 20 29 0a 3b 3b 0a (KEY2 "%") ).;;.
31f0: 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 2d (define (db:get-
3200: 72 75 6e 73 20 64 62 20 72 75 6e 70 61 74 74 20 runs db runpatt
3210: 63 6f 75 6e 74 20 6f 66 66 73 65 74 20 6b 65 79 count offset key
3220: 70 61 74 74 73 29 0a 20 20 28 6c 65 74 2a 20 28 patts). (let* (
3230: 28 72 65 73 20 20 20 20 20 20 27 28 29 29 0a 09 (res '())..
3240: 20 28 6b 65 79 73 20 20 20 20 20 20 28 64 62 2d (keys (db-
3250: 67 65 74 2d 6b 65 79 73 20 64 62 29 29 0a 09 20 get-keys db))..
3260: 28 72 65 6d 66 69 65 6c 64 73 20 28 6c 69 73 74 (remfields (list
3270: 20 22 69 64 22 20 22 72 75 6e 6e 61 6d 65 22 20 "id" "runname"
3280: 22 73 74 61 74 65 22 20 22 73 74 61 74 75 73 22 "state" "status"
3290: 20 22 6f 77 6e 65 72 22 20 22 65 76 65 6e 74 5f "owner" "event_
32a0: 74 69 6d 65 22 29 29 0a 09 20 28 68 65 61 64 65 time")).. (heade
32b0: 72 20 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 r (append (ma
32c0: 70 20 6b 65 79 3a 67 65 74 2d 66 69 65 6c 64 6e p key:get-fieldn
32d0: 61 6d 65 20 6b 65 79 73 29 0a 09 09 09 20 20 20 ame keys)....
32e0: 20 72 65 6d 66 69 65 6c 64 73 29 29 0a 09 20 28 remfields)).. (
32f0: 6b 65 79 73 74 72 20 20 20 20 28 63 6f 6e 63 20 keystr (conc
3300: 28 6b 65 79 73 2d 3e 6b 65 79 73 74 72 20 6b 65 (keys->keystr ke
3310: 79 73 29 20 22 2c 22 0a 09 09 09 20 20 28 73 74 ys) ",".... (st
3320: 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 ring-intersperse
3330: 20 72 65 6d 66 69 65 6c 64 73 20 22 2c 22 29 29 remfields ","))
3340: 29 0a 09 20 28 71 72 79 73 74 72 20 20 20 20 28 ).. (qrystr (
3350: 63 6f 6e 63 20 22 53 45 4c 45 43 54 20 22 20 6b conc "SELECT " k
3360: 65 79 73 74 72 20 22 20 46 52 4f 4d 20 72 75 6e eystr " FROM run
3370: 73 20 57 48 45 52 45 20 72 75 6e 6e 61 6d 65 20 s WHERE runname
3380: 4c 49 4b 45 20 3f 20 22 0a 09 09 09 20 20 3b 3b LIKE ? ".... ;;
3390: 20 47 65 6e 65 72 61 74 65 3a 20 22 20 41 4e 44 Generate: " AND
33a0: 20 78 20 4c 49 4b 45 20 27 6b 65 79 70 61 74 74 x LIKE 'keypatt
33b0: 27 20 2e 2e 2e 22 0a 09 09 09 20 20 28 69 66 20 ' ...".... (if
33c0: 28 6e 75 6c 6c 3f 20 6b 65 79 70 61 74 74 73 29 (null? keypatts)
33d0: 20 22 22 0a 09 09 09 20 20 20 20 20 20 28 63 6f "".... (co
33e0: 6e 63 20 22 20 41 4e 44 20 22 0a 09 09 09 09 20 nc " AND ".....
33f0: 20 20 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 (string-join
3400: 0a 09 09 09 09 20 20 20 20 20 28 6d 61 70 20 28 ..... (map (
3410: 6c 61 6d 62 64 61 20 28 6b 65 79 70 61 74 74 29 lambda (keypatt)
3420: 0a 09 09 09 09 09 20 20 20 20 28 6c 65 74 20 28 ...... (let (
3430: 28 6b 65 79 20 20 28 63 61 72 20 6b 65 79 70 61 (key (car keypa
3440: 74 74 29 29 0a 09 09 09 09 09 09 20 20 28 70 61 tt))....... (pa
3450: 74 74 20 28 63 61 64 72 20 6b 65 79 70 61 74 74 tt (cadr keypatt
3460: 29 29 29 0a 09 09 09 09 09 20 20 20 20 20 20 28 )))...... (
3470: 63 6f 6e 63 20 6b 65 79 20 22 20 4c 49 4b 45 20 conc key " LIKE
3480: 27 22 20 70 61 74 74 20 22 27 22 29 29 29 0a 09 '" patt "'")))..
3490: 09 09 09 09 20 20 6b 65 79 70 61 74 74 73 29 0a .... keypatts).
34a0: 09 09 09 09 20 20 20 20 20 22 20 41 4e 44 20 22 .... " AND "
34b0: 29 29 29 0a 09 09 09 20 20 22 20 4f 52 44 45 52 ))).... " ORDER
34c0: 20 42 59 20 65 76 65 6e 74 5f 74 69 6d 65 20 44 BY event_time D
34d0: 45 53 43 20 22 0a 09 09 09 20 20 28 69 66 20 28 ESC ".... (if (
34e0: 6e 75 6d 62 65 72 3f 20 63 6f 75 6e 74 29 0a 09 number? count)..
34f0: 09 09 20 20 20 20 20 20 28 63 6f 6e 63 20 22 20 .. (conc "
3500: 4c 49 4d 49 54 20 22 20 63 6f 75 6e 74 29 0a 09 LIMIT " count)..
3510: 09 09 20 20 20 20 20 20 22 22 29 0a 09 09 09 20 .. "")....
3520: 20 28 69 66 20 28 6e 75 6d 62 65 72 3f 20 6f 66 (if (number? of
3530: 66 73 65 74 29 0a 09 09 09 20 20 20 20 20 20 28 fset).... (
3540: 63 6f 6e 63 20 22 20 4f 46 46 53 45 54 20 22 20 conc " OFFSET "
3550: 6f 66 66 73 65 74 29 0a 09 09 09 20 20 20 20 20 offset)....
3560: 20 22 22 29 29 29 29 0a 20 20 20 20 28 64 65 62 "")))). (deb
3570: 75 67 3a 70 72 69 6e 74 20 34 20 22 64 62 3a 67 ug:print 4 "db:g
3580: 65 74 2d 72 75 6e 73 20 71 72 79 73 74 72 3a 20 et-runs qrystr:
3590: 22 20 71 72 79 73 74 72 20 22 5c 6e 6b 65 79 70 " qrystr "\nkeyp
35a0: 61 74 74 73 3a 20 22 20 6b 65 79 70 61 74 74 73 atts: " keypatts
35b0: 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 ). (sqlite3:f
35c0: 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 or-each-row.
35d0: 20 28 6c 61 6d 62 64 61 20 28 61 20 2e 20 78 29 (lambda (a . x)
35e0: 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 . (set! re
35f0: 73 20 28 63 6f 6e 73 20 28 61 70 70 6c 79 20 76 s (cons (apply v
3600: 65 63 74 6f 72 20 61 20 78 29 20 72 65 73 29 29 ector a x) res))
3610: 29 0a 20 20 20 20 20 64 62 0a 20 20 20 20 20 71 ). db. q
3620: 72 79 73 74 72 0a 20 20 20 20 20 72 75 6e 70 61 rystr. runpa
3630: 74 74 29 0a 20 20 20 20 28 76 65 63 74 6f 72 20 tt). (vector
3640: 68 65 61 64 65 72 20 72 65 73 29 29 29 0a 0a 3b header res)))..;
3650: 3b 20 6a 75 73 74 20 67 65 74 20 63 6f 75 6e 74 ; just get count
3660: 20 6f 66 20 72 75 6e 73 0a 28 64 65 66 69 6e 65 of runs.(define
3670: 20 28 64 62 3a 67 65 74 2d 6e 75 6d 2d 72 75 6e (db:get-num-run
3680: 73 20 64 62 20 72 75 6e 70 61 74 74 29 0a 20 20 s db runpatt).
3690: 28 6c 65 74 20 28 28 6e 75 6d 72 75 6e 73 20 30 (let ((numruns 0
36a0: 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a )). (sqlite3:
36b0: 66 6f 72 2d 65 61 63 68 2d 72 6f 77 20 0a 20 20 for-each-row .
36c0: 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 75 6e (lambda (coun
36d0: 74 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 t). (set!
36e0: 6e 75 6d 72 75 6e 73 20 63 6f 75 6e 74 29 29 0a numruns count)).
36f0: 20 20 20 20 20 64 62 0a 20 20 20 20 20 22 53 45 db. "SE
3700: 4c 45 43 54 20 43 4f 55 4e 54 28 69 64 29 20 46 LECT COUNT(id) F
3710: 52 4f 4d 20 72 75 6e 73 20 57 48 45 52 45 20 72 ROM runs WHERE r
3720: 75 6e 6e 61 6d 65 20 4c 49 4b 45 20 3f 3b 22 20 unname LIKE ?;"
3730: 72 75 6e 70 61 74 74 29 0a 20 20 20 20 6e 75 6d runpatt). num
3740: 72 75 6e 73 29 29 0a 0a 0a 3b 3b 20 75 73 65 20 runs))...;; use
3750: 28 67 65 74 2d 76 61 6c 75 65 2d 62 79 2d 68 65 (get-value-by-he
3760: 61 64 65 72 20 28 64 62 3a 67 65 74 2d 68 65 61 ader (db:get-hea
3770: 64 65 72 20 72 75 6e 69 6e 66 6f 29 28 64 62 3a der runinfo)(db:
3780: 67 65 74 2d 72 6f 77 20 72 75 6e 69 6e 66 6f 29 get-row runinfo)
3790: 29 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 ).(define (db:ge
37a0: 74 2d 72 75 6e 2d 69 6e 66 6f 20 64 62 20 72 75 t-run-info db ru
37b0: 6e 2d 69 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 n-id). (let* ((
37c0: 72 65 73 20 20 20 20 20 20 23 66 29 0a 09 20 28 res #f).. (
37d0: 6b 65 79 73 20 20 20 20 20 20 28 64 62 2d 67 65 keys (db-ge
37e0: 74 2d 6b 65 79 73 20 64 62 29 29 0a 09 20 28 72 t-keys db)).. (r
37f0: 65 6d 66 69 65 6c 64 73 20 28 6c 69 73 74 20 22 emfields (list "
3800: 69 64 22 20 22 72 75 6e 6e 61 6d 65 22 20 22 73 id" "runname" "s
3810: 74 61 74 65 22 20 22 73 74 61 74 75 73 22 20 22 tate" "status" "
3820: 6f 77 6e 65 72 22 20 22 65 76 65 6e 74 5f 74 69 owner" "event_ti
3830: 6d 65 22 29 29 0a 09 20 28 68 65 61 64 65 72 20 me")).. (header
3840: 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 70 20 (append (map
3850: 6b 65 79 3a 67 65 74 2d 66 69 65 6c 64 6e 61 6d key:get-fieldnam
3860: 65 20 6b 65 79 73 29 0a 09 09 09 20 20 20 20 72 e keys).... r
3870: 65 6d 66 69 65 6c 64 73 29 29 0a 09 20 28 6b 65 emfields)).. (ke
3880: 79 73 74 72 20 20 20 20 28 63 6f 6e 63 20 28 6b ystr (conc (k
3890: 65 79 73 2d 3e 6b 65 79 73 74 72 20 6b 65 79 73 eys->keystr keys
38a0: 29 20 22 2c 22 0a 09 09 09 20 20 28 73 74 72 69 ) ",".... (stri
38b0: 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 20 72 ng-intersperse r
38c0: 65 6d 66 69 65 6c 64 73 20 22 2c 22 29 29 29 29 emfields ","))))
38d0: 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f . (sqlite3:fo
38e0: 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 r-each-row.
38f0: 28 6c 61 6d 62 64 61 20 28 61 20 2e 20 78 29 0a (lambda (a . x).
3900: 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 73 (set! res
3910: 20 28 61 70 70 6c 79 20 76 65 63 74 6f 72 20 61 (apply vector a
3920: 20 78 29 29 29 0a 20 20 20 20 20 64 62 0a 20 20 x))). db.
3930: 20 20 20 28 63 6f 6e 63 20 22 53 45 4c 45 43 54 (conc "SELECT
3940: 20 22 20 6b 65 79 73 74 72 20 22 20 46 52 4f 4d " keystr " FROM
3950: 20 72 75 6e 73 20 57 48 45 52 45 20 69 64 3d 3f runs WHERE id=?
3960: 3b 22 29 0a 20 20 20 20 20 72 75 6e 2d 69 64 29 ;"). run-id)
3970: 0a 20 20 20 20 28 76 65 63 74 6f 72 20 68 65 61 . (vector hea
3980: 64 65 72 20 72 65 73 29 29 29 0a 0a 28 64 65 66 der res)))..(def
3990: 69 6e 65 20 28 64 62 3a 73 65 74 2d 63 6f 6d 6d ine (db:set-comm
39a0: 65 6e 74 2d 66 6f 72 2d 72 75 6e 20 64 62 20 72 ent-for-run db r
39b0: 75 6e 2d 69 64 20 63 6f 6d 6d 65 6e 74 29 0a 20 un-id comment).
39c0: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
39d0: 65 20 64 62 20 22 55 50 44 41 54 45 20 72 75 6e e db "UPDATE run
39e0: 73 20 53 45 54 20 63 6f 6d 6d 65 6e 74 3d 3f 20 s SET comment=?
39f0: 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 63 6f 6d WHERE id=?;" com
3a00: 6d 65 6e 74 20 72 75 6e 2d 69 64 29 29 0a 0a 28 ment run-id))..(
3a10: 64 65 66 69 6e 65 20 28 64 62 3a 64 65 6c 65 74 define (db:delet
3a20: 65 2d 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 29 e-run db run-id)
3a30: 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
3a40: 75 74 65 20 64 62 20 22 44 45 4c 45 54 45 20 46 ute db "DELETE F
3a50: 52 4f 4d 20 72 75 6e 73 20 57 48 45 52 45 20 69 ROM runs WHERE i
3a60: 64 3d 3f 3b 22 20 72 75 6e 2d 69 64 29 29 0a 0a d=?;" run-id))..
3a70: 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;;==============
3a80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ab0: 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 20 54 20 45 ========.;; T E
3ac0: 20 53 20 54 20 53 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d S T S.;;=======
3ad0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ae0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3af0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
3b10: 0a 28 64 65 66 69 6e 65 20 28 64 62 2d 67 65 74 .(define (db-get
3b20: 2d 74 65 73 74 73 2d 66 6f 72 2d 72 75 6e 20 64 -tests-for-run d
3b30: 62 20 72 75 6e 2d 69 64 20 74 65 73 74 70 61 74 b run-id testpat
3b40: 74 20 69 74 65 6d 70 61 74 74 29 0a 20 20 28 6c t itempatt). (l
3b50: 65 74 20 28 28 72 65 73 20 27 28 29 29 29 0a 20 et ((res '())).
3b60: 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d (sqlite3:for-
3b70: 65 61 63 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 each-row . (
3b80: 6c 61 6d 62 64 61 20 28 69 64 20 72 75 6e 2d 69 lambda (id run-i
3b90: 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 74 65 d testname state
3ba0: 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 status event-ti
3bb0: 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 64 20 me host cpuload
3bc0: 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 20 72 diskfree uname r
3bd0: 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 68 20 undir item-path
3be0: 72 75 6e 2d 64 75 72 61 74 69 6f 6e 20 66 69 6e run-duration fin
3bf0: 61 6c 2d 6c 6f 67 66 20 63 6f 6d 6d 65 6e 74 20 al-logf comment
3c00: 66 69 72 73 74 2d 65 72 72 20 66 69 72 73 74 2d first-err first-
3c10: 77 61 72 6e 29 0a 20 20 20 20 20 20 20 28 73 65 warn). (se
3c20: 74 21 20 72 65 73 20 28 63 6f 6e 73 20 28 76 65 t! res (cons (ve
3c30: 63 74 6f 72 20 69 64 20 72 75 6e 2d 69 64 20 74 ctor id run-id t
3c40: 65 73 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 estname state st
3c50: 61 74 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 atus event-time
3c60: 68 6f 73 74 20 63 70 75 6c 6f 61 64 20 64 69 73 host cpuload dis
3c70: 6b 66 72 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 kfree uname rund
3c80: 69 72 20 69 74 65 6d 2d 70 61 74 68 20 72 75 6e ir item-path run
3c90: 2d 64 75 72 61 74 69 6f 6e 20 66 69 6e 61 6c 2d -duration final-
3ca0: 6c 6f 67 66 20 63 6f 6d 6d 65 6e 74 20 66 69 72 logf comment fir
3cb0: 73 74 2d 65 72 72 20 66 69 72 73 74 2d 77 61 72 st-err first-war
3cc0: 6e 29 20 72 65 73 29 29 29 0a 20 20 20 20 20 64 n) res))). d
3cd0: 62 20 0a 20 20 20 20 20 22 53 45 4c 45 43 54 20 b . "SELECT
3ce0: 69 64 2c 72 75 6e 5f 69 64 2c 74 65 73 74 6e 61 id,run_id,testna
3cf0: 6d 65 2c 73 74 61 74 65 2c 73 74 61 74 75 73 2c me,state,status,
3d00: 65 76 65 6e 74 5f 74 69 6d 65 2c 68 6f 73 74 2c event_time,host,
3d10: 63 70 75 6c 6f 61 64 2c 64 69 73 6b 66 72 65 65 cpuload,diskfree
3d20: 2c 75 6e 61 6d 65 2c 72 75 6e 64 69 72 2c 69 74 ,uname,rundir,it
3d30: 65 6d 5f 70 61 74 68 2c 72 75 6e 5f 64 75 72 61 em_path,run_dura
3d40: 74 69 6f 6e 2c 66 69 6e 61 6c 5f 6c 6f 67 66 2c tion,final_logf,
3d50: 63 6f 6d 6d 65 6e 74 2c 66 69 72 73 74 5f 65 72 comment,first_er
3d60: 72 2c 66 69 72 73 74 5f 77 61 72 6e 20 46 52 4f r,first_warn FRO
3d70: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 72 75 M tests WHERE ru
3d80: 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e n_id=? AND testn
3d90: 61 6d 65 20 6c 69 6b 65 20 3f 20 41 4e 44 20 69 ame like ? AND i
3da0: 74 65 6d 5f 70 61 74 68 20 4c 49 4b 45 20 3f 20 tem_path LIKE ?
3db0: 4f 52 44 45 52 20 42 59 20 69 64 20 44 45 53 43 ORDER BY id DESC
3dc0: 3b 22 0a 20 20 20 20 20 72 75 6e 2d 69 64 0a 20 ;". run-id.
3dd0: 20 20 20 20 28 69 66 20 74 65 73 74 70 61 74 74 (if testpatt
3de0: 20 74 65 73 74 70 61 74 74 20 22 25 22 29 0a 20 testpatt "%").
3df0: 20 20 20 20 28 69 66 20 69 74 65 6d 70 61 74 74 (if itempatt
3e00: 20 69 74 65 6d 70 61 74 74 20 22 25 22 29 29 0a itempatt "%")).
3e10: 20 20 20 20 72 65 73 29 29 0a 0a 3b 3b 20 74 68 res))..;; th
3e20: 69 73 20 6f 6e 65 20 69 73 20 61 20 62 69 74 20 is one is a bit
3e30: 62 72 6f 6b 65 6e 20 42 55 47 20 46 49 58 4d 45 broken BUG FIXME
3e40: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 64 65 6c .(define (db:del
3e50: 65 74 65 2d 74 65 73 74 2d 73 74 65 70 2d 72 65 ete-test-step-re
3e60: 63 6f 72 64 73 20 64 62 20 72 75 6e 2d 69 64 20 cords db run-id
3e70: 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 64 61 test-name itemda
3e80: 74 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 t). (sqlite3:ex
3e90: 65 63 75 74 65 20 64 62 20 22 44 45 4c 45 54 45 ecute db "DELETE
3ea0: 20 46 52 4f 4d 20 74 65 73 74 5f 73 74 65 70 73 FROM test_steps
3eb0: 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 20 69 WHERE test_id i
3ec0: 6e 20 28 53 45 4c 45 43 54 20 69 64 20 46 52 4f n (SELECT id FRO
3ed0: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 72 75 M tests WHERE ru
3ee0: 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e n_id=? AND testn
3ef0: 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f 70 ame=? AND item_p
3f00: 61 74 68 3d 3f 29 3b 22 20 0a 09 09 20 20 20 72 ath=?);" ... r
3f10: 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 6d 65 20 un-id test-name
3f20: 28 69 74 65 6d 2d 6c 69 73 74 2d 3e 70 61 74 68 (item-list->path
3f30: 20 69 74 65 6d 64 61 74 29 29 29 0a 3b 3b 20 0a itemdat))).;; .
3f40: 28 64 65 66 69 6e 65 20 28 64 62 3a 64 65 6c 65 (define (db:dele
3f50: 74 65 2d 74 65 73 74 2d 72 65 63 6f 72 64 73 20 te-test-records
3f60: 64 62 20 74 65 73 74 2d 69 64 29 0a 20 20 28 73 db test-id). (s
3f70: 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 qlite3:execute d
3f80: 62 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 b "DELETE FROM t
3f90: 65 73 74 5f 73 74 65 70 73 20 57 48 45 52 45 20 est_steps WHERE
3fa0: 74 65 73 74 5f 69 64 3d 3f 3b 22 20 74 65 73 74 test_id=?;" test
3fb0: 2d 69 64 29 0a 20 20 28 73 71 6c 69 74 65 33 3a -id). (sqlite3:
3fc0: 65 78 65 63 75 74 65 20 64 62 20 22 44 45 4c 45 execute db "DELE
3fd0: 54 45 20 46 52 4f 4d 20 74 65 73 74 5f 64 61 74 TE FROM test_dat
3fe0: 61 20 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 a WHERE test_id
3ff0: 3d 3f 3b 22 20 74 65 73 74 2d 69 64 29 0a 20 20 =?;" test-id).
4000: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
4010: 20 64 62 20 22 44 45 4c 45 54 45 20 46 52 4f 4d db "DELETE FROM
4020: 20 74 65 73 74 73 20 57 48 45 52 45 20 69 64 3d tests WHERE id=
4030: 3f 3b 22 20 74 65 73 74 2d 69 64 29 29 0a 0a 3b ?;" test-id))..;
4040: 3b 20 73 65 74 20 74 65 73 74 73 20 77 69 74 68 ; set tests with
4050: 20 73 74 61 74 65 20 63 75 72 72 73 74 61 74 65 state currstate
4060: 20 61 6e 64 20 73 74 61 74 75 73 20 63 75 72 72 and status curr
4070: 73 74 61 74 75 73 20 74 6f 20 6e 65 77 73 74 61 status to newsta
4080: 74 65 20 61 6e 64 20 6e 65 77 73 74 61 74 75 73 te and newstatus
4090: 0a 3b 3b 20 75 73 65 20 63 75 72 72 73 74 61 74 .;; use currstat
40a0: 65 20 3d 20 23 66 20 61 6e 64 20 6f 72 20 63 75 e = #f and or cu
40b0: 72 72 73 74 61 74 75 73 20 3d 20 23 66 20 74 6f rrstatus = #f to
40c0: 20 61 70 70 6c 79 20 74 6f 20 61 6e 79 20 73 74 apply to any st
40d0: 61 74 65 20 6f 72 20 73 74 61 74 75 73 20 72 65 ate or status re
40e0: 73 70 65 63 74 69 76 65 6c 79 0a 3b 3b 20 57 41 spectively.;; WA
40f0: 52 4e 49 4e 47 3a 20 53 51 4c 20 69 6e 6a 65 63 RNING: SQL injec
4100: 74 69 6f 6e 20 72 69 73 6b 0a 28 64 65 66 69 6e tion risk.(defin
4110: 65 20 28 64 62 3a 73 65 74 2d 74 65 73 74 73 2d e (db:set-tests-
4120: 73 74 61 74 65 2d 73 74 61 74 75 73 20 64 62 20 state-status db
4130: 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 73 run-id testnames
4140: 20 63 75 72 72 73 74 61 74 65 20 63 75 72 72 73 currstate currs
4150: 74 61 74 75 73 20 6e 65 77 73 74 61 74 65 20 6e tatus newstate n
4160: 65 77 73 74 61 74 75 73 29 0a 20 20 28 66 6f 72 ewstatus). (for
4170: 2d 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 74 -each (lambda (t
4180: 65 73 74 6e 61 6d 65 29 0a 09 20 20 20 20 20 20 estname)..
4190: 28 6c 65 74 20 28 28 71 72 79 20 28 63 6f 6e 63 (let ((qry (conc
41a0: 20 22 55 50 44 41 54 45 20 74 65 73 74 73 20 53 "UPDATE tests S
41b0: 45 54 20 73 74 61 74 65 3d 3f 2c 73 74 61 74 75 ET state=?,statu
41c0: 73 3d 3f 20 57 48 45 52 45 20 22 0a 09 09 09 09 s=? WHERE ".....
41d0: 09 28 69 66 20 63 75 72 72 73 74 61 74 65 20 20 .(if currstate
41e0: 28 63 6f 6e 63 20 22 73 74 61 74 65 3d 27 22 20 (conc "state='"
41f0: 63 75 72 72 73 74 61 74 65 20 22 27 20 41 4e 44 currstate "' AND
4200: 20 22 29 20 22 22 29 0a 09 09 09 09 09 28 69 66 ") "")......(if
4210: 20 63 75 72 72 73 74 61 74 75 73 20 28 63 6f 6e currstatus (con
4220: 63 20 22 73 74 61 74 75 73 3d 27 22 20 63 75 72 c "status='" cur
4230: 72 73 74 61 74 75 73 20 22 27 20 41 4e 44 20 22 rstatus "' AND "
4240: 29 20 22 22 29 0a 09 09 09 09 09 22 20 72 75 6e ) "")......" run
4250: 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e 61 _id=? AND testna
4260: 6d 65 3d 3f 20 41 4e 44 20 4e 4f 54 20 28 69 74 me=? AND NOT (it
4270: 65 6d 5f 70 61 74 68 3d 27 27 20 41 4e 44 20 74 em_path='' AND t
4280: 65 73 74 6e 61 6d 65 20 69 6e 20 28 53 45 4c 45 estname in (SELE
4290: 43 54 20 44 49 53 54 49 4e 43 54 20 74 65 73 74 CT DISTINCT test
42a0: 6e 61 6d 65 20 46 52 4f 4d 20 74 65 73 74 73 20 name FROM tests
42b0: 57 48 45 52 45 20 74 65 73 74 6e 61 6d 65 3d 3f WHERE testname=?
42c0: 20 41 4e 44 20 69 74 65 6d 5f 70 61 74 68 20 21 AND item_path !
42d0: 3d 20 27 27 29 29 3b 22 29 29 29 0a 09 09 3b 3b = ''));")))...;;
42e0: 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 22 (debug:print 0 "
42f0: 51 52 59 3a 20 22 20 71 72 79 29 0a 09 09 28 73 QRY: " qry)...(s
4300: 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 qlite3:execute d
4310: 62 20 71 72 79 20 72 75 6e 2d 69 64 20 6e 65 77 b qry run-id new
4320: 73 74 61 74 65 20 6e 65 77 73 74 61 74 75 73 20 state newstatus
4330: 74 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d testname testnam
4340: 65 29 29 29 0a 09 20 20 20 20 74 65 73 74 6e 61 e))).. testna
4350: 6d 65 73 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 mes))..(define (
4360: 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 73 2d db:delete-tests-
4370: 69 6e 2d 73 74 61 74 65 20 64 62 20 72 75 6e 2d in-state db run-
4380: 69 64 20 73 74 61 74 65 29 0a 20 20 28 73 71 6c id state). (sql
4390: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
43a0: 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 65 73 "DELETE FROM tes
43b0: 74 73 20 57 48 45 52 45 20 73 74 61 74 65 3d 3f ts WHERE state=?
43c0: 20 41 4e 44 20 72 75 6e 5f 69 64 3d 3f 3b 22 20 AND run_id=?;"
43d0: 73 74 61 74 65 20 72 75 6e 2d 69 64 29 29 0a 0a state run-id))..
43e0: 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 (define (db:test
43f0: 2d 73 65 74 2d 73 74 61 74 65 2d 73 74 61 74 75 -set-state-statu
4400: 73 2d 62 79 2d 69 64 20 64 62 20 74 65 73 74 2d s-by-id db test-
4410: 69 64 20 6e 65 77 73 74 61 74 65 20 6e 65 77 73 id newstate news
4420: 74 61 74 75 73 20 6e 65 77 63 6f 6d 6d 65 6e 74 tatus newcomment
4430: 29 0a 20 20 28 69 66 20 6e 65 77 73 74 61 74 65 ). (if newstate
4440: 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 (sqlite3:exec
4450: 75 74 65 20 64 62 20 22 55 50 44 41 54 45 20 74 ute db "UPDATE t
4460: 65 73 74 73 20 53 45 54 20 73 74 61 74 65 3d 3f ests SET state=?
4470: 20 20 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 WHERE id=?;"
4480: 6e 65 77 73 74 61 74 65 20 20 20 74 65 73 74 2d newstate test-
4490: 69 64 29 29 0a 20 20 28 69 66 20 6e 65 77 73 74 id)). (if newst
44a0: 61 74 75 73 20 20 28 73 71 6c 69 74 65 33 3a 65 atus (sqlite3:e
44b0: 78 65 63 75 74 65 20 64 62 20 22 55 50 44 41 54 xecute db "UPDAT
44c0: 45 20 74 65 73 74 73 20 53 45 54 20 73 74 61 74 E tests SET stat
44d0: 75 73 3d 3f 20 20 57 48 45 52 45 20 69 64 3d 3f us=? WHERE id=?
44e0: 3b 22 20 6e 65 77 73 74 61 74 75 73 20 20 74 65 ;" newstatus te
44f0: 73 74 2d 69 64 29 29 0a 20 20 28 69 66 20 6e 65 st-id)). (if ne
4500: 77 63 6f 6d 6d 65 6e 74 20 28 73 71 6c 69 74 65 wcomment (sqlite
4510: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 50 3:execute db "UP
4520: 44 41 54 45 20 74 65 73 74 73 20 53 45 54 20 63 DATE tests SET c
4530: 6f 6d 6d 65 6e 74 3d 3f 20 57 48 45 52 45 20 69 omment=? WHERE i
4540: 64 3d 3f 3b 22 20 6e 65 77 63 6f 6d 6d 65 6e 74 d=?;" newcomment
4550: 20 74 65 73 74 2d 69 64 29 29 29 0a 0a 28 64 65 test-id)))..(de
4560: 66 69 6e 65 20 28 64 62 3a 67 65 74 2d 63 6f 75 fine (db:get-cou
4570: 6e 74 2d 74 65 73 74 73 2d 72 75 6e 6e 69 6e 67 nt-tests-running
4580: 20 64 62 29 0a 20 20 28 6c 65 74 20 28 28 72 65 db). (let ((re
4590: 73 20 30 29 29 0a 20 20 20 20 28 73 71 6c 69 74 s 0)). (sqlit
45a0: 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a e3:for-each-row.
45b0: 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f (lambda (co
45c0: 75 6e 74 29 0a 20 20 20 20 20 20 20 28 73 65 74 unt). (set
45d0: 21 20 72 65 73 20 63 6f 75 6e 74 29 29 0a 20 20 ! res count)).
45e0: 20 20 20 64 62 0a 20 20 20 20 20 22 53 45 4c 45 db. "SELE
45f0: 43 54 20 63 6f 75 6e 74 28 69 64 29 20 46 52 4f CT count(id) FRO
4600: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 73 74 M tests WHERE st
4610: 61 74 65 20 3d 20 27 52 55 4e 4e 49 4e 47 27 20 ate = 'RUNNING'
4620: 4f 52 20 73 74 61 74 65 20 3d 20 27 4c 41 55 4e OR state = 'LAUN
4630: 43 48 45 44 27 20 4f 52 20 73 74 61 74 65 20 3d CHED' OR state =
4640: 20 27 52 45 4d 4f 54 45 48 4f 53 54 53 54 41 52 'REMOTEHOSTSTAR
4650: 54 27 3b 22 29 0a 20 20 20 20 72 65 73 29 29 0a T';"). res)).
4660: 0a 3b 3b 20 64 6f 6e 65 20 77 69 74 68 20 72 75 .;; done with ru
4670: 6e 20 77 68 65 6e 3a 0a 3b 3b 20 20 20 30 20 74 n when:.;; 0 t
4680: 65 73 74 73 20 69 6e 20 4c 41 55 4e 43 48 45 44 ests in LAUNCHED
4690: 2c 20 4e 4f 54 5f 53 54 41 52 54 45 44 2c 20 52 , NOT_STARTED, R
46a0: 45 4d 4f 54 45 48 4f 53 54 53 54 41 52 54 2c 20 EMOTEHOSTSTART,
46b0: 52 55 4e 4e 49 4e 47 0a 28 64 65 66 69 6e 65 20 RUNNING.(define
46c0: 28 64 62 3a 65 73 74 69 6d 61 74 65 64 2d 74 65 (db:estimated-te
46d0: 73 74 73 2d 72 65 6d 61 69 6e 69 6e 67 20 64 62 sts-remaining db
46e0: 20 72 75 6e 2d 69 64 29 0a 20 20 28 6c 65 74 20 run-id). (let
46f0: 28 28 72 65 73 20 30 29 29 0a 20 20 20 20 28 73 ((res 0)). (s
4700: 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d qlite3:for-each-
4710: 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 row. (lambda
4720: 20 28 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 (count).
4730: 28 73 65 74 21 20 72 65 73 20 63 6f 75 6e 74 29 (set! res count)
4740: 29 0a 20 20 20 20 20 64 62 20 3b 3b 20 4e 42 2f ). db ;; NB/
4750: 2f 20 4b 49 4c 4c 52 45 51 20 6d 65 61 6e 73 20 / KILLREQ means
4760: 74 68 65 20 6a 6f 62 73 20 69 73 20 73 74 69 6c the jobs is stil
4770: 6c 20 70 72 6f 62 61 62 6c 79 20 72 75 6e 6e 69 l probably runni
4780: 6e 67 0a 20 20 20 20 20 22 53 45 4c 45 43 54 20 ng. "SELECT
4790: 63 6f 75 6e 74 28 69 64 29 20 46 52 4f 4d 20 74 count(id) FROM t
47a0: 65 73 74 73 20 57 48 45 52 45 20 73 74 61 74 65 ests WHERE state
47b0: 20 69 6e 20 28 27 4c 41 55 4e 43 48 45 44 27 2c in ('LAUNCHED',
47c0: 27 4e 4f 54 5f 53 54 41 52 54 45 44 27 2c 27 52 'NOT_STARTED','R
47d0: 45 4d 4f 54 45 48 4f 53 54 53 54 41 52 54 27 2c EMOTEHOSTSTART',
47e0: 27 52 55 4e 4e 49 4e 47 27 2c 27 4b 49 4c 4c 52 'RUNNING','KILLR
47f0: 45 51 27 29 20 41 4e 44 20 72 75 6e 5f 69 64 3d EQ') AND run_id=
4800: 3f 3b 22 20 72 75 6e 2d 69 64 29 0a 20 20 20 20 ?;" run-id).
4810: 72 65 73 29 29 0a 0a 3b 3b 20 4e 42 2f 2f 20 53 res))..;; NB// S
4820: 79 6e 63 20 74 68 69 73 20 77 69 74 68 20 72 75 ync this with ru
4830: 6e 73 3a 67 65 74 2d 74 65 73 74 2d 69 6e 66 6f ns:get-test-info
4840: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 .(define (db:get
4850: 2d 74 65 73 74 2d 69 6e 66 6f 20 64 62 20 72 75 -test-info db ru
4860: 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 n-id testname it
4870: 65 6d 2d 70 61 74 68 29 0a 20 20 28 6c 65 74 20 em-path). (let
4880: 28 28 72 65 73 20 23 66 29 29 0a 20 20 20 20 28 ((res #f)). (
4890: 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 sqlite3:for-each
48a0: 2d 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 -row. (lambd
48b0: 61 20 28 69 64 20 72 75 6e 2d 69 64 20 74 65 73 a (id run-id tes
48c0: 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 tname state stat
48d0: 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f us event-time ho
48e0: 73 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 st cpuload diskf
48f0: 72 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 ree uname rundir
4900: 20 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 5f 64 item-path run_d
4910: 75 72 61 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f uration final_lo
4920: 67 66 20 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 gf comment first
4930: 2d 65 72 72 20 66 69 72 73 74 2d 77 61 72 6e 29 -err first-warn)
4940: 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 . (set! re
4950: 73 20 28 76 65 63 74 6f 72 20 69 64 20 72 75 6e s (vector id run
4960: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 -id testname sta
4970: 74 65 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d te status event-
4980: 74 69 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 time host cpuloa
4990: 64 20 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 d diskfree uname
49a0: 20 72 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 rundir item-pat
49b0: 68 20 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 h run_duration f
49c0: 69 6e 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e inal_logf commen
49d0: 74 20 66 69 72 73 74 2d 65 72 72 20 66 69 72 73 t first-err firs
49e0: 74 2d 77 61 72 6e 29 29 29 0a 20 20 20 20 20 64 t-warn))). d
49f0: 62 20 0a 20 20 20 20 20 22 53 45 4c 45 43 54 20 b . "SELECT
4a00: 69 64 2c 72 75 6e 5f 69 64 2c 74 65 73 74 6e 61 id,run_id,testna
4a10: 6d 65 2c 73 74 61 74 65 2c 73 74 61 74 75 73 2c me,state,status,
4a20: 65 76 65 6e 74 5f 74 69 6d 65 2c 68 6f 73 74 2c event_time,host,
4a30: 63 70 75 6c 6f 61 64 2c 64 69 73 6b 66 72 65 65 cpuload,diskfree
4a40: 2c 75 6e 61 6d 65 2c 72 75 6e 64 69 72 2c 69 74 ,uname,rundir,it
4a50: 65 6d 5f 70 61 74 68 2c 72 75 6e 5f 64 75 72 61 em_path,run_dura
4a60: 74 69 6f 6e 2c 66 69 6e 61 6c 5f 6c 6f 67 66 2c tion,final_logf,
4a70: 63 6f 6d 6d 65 6e 74 2c 66 69 72 73 74 5f 65 72 comment,first_er
4a80: 72 2c 66 69 72 73 74 5f 77 61 72 6e 20 46 52 4f r,first_warn FRO
4a90: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 72 75 M tests WHERE ru
4aa0: 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e n_id=? AND testn
4ab0: 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f 70 ame=? AND item_p
4ac0: 61 74 68 3d 3f 3b 22 0a 20 20 20 20 20 72 75 6e ath=?;". run
4ad0: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
4ae0: 6d 2d 70 61 74 68 29 0a 20 20 20 20 72 65 73 29 m-path). res)
4af0: 29 0a 0a 3b 3b 20 47 65 74 20 74 65 73 74 20 64 )..;; Get test d
4b00: 61 74 61 20 75 73 69 6e 67 20 74 65 73 74 5f 69 ata using test_i
4b10: 64 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 d.(define (db:ge
4b20: 74 2d 74 65 73 74 2d 64 61 74 61 2d 62 79 2d 69 t-test-data-by-i
4b30: 64 20 64 62 20 74 65 73 74 2d 69 64 29 0a 20 20 d db test-id).
4b40: 28 6c 65 74 20 28 28 72 65 73 20 23 66 29 29 0a (let ((res #f)).
4b50: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 (sqlite3:for
4b60: 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 -each-row. (
4b70: 6c 61 6d 62 64 61 20 28 69 64 20 72 75 6e 2d 69 lambda (id run-i
4b80: 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 74 65 d testname state
4b90: 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 status event-ti
4ba0: 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 64 20 me host cpuload
4bb0: 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 20 72 diskfree uname r
4bc0: 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 68 20 undir item-path
4bd0: 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 69 6e run_duration fin
4be0: 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e 74 20 al_logf comment
4bf0: 66 69 72 73 74 2d 65 72 72 20 66 69 72 73 74 2d first-err first-
4c00: 77 61 72 6e 29 0a 20 20 20 20 20 20 20 28 73 65 warn). (se
4c10: 74 21 20 72 65 73 20 28 76 65 63 74 6f 72 20 69 t! res (vector i
4c20: 64 20 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d d run-id testnam
4c30: 65 20 73 74 61 74 65 20 73 74 61 74 75 73 20 65 e state status e
4c40: 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 74 20 63 vent-time host c
4c50: 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 65 65 20 puload diskfree
4c60: 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 69 74 65 uname rundir ite
4c70: 6d 2d 70 61 74 68 20 72 75 6e 5f 64 75 72 61 74 m-path run_durat
4c80: 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f 67 66 20 63 ion final_logf c
4c90: 6f 6d 6d 65 6e 74 20 66 69 72 73 74 2d 65 72 72 omment first-err
4ca0: 20 66 69 72 73 74 2d 77 61 72 6e 29 29 29 0a 20 first-warn))).
4cb0: 20 20 20 20 64 62 20 0a 20 20 20 20 20 22 53 45 db . "SE
4cc0: 4c 45 43 54 20 69 64 2c 72 75 6e 5f 69 64 2c 74 LECT id,run_id,t
4cd0: 65 73 74 6e 61 6d 65 2c 73 74 61 74 65 2c 73 74 estname,state,st
4ce0: 61 74 75 73 2c 65 76 65 6e 74 5f 74 69 6d 65 2c atus,event_time,
4cf0: 68 6f 73 74 2c 63 70 75 6c 6f 61 64 2c 64 69 73 host,cpuload,dis
4d00: 6b 66 72 65 65 2c 75 6e 61 6d 65 2c 72 75 6e 64 kfree,uname,rund
4d10: 69 72 2c 69 74 65 6d 5f 70 61 74 68 2c 72 75 6e ir,item_path,run
4d20: 5f 64 75 72 61 74 69 6f 6e 2c 66 69 6e 61 6c 5f _duration,final_
4d30: 6c 6f 67 66 2c 63 6f 6d 6d 65 6e 74 2c 66 69 72 logf,comment,fir
4d40: 73 74 5f 65 72 72 2c 66 69 72 73 74 5f 77 61 72 st_err,first_war
4d50: 6e 20 46 52 4f 4d 20 74 65 73 74 73 20 57 48 45 n FROM tests WHE
4d60: 52 45 20 69 64 3d 3f 3b 22 0a 20 20 20 20 20 74 RE id=?;". t
4d70: 65 73 74 2d 69 64 29 0a 20 20 20 20 72 65 73 29 est-id). res)
4d80: 29 0a 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a )...(define (db:
4d90: 74 65 73 74 2d 73 65 74 2d 63 6f 6d 6d 65 6e 74 test-set-comment
4da0: 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 6e db run-id testn
4db0: 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 63 6f ame item-path co
4dc0: 6d 6d 65 6e 74 29 0a 20 20 28 73 71 6c 69 74 65 mment). (sqlite
4dd0: 33 3a 65 78 65 63 75 74 65 20 0a 20 20 20 64 62 3:execute . db
4de0: 20 0a 20 20 20 22 55 50 44 41 54 45 20 74 65 73 . "UPDATE tes
4df0: 74 73 20 53 45 54 20 63 6f 6d 6d 65 6e 74 3d 3f ts SET comment=?
4e00: 20 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 WHERE run_id=?
4e10: 41 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 AND testname=? A
4e20: 4e 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 3b 22 ND item_path=?;"
4e30: 0a 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 75 . comment ru
4e40: 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 n-id testname it
4e50: 65 6d 2d 70 61 74 68 29 29 0a 0a 3b 3b 0a 28 64 em-path))..;;.(d
4e60: 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 efine (db:test-s
4e70: 65 74 2d 72 75 6e 64 69 72 21 20 64 62 20 72 75 et-rundir! db ru
4e80: 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 n-id testname it
4e90: 65 6d 2d 70 61 74 68 20 72 75 6e 64 69 72 29 0a em-path rundir).
4ea0: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
4eb0: 74 65 20 0a 20 20 20 64 62 20 0a 20 20 20 22 55 te . db . "U
4ec0: 50 44 41 54 45 20 74 65 73 74 73 20 53 45 54 20 PDATE tests SET
4ed0: 72 75 6e 64 69 72 3d 3f 20 57 48 45 52 45 20 72 rundir=? WHERE r
4ee0: 75 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 un_id=? AND test
4ef0: 6e 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f name=? AND item_
4f00: 70 61 74 68 3d 3f 3b 22 0a 20 20 20 20 20 72 75 path=?;". ru
4f10: 6e 64 69 72 20 72 75 6e 2d 69 64 20 74 65 73 74 ndir run-id test
4f20: 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 29 29 name item-path))
4f30: 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ..;;============
4f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 54 65 ==========.;; Te
4f80: 73 74 73 20 6d 65 74 61 20 64 61 74 61 0a 3b 3b sts meta data.;;
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: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fd0: 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 72 65 61 64 20 ======..;; read
4fe0: 74 68 65 20 72 65 63 6f 72 64 20 67 69 76 65 6e the record given
4ff0: 20 61 20 74 65 73 74 6e 61 6d 65 0a 28 64 65 66 a testname.(def
5000: 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 ine (db:testmeta
5010: 2d 67 65 74 2d 72 65 63 6f 72 64 20 64 62 20 74 -get-record db t
5020: 65 73 74 6e 61 6d 65 29 0a 20 20 28 6c 65 74 20 estname). (let
5030: 28 28 72 65 73 20 23 66 29 29 0a 20 20 20 20 28 ((res #f)). (
5040: 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 sqlite3:for-each
5050: 2d 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 -row. (lambd
5060: 61 20 28 69 64 20 74 65 73 74 6e 61 6d 65 20 61 a (id testname a
5070: 75 74 68 6f 72 20 6f 77 6e 65 72 20 64 65 73 63 uthor owner desc
5080: 72 69 70 74 69 6f 6e 20 72 65 76 69 65 77 65 64 ription reviewed
5090: 20 69 74 65 72 61 74 65 64 20 61 76 67 5f 72 75 iterated avg_ru
50a0: 6e 74 69 6d 65 20 61 76 67 5f 64 69 73 6b 20 74 ntime avg_disk t
50b0: 61 67 73 29 0a 20 20 20 20 20 20 20 28 73 65 74 ags). (set
50c0: 21 20 72 65 73 20 28 76 65 63 74 6f 72 20 69 64 ! res (vector id
50d0: 20 74 65 73 74 6e 61 6d 65 20 61 75 74 68 6f 72 testname author
50e0: 20 6f 77 6e 65 72 20 64 65 73 63 72 69 70 74 69 owner descripti
50f0: 6f 6e 20 72 65 76 69 65 77 65 64 20 69 74 65 72 on reviewed iter
5100: 61 74 65 64 20 61 76 67 5f 72 75 6e 74 69 6d 65 ated avg_runtime
5110: 20 61 76 67 5f 64 69 73 6b 20 74 61 67 73 29 29 avg_disk tags))
5120: 29 0a 20 20 20 20 20 64 62 20 22 53 45 4c 45 43 ). db "SELEC
5130: 54 20 69 64 2c 74 65 73 74 6e 61 6d 65 2c 61 75 T id,testname,au
5140: 74 68 6f 72 2c 6f 77 6e 65 72 2c 64 65 73 63 72 thor,owner,descr
5150: 69 70 74 69 6f 6e 2c 72 65 76 69 65 77 65 64 2c iption,reviewed,
5160: 69 74 65 72 61 74 65 64 2c 61 76 67 5f 72 75 6e iterated,avg_run
5170: 74 69 6d 65 2c 61 76 67 5f 64 69 73 6b 2c 74 61 time,avg_disk,ta
5180: 67 73 20 46 52 4f 4d 20 74 65 73 74 5f 6d 65 74 gs FROM test_met
5190: 61 20 57 48 45 52 45 20 74 65 73 74 6e 61 6d 65 a WHERE testname
51a0: 3d 3f 3b 22 0a 20 20 20 20 20 74 65 73 74 6e 61 =?;". testna
51b0: 6d 65 29 0a 20 20 20 20 72 65 73 29 29 0a 0a 3b me). res))..;
51c0: 3b 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 72 ; create a new r
51d0: 65 63 6f 72 64 20 66 6f 72 20 61 20 67 69 76 65 ecord for a give
51e0: 6e 20 74 65 73 74 6e 61 6d 65 0a 28 64 65 66 69 n testname.(defi
51f0: 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d ne (db:testmeta-
5200: 61 64 64 2d 72 65 63 6f 72 64 20 64 62 20 74 65 add-record db te
5210: 73 74 6e 61 6d 65 29 0a 20 20 28 73 71 6c 69 74 stname). (sqlit
5220: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 49 e3:execute db "I
5230: 4e 53 45 52 54 20 4f 52 20 49 47 4e 4f 52 45 20 NSERT OR IGNORE
5240: 49 4e 54 4f 20 74 65 73 74 5f 6d 65 74 61 20 28 INTO test_meta (
5250: 74 65 73 74 6e 61 6d 65 2c 61 75 74 68 6f 72 2c testname,author,
5260: 6f 77 6e 65 72 2c 64 65 73 63 72 69 70 74 69 6f owner,descriptio
5270: 6e 2c 72 65 76 69 65 77 65 64 2c 69 74 65 72 61 n,reviewed,itera
5280: 74 65 64 2c 61 76 67 5f 72 75 6e 74 69 6d 65 2c ted,avg_runtime,
5290: 61 76 67 5f 64 69 73 6b 2c 74 61 67 73 29 20 56 avg_disk,tags) V
52a0: 41 4c 55 45 53 20 28 3f 2c 27 27 2c 27 27 2c 27 ALUES (?,'','','
52b0: 27 2c 27 27 2c 27 27 2c 27 27 2c 27 27 2c 27 27 ','','','','',''
52c0: 29 3b 22 20 74 65 73 74 6e 61 6d 65 29 29 0a 0a );" testname))..
52d0: 3b 3b 20 75 70 64 61 74 65 20 6f 6e 65 20 6f 66 ;; update one of
52e0: 20 74 68 65 20 74 65 73 74 6d 65 74 61 20 66 69 the testmeta fi
52f0: 65 6c 64 73 0a 28 64 65 66 69 6e 65 20 28 64 62 elds.(define (db
5300: 3a 74 65 73 74 6d 65 74 61 2d 75 70 64 61 74 65 :testmeta-update
5310: 2d 66 69 65 6c 64 20 64 62 20 74 65 73 74 6e 61 -field db testna
5320: 6d 65 20 66 69 65 6c 64 20 76 61 6c 75 65 29 0a me field value).
5330: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
5340: 74 65 20 64 62 20 28 63 6f 6e 63 20 22 55 50 44 te db (conc "UPD
5350: 41 54 45 20 74 65 73 74 5f 6d 65 74 61 20 53 45 ATE test_meta SE
5360: 54 20 22 20 66 69 65 6c 64 20 22 3d 3f 20 57 48 T " field "=? WH
5370: 45 52 45 20 74 65 73 74 6e 61 6d 65 3d 3f 3b 22 ERE testname=?;"
5380: 29 20 76 61 6c 75 65 20 74 65 73 74 6e 61 6d 65 ) value testname
5390: 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ))..;;==========
53a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 ============.;;
53e0: 54 20 45 20 53 20 54 20 20 20 44 20 41 20 54 20 T E S T D A T
53f0: 41 20 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d A .;;===========
5400: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5420: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 ===========..(de
5440: 66 69 6e 65 20 28 64 62 3a 63 73 76 2d 3e 74 65 fine (db:csv->te
5450: 73 74 2d 64 61 74 61 20 64 62 20 74 65 73 74 2d st-data db test-
5460: 69 64 20 63 73 76 64 61 74 61 29 0a 20 20 28 64 id csvdata). (d
5470: 65 62 75 67 3a 70 72 69 6e 74 20 34 20 22 74 65 ebug:print 4 "te
5480: 73 74 2d 69 64 20 22 20 74 65 73 74 2d 69 64 20 st-id " test-id
5490: 22 2c 20 63 73 76 64 61 74 61 3a 20 22 20 63 73 ", csvdata: " cs
54a0: 76 64 61 74 61 29 0a 20 20 28 6c 65 74 20 28 28 vdata). (let ((
54b0: 63 73 76 6c 69 73 74 20 28 63 73 76 2d 3e 6c 69 csvlist (csv->li
54c0: 73 74 20 28 6d 61 6b 65 2d 63 73 76 2d 72 65 61 st (make-csv-rea
54d0: 64 65 72 0a 09 09 09 20 20 20 20 20 28 6f 70 65 der.... (ope
54e0: 6e 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 63 n-input-string c
54f0: 73 76 64 61 74 61 29 0a 09 09 09 20 20 20 20 20 svdata)....
5500: 27 28 28 73 74 72 69 70 2d 6c 65 61 64 69 6e 67 '((strip-leading
5510: 2d 77 68 69 74 65 73 70 61 63 65 3f 20 23 74 29 -whitespace? #t)
5520: 0a 09 09 09 20 20 20 20 20 20 20 28 73 74 72 69 .... (stri
5530: 70 2d 74 72 61 69 6c 69 6e 67 2d 77 68 69 74 65 p-trailing-white
5540: 73 70 61 63 65 3f 20 23 74 29 29 20 29 29 29 29 space? #t)) ))))
5550: 20 3b 3b 20 28 63 73 76 2d 3e 6c 69 73 74 20 63 ;; (csv->list c
5560: 73 76 64 61 74 61 29 29 29 0a 20 20 20 20 28 66 svdata))). (f
5570: 6f 72 2d 65 61 63 68 20 0a 20 20 20 20 20 28 6c or-each . (l
5580: 61 6d 62 64 61 20 28 63 73 76 72 6f 77 29 0a 20 ambda (csvrow).
5590: 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 (let* ((pa
55a0: 64 64 65 64 2d 72 6f 77 20 20 28 74 61 6b 65 20 dded-row (take
55b0: 28 61 70 70 65 6e 64 20 63 73 76 72 6f 77 20 28 (append csvrow (
55c0: 6c 69 73 74 20 23 66 20 23 66 20 23 66 20 23 66 list #f #f #f #f
55d0: 20 23 66 20 23 66 20 23 66 20 23 66 29 29 20 38 #f #f #f #f)) 8
55e0: 29 29 0a 09 20 20 20 20 20 20 28 63 61 74 65 67 )).. (categ
55f0: 6f 72 79 20 20 20 20 28 6c 69 73 74 2d 72 65 66 ory (list-ref
5600: 20 70 61 64 64 65 64 2d 72 6f 77 20 30 29 29 0a padded-row 0)).
5610: 09 20 20 20 20 20 20 28 76 61 72 69 61 62 6c 65 . (variable
5620: 20 20 20 20 28 6c 69 73 74 2d 72 65 66 20 70 61 (list-ref pa
5630: 64 64 65 64 2d 72 6f 77 20 31 29 29 0a 09 20 20 dded-row 1))..
5640: 20 20 20 20 28 76 61 6c 75 65 20 20 20 20 20 20 (value
5650: 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 2d 69 66 (any->number-if
5660: 2d 70 6f 73 73 69 62 6c 65 20 28 6c 69 73 74 2d -possible (list-
5670: 72 65 66 20 70 61 64 64 65 64 2d 72 6f 77 20 32 ref padded-row 2
5680: 29 29 29 0a 09 20 20 20 20 20 20 28 65 78 70 65 ))).. (expe
5690: 63 74 65 64 20 20 20 20 28 61 6e 79 2d 3e 6e 75 cted (any->nu
56a0: 6d 62 65 72 2d 69 66 2d 70 6f 73 73 69 62 6c 65 mber-if-possible
56b0: 20 28 6c 69 73 74 2d 72 65 66 20 70 61 64 64 65 (list-ref padde
56c0: 64 2d 72 6f 77 20 33 29 29 29 0a 09 20 20 20 20 d-row 3)))..
56d0: 20 20 28 74 6f 6c 20 20 20 20 20 20 20 20 20 28 (tol (
56e0: 61 6e 79 2d 3e 6e 75 6d 62 65 72 2d 69 66 2d 70 any->number-if-p
56f0: 6f 73 73 69 62 6c 65 20 28 6c 69 73 74 2d 72 65 ossible (list-re
5700: 66 20 70 61 64 64 65 64 2d 72 6f 77 20 34 29 29 f padded-row 4))
5710: 29 20 3b 3b 20 3e 2c 20 3c 2c 20 3e 3d 2c 20 3c ) ;; >, <, >=, <
5720: 3d 2c 20 6f 72 20 61 20 6e 75 6d 62 65 72 0a 09 =, or a number..
5730: 20 20 20 20 20 20 28 75 6e 69 74 73 20 20 20 20 (units
5740: 20 20 20 28 6c 69 73 74 2d 72 65 66 20 70 61 64 (list-ref pad
5750: 64 65 64 2d 72 6f 77 20 35 29 29 0a 09 20 20 20 ded-row 5))..
5760: 20 20 20 28 63 6f 6d 6d 65 6e 74 20 20 20 20 20 (comment
5770: 28 6c 69 73 74 2d 72 65 66 20 70 61 64 64 65 64 (list-ref padded
5780: 2d 72 6f 77 20 36 29 29 0a 09 20 20 20 20 20 20 -row 6))..
5790: 28 73 74 61 74 75 73 20 20 20 20 20 20 28 6c 65 (status (le
57a0: 74 20 28 28 73 20 28 6c 69 73 74 2d 72 65 66 20 t ((s (list-ref
57b0: 70 61 64 64 65 64 2d 72 6f 77 20 37 29 29 29 0a padded-row 7))).
57c0: 09 09 09 20 20 20 20 20 28 69 66 20 28 61 6e 64 ... (if (and
57d0: 20 28 73 74 72 69 6e 67 3f 20 73 29 28 6f 72 20 (string? s)(or
57e0: 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 72 (string-match (r
57f0: 65 67 65 78 70 20 22 5e 5c 5c 73 2a 24 22 29 20 egexp "^\\s*$")
5800: 73 29 0a 09 09 09 09 09 09 20 20 20 20 20 28 73 s)....... (s
5810: 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 72 65 67 tring-match (reg
5820: 65 78 70 20 22 5e 6e 2f 61 24 22 29 20 73 29 29 exp "^n/a$") s))
5830: 29 0a 09 09 09 09 20 23 66 0a 09 09 09 09 20 73 )..... #f..... s
5840: 29 29 29 29 20 3b 3b 20 69 66 20 73 70 65 63 69 )))) ;; if speci
5850: 66 69 65 64 20 6f 6e 20 74 68 65 20 69 6e 70 75 fied on the inpu
5860: 74 20 74 68 65 6e 20 75 73 65 2c 20 65 6c 73 65 t then use, else
5870: 20 63 61 6c 63 75 6c 61 74 65 0a 09 20 3b 3b 20 calculate.. ;;
5880: 6c 6f 6f 6b 20 75 70 20 65 78 70 65 63 74 65 64 look up expected
5890: 2c 74 6f 6c 2c 75 6e 69 74 73 20 66 72 6f 6d 20 ,tol,units from
58a0: 70 72 65 76 69 6f 75 73 20 62 65 73 74 20 66 69 previous best fi
58b0: 74 20 74 65 73 74 20 69 66 20 74 68 65 79 20 61 t test if they a
58c0: 72 65 20 61 6c 6c 20 65 69 74 68 65 72 20 23 66 re all either #f
58d0: 20 6f 72 20 27 27 0a 09 20 28 64 65 62 75 67 3a or ''.. (debug:
58e0: 70 72 69 6e 74 20 34 20 22 42 45 46 4f 52 45 3a print 4 "BEFORE:
58f0: 20 63 61 74 65 67 6f 72 79 3a 20 22 20 63 61 74 category: " cat
5900: 65 67 6f 72 79 20 22 20 76 61 72 69 61 62 6c 65 egory " variable
5910: 3a 20 22 20 76 61 72 69 61 62 6c 65 20 22 20 76 : " variable " v
5920: 61 6c 75 65 3a 20 22 20 76 61 6c 75 65 20 0a 09 alue: " value ..
5930: 09 20 20 20 20 20 20 22 2c 20 65 78 70 65 63 74 . ", expect
5940: 65 64 3a 20 22 20 65 78 70 65 63 74 65 64 20 22 ed: " expected "
5950: 20 74 6f 6c 3a 20 22 20 74 6f 6c 20 22 20 75 6e tol: " tol " un
5960: 69 74 73 3a 20 22 20 75 6e 69 74 73 20 22 20 73 its: " units " s
5970: 74 61 74 75 73 3a 20 22 20 73 74 61 74 75 73 20 tatus: " status
5980: 22 20 63 6f 6d 6d 65 6e 74 3a 20 22 20 63 6f 6d " comment: " com
5990: 6d 65 6e 74 29 0a 0a 09 20 28 69 66 20 28 61 6e ment)... (if (an
59a0: 64 20 28 6f 72 20 28 6e 6f 74 20 65 78 70 65 63 d (or (not expec
59b0: 74 65 64 29 28 65 71 75 61 6c 3f 20 65 78 70 65 ted)(equal? expe
59c0: 63 74 65 64 20 22 22 29 29 0a 09 09 20 20 28 6f cted ""))... (o
59d0: 72 20 28 6e 6f 74 20 74 6f 6c 29 20 20 20 20 20 r (not tol)
59e0: 28 65 71 75 61 6c 3f 20 65 78 70 65 63 74 65 64 (equal? expected
59f0: 20 22 22 29 29 0a 09 09 20 20 28 6f 72 20 28 6e ""))... (or (n
5a00: 6f 74 20 75 6e 69 74 73 29 20 20 20 28 65 71 75 ot units) (equ
5a10: 61 6c 3f 20 65 78 70 65 63 74 65 64 20 22 22 29 al? expected "")
5a20: 29 29 0a 09 20 20 20 20 20 28 6c 65 74 2d 76 61 )).. (let-va
5a30: 6c 75 65 73 20 28 28 28 6e 65 77 2d 65 78 70 65 lues (((new-expe
5a40: 63 74 65 64 20 6e 65 77 2d 74 6f 6c 20 6e 65 77 cted new-tol new
5a50: 2d 75 6e 69 74 73 29 28 64 62 3a 67 65 74 2d 70 -units)(db:get-p
5a60: 72 65 76 2d 74 6f 6c 2d 66 6f 72 2d 74 65 73 74 rev-tol-for-test
5a70: 20 64 62 20 74 65 73 74 2d 69 64 20 63 61 74 65 db test-id cate
5a80: 67 6f 72 79 20 76 61 72 69 61 62 6c 65 29 29 29 gory variable)))
5a90: 0a 09 20 20 20 20 20 20 20 28 73 65 74 21 20 65 .. (set! e
5aa0: 78 70 65 63 74 65 64 20 6e 65 77 2d 65 78 70 65 xpected new-expe
5ab0: 63 74 65 64 29 0a 09 20 20 20 20 20 20 20 28 73 cted).. (s
5ac0: 65 74 21 20 74 6f 6c 20 20 20 20 20 20 6e 65 77 et! tol new
5ad0: 2d 74 6f 6c 29 0a 09 20 20 20 20 20 20 20 28 73 -tol).. (s
5ae0: 65 74 21 20 75 6e 69 74 73 20 20 20 20 6e 65 77 et! units new
5af0: 2d 75 6e 69 74 73 29 29 29 0a 0a 09 20 28 64 65 -units)))... (de
5b00: 62 75 67 3a 70 72 69 6e 74 20 34 20 22 41 46 54 bug:print 4 "AFT
5b10: 45 52 3a 20 20 63 61 74 65 67 6f 72 79 3a 20 22 ER: category: "
5b20: 20 63 61 74 65 67 6f 72 79 20 22 20 76 61 72 69 category " vari
5b30: 61 62 6c 65 3a 20 22 20 76 61 72 69 61 62 6c 65 able: " variable
5b40: 20 22 20 76 61 6c 75 65 3a 20 22 20 76 61 6c 75 " value: " valu
5b50: 65 20 0a 09 09 20 20 20 20 20 20 22 2c 20 65 78 e ... ", ex
5b60: 70 65 63 74 65 64 3a 20 22 20 65 78 70 65 63 74 pected: " expect
5b70: 65 64 20 22 20 74 6f 6c 3a 20 22 20 74 6f 6c 20 ed " tol: " tol
5b80: 22 20 75 6e 69 74 73 3a 20 22 20 75 6e 69 74 73 " units: " units
5b90: 20 22 20 73 74 61 74 75 73 3a 20 22 20 73 74 61 " status: " sta
5ba0: 74 75 73 20 22 20 63 6f 6d 6d 65 6e 74 3a 20 22 tus " comment: "
5bb0: 20 63 6f 6d 6d 65 6e 74 29 0a 09 20 3b 3b 20 63 comment).. ;; c
5bc0: 61 6c 63 75 6c 61 74 65 20 73 74 61 74 75 73 20 alculate status
5bd0: 69 66 20 4e 4f 54 20 73 70 65 63 69 66 69 65 64 if NOT specified
5be0: 0a 09 20 28 69 66 20 28 61 6e 64 20 28 6e 6f 74 .. (if (and (not
5bf0: 20 73 74 61 74 75 73 29 28 6e 75 6d 62 65 72 3f status)(number?
5c00: 20 65 78 70 65 63 74 65 64 29 28 6e 75 6d 62 65 expected)(numbe
5c10: 72 3f 20 76 61 6c 75 65 29 29 20 3b 3b 20 6e 65 r? value)) ;; ne
5c20: 65 64 20 65 78 70 65 63 74 65 64 20 61 6e 64 20 ed expected and
5c30: 76 61 6c 75 65 20 74 6f 20 62 65 20 6e 75 6d 62 value to be numb
5c40: 65 72 73 0a 09 20 20 20 20 20 28 69 66 20 28 6e ers.. (if (n
5c50: 75 6d 62 65 72 3f 20 74 6f 6c 29 20 3b 3b 20 69 umber? tol) ;; i
5c60: 66 20 74 6f 6c 20 69 73 20 61 20 6e 75 6d 62 65 f tol is a numbe
5c70: 72 20 74 68 65 6e 20 77 65 20 64 6f 20 74 68 65 r then we do the
5c80: 20 73 74 61 6e 64 61 72 64 20 63 6f 6d 70 61 72 standard compar
5c90: 69 73 6f 6e 0a 09 09 20 28 6c 65 74 2a 20 28 28 ison... (let* ((
5ca0: 6d 61 78 2d 76 61 6c 20 28 2b 20 65 78 70 65 63 max-val (+ expec
5cb0: 74 65 64 20 74 6f 6c 29 29 0a 09 09 09 28 6d 69 ted tol))....(mi
5cc0: 6e 2d 76 61 6c 20 28 2d 20 65 78 70 65 63 74 65 n-val (- expecte
5cd0: 64 20 74 6f 6c 29 29 0a 09 09 09 28 72 65 73 75 d tol))....(resu
5ce0: 6c 74 20 20 28 61 6e 64 20 28 3e 3d 20 20 76 61 lt (and (>= va
5cf0: 6c 75 65 20 6d 69 6e 2d 76 61 6c 29 28 3c 3d 20 lue min-val)(<=
5d00: 76 61 6c 75 65 20 6d 61 78 2d 76 61 6c 29 29 29 value max-val)))
5d10: 29 0a 09 09 20 20 20 28 64 65 62 75 67 3a 70 72 )... (debug:pr
5d20: 69 6e 74 20 34 20 22 6d 61 78 2d 76 61 6c 3a 20 int 4 "max-val:
5d30: 22 20 6d 61 78 2d 76 61 6c 20 22 20 6d 69 6e 2d " max-val " min-
5d40: 76 61 6c 3a 20 22 20 6d 69 6e 2d 76 61 6c 20 22 val: " min-val "
5d50: 20 72 65 73 75 6c 74 3a 20 22 20 72 65 73 75 6c result: " resul
5d60: 74 29 0a 09 09 20 20 20 28 73 65 74 21 20 73 74 t)... (set! st
5d70: 61 74 75 73 20 28 69 66 20 72 65 73 75 6c 74 20 atus (if result
5d80: 22 70 61 73 73 22 20 22 66 61 69 6c 22 29 29 29 "pass" "fail")))
5d90: 0a 09 09 20 28 73 65 74 21 20 73 74 61 74 75 73 ... (set! status
5da0: 20 3b 3b 20 4e 42 2f 2f 20 6e 65 65 64 20 74 6f ;; NB// need to
5db0: 20 61 73 73 65 73 73 20 65 61 63 68 20 6f 6e 65 assess each one
5dc0: 20 28 69 2e 65 2e 20 6e 6f 74 20 72 65 74 75 72 (i.e. not retur
5dd0: 6e 20 6f 70 65 72 61 74 6f 72 20 73 69 6e 63 65 n operator since
5de0: 20 6e 65 65 64 20 74 6f 20 61 63 74 20 69 66 20 need to act if
5df0: 6e 6f 74 20 76 61 6c 69 64 20 6f 70 2e 0a 09 09 not valid op....
5e00: 20 20 20 20 20 20 20 28 63 61 73 65 20 28 73 74 (case (st
5e10: 72 69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 74 6f 6c ring->symbol tol
5e20: 29 20 3b 3b 20 74 6f 6c 20 73 68 6f 75 6c 64 20 ) ;; tol should
5e30: 62 65 20 3e 2c 20 3c 2c 20 3e 3d 2c 20 3c 3d 0a be >, <, >=, <=.
5e40: 09 09 09 20 28 28 3e 29 20 20 28 69 66 20 28 3e ... ((>) (if (>
5e50: 20 20 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 value expected
5e60: 29 20 22 70 61 73 73 22 20 22 66 61 69 6c 22 29 ) "pass" "fail")
5e70: 29 0a 09 09 09 20 28 28 3c 29 20 20 28 69 66 20 ).... ((<) (if
5e80: 28 3c 20 20 76 61 6c 75 65 20 65 78 70 65 63 74 (< value expect
5e90: 65 64 29 20 22 70 61 73 73 22 20 22 66 61 69 6c ed) "pass" "fail
5ea0: 22 29 29 0a 09 09 09 20 28 28 3e 3d 29 20 28 69 ")).... ((>=) (i
5eb0: 66 20 28 3e 3d 20 76 61 6c 75 65 20 65 78 70 65 f (>= value expe
5ec0: 63 74 65 64 29 20 22 70 61 73 73 22 20 22 66 61 cted) "pass" "fa
5ed0: 69 6c 22 29 29 0a 09 09 09 20 28 28 3c 3d 29 20 il")).... ((<=)
5ee0: 28 69 66 20 28 3c 3d 20 76 61 6c 75 65 20 65 78 (if (<= value ex
5ef0: 70 65 63 74 65 64 29 20 22 70 61 73 73 22 20 22 pected) "pass" "
5f00: 66 61 69 6c 22 29 29 0a 09 09 09 20 28 65 6c 73 fail")).... (els
5f10: 65 20 28 63 6f 6e 63 20 22 45 52 52 4f 52 3a 20 e (conc "ERROR:
5f20: 62 61 64 20 74 6f 6c 20 63 6f 6d 70 61 72 61 74 bad tol comparat
5f30: 6f 72 20 22 20 74 6f 6c 29 29 29 29 29 29 0a 09 or " tol))))))..
5f40: 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 34 20 (debug:print 4
5f50: 22 41 46 54 45 52 32 3a 20 63 61 74 65 67 6f 72 "AFTER2: categor
5f60: 79 3a 20 22 20 63 61 74 65 67 6f 72 79 20 22 20 y: " category "
5f70: 76 61 72 69 61 62 6c 65 3a 20 22 20 76 61 72 69 variable: " vari
5f80: 61 62 6c 65 20 22 20 76 61 6c 75 65 3a 20 22 20 able " value: "
5f90: 76 61 6c 75 65 20 0a 09 09 20 20 20 20 20 20 22 value ... "
5fa0: 2c 20 65 78 70 65 63 74 65 64 3a 20 22 20 65 78 , expected: " ex
5fb0: 70 65 63 74 65 64 20 22 20 74 6f 6c 3a 20 22 20 pected " tol: "
5fc0: 74 6f 6c 20 22 20 75 6e 69 74 73 3a 20 22 20 75 tol " units: " u
5fd0: 6e 69 74 73 20 22 20 73 74 61 74 75 73 3a 20 22 nits " status: "
5fe0: 20 73 74 61 74 75 73 20 22 20 63 6f 6d 6d 65 6e status " commen
5ff0: 74 3a 20 22 20 63 6f 6d 6d 65 6e 74 29 0a 09 20 t: " comment)..
6000: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
6010: 20 64 62 20 22 49 4e 53 45 52 54 20 4f 52 20 52 db "INSERT OR R
6020: 45 50 4c 41 43 45 20 49 4e 54 4f 20 74 65 73 74 EPLACE INTO test
6030: 5f 64 61 74 61 20 28 74 65 73 74 5f 69 64 2c 63 _data (test_id,c
6040: 61 74 65 67 6f 72 79 2c 76 61 72 69 61 62 6c 65 ategory,variable
6050: 2c 76 61 6c 75 65 2c 65 78 70 65 63 74 65 64 2c ,value,expected,
6060: 74 6f 6c 2c 75 6e 69 74 73 2c 63 6f 6d 6d 65 6e tol,units,commen
6070: 74 2c 73 74 61 74 75 73 29 20 56 41 4c 55 45 53 t,status) VALUES
6080: 20 28 3f 2c 3f 2c 3f 2c 3f 2c 3f 2c 3f 2c 3f 2c (?,?,?,?,?,?,?,
6090: 3f 2c 3f 29 3b 22 0a 09 20 20 20 20 20 20 74 65 ?,?);".. te
60a0: 73 74 2d 69 64 20 63 61 74 65 67 6f 72 79 20 76 st-id category v
60b0: 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 65 78 ariable value ex
60c0: 70 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 74 73 pected tol units
60d0: 20 28 69 66 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d (if comment com
60e0: 6d 65 6e 74 20 22 22 29 20 73 74 61 74 75 73 29 ment "") status)
60f0: 29 29 0a 20 20 20 20 20 63 73 76 6c 69 73 74 29 )). csvlist)
6100: 29 29 0a 0a 3b 3b 20 67 65 74 20 61 20 6c 69 73 ))..;; get a lis
6110: 74 20 6f 66 20 74 65 73 74 5f 64 61 74 61 20 72 t of test_data r
6120: 65 63 6f 72 64 73 20 6d 61 74 63 68 69 6e 67 20 ecords matching
6130: 63 61 74 65 67 6f 72 79 70 61 74 74 0a 28 64 65 categorypatt.(de
6140: 66 69 6e 65 20 28 64 62 3a 72 65 61 64 2d 74 65 fine (db:read-te
6150: 73 74 2d 64 61 74 61 20 64 62 20 74 65 73 74 2d st-data db test-
6160: 69 64 20 63 61 74 65 67 6f 72 79 70 61 74 74 29 id categorypatt)
6170: 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 27 28 . (let ((res '(
6180: 29 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 ))). (sqlite3
6190: 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 20 0a 20 :for-each-row .
61a0: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 69 64 20 (lambda (id
61b0: 74 65 73 74 5f 69 64 20 63 61 74 65 67 6f 72 79 test_id category
61c0: 20 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 variable value
61d0: 65 78 70 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 expected tol uni
61e0: 74 73 20 63 6f 6d 6d 65 6e 74 20 73 74 61 74 75 ts comment statu
61f0: 73 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 s). (set!
6200: 72 65 73 20 28 63 6f 6e 73 20 28 76 65 63 74 6f res (cons (vecto
6210: 72 20 69 64 20 74 65 73 74 5f 69 64 20 63 61 74 r id test_id cat
6220: 65 67 6f 72 79 20 76 61 72 69 61 62 6c 65 20 76 egory variable v
6230: 61 6c 75 65 20 65 78 70 65 63 74 65 64 20 74 6f alue expected to
6240: 6c 20 75 6e 69 74 73 20 63 6f 6d 6d 65 6e 74 20 l units comment
6250: 73 74 61 74 75 73 29 20 72 65 73 29 29 29 0a 20 status) res))).
6260: 20 20 20 20 64 62 0a 20 20 20 20 20 22 53 45 4c db. "SEL
6270: 45 43 54 20 69 64 2c 74 65 73 74 5f 69 64 2c 63 ECT id,test_id,c
6280: 61 74 65 67 6f 72 79 2c 76 61 72 69 61 62 6c 65 ategory,variable
6290: 2c 76 61 6c 75 65 2c 65 78 70 65 63 74 65 64 2c ,value,expected,
62a0: 74 6f 6c 2c 75 6e 69 74 73 2c 63 6f 6d 6d 65 6e tol,units,commen
62b0: 74 2c 73 74 61 74 75 73 20 46 52 4f 4d 20 74 65 t,status FROM te
62c0: 73 74 5f 64 61 74 61 20 57 48 45 52 45 20 74 65 st_data WHERE te
62d0: 73 74 5f 69 64 3d 3f 20 41 4e 44 20 63 61 74 65 st_id=? AND cate
62e0: 67 6f 72 79 20 4c 49 4b 45 20 3f 20 4f 52 44 45 gory LIKE ? ORDE
62f0: 52 20 42 59 20 63 61 74 65 67 6f 72 79 2c 76 61 R BY category,va
6300: 72 69 61 62 6c 65 3b 22 20 74 65 73 74 2d 69 64 riable;" test-id
6310: 20 63 61 74 65 67 6f 72 79 70 61 74 74 29 0a 20 categorypatt).
6320: 20 20 20 28 72 65 76 65 72 73 65 20 72 65 73 29 (reverse res)
6330: 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ))..(define (db:
6340: 6c 6f 61 64 2d 74 65 73 74 2d 64 61 74 61 20 64 load-test-data d
6350: 62 20 72 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 b run-id test-na
6360: 6d 65 20 69 74 65 6d 64 61 74 29 0a 20 20 28 6c me itemdat). (l
6370: 65 74 2a 20 28 28 69 74 65 6d 2d 70 61 74 68 20 et* ((item-path
6380: 28 69 74 65 6d 2d 6c 69 73 74 2d 3e 70 61 74 68 (item-list->path
6390: 20 69 74 65 6d 64 61 74 29 29 0a 09 20 28 74 65 itemdat)).. (te
63a0: 73 74 64 61 74 20 28 64 62 3a 67 65 74 2d 74 65 stdat (db:get-te
63b0: 73 74 2d 69 6e 66 6f 20 64 62 20 72 75 6e 2d 69 st-info db run-i
63c0: 64 20 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d d test-name item
63d0: 2d 70 61 74 68 29 29 0a 09 20 28 74 65 73 74 2d -path)).. (test-
63e0: 69 64 20 28 69 66 20 74 65 73 74 64 61 74 20 28 id (if testdat (
63f0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 69 64 20 74 db:test-get-id t
6400: 65 73 74 64 61 74 29 20 23 66 29 29 29 0a 20 20 estdat) #f))).
6410: 20 20 3b 3b 20 28 64 65 62 75 67 3a 70 72 69 6e ;; (debug:prin
6420: 74 20 31 20 22 45 6e 74 65 72 20 72 65 63 6f 72 t 1 "Enter recor
6430: 64 73 20 74 6f 20 69 6e 73 65 72 74 20 69 6e 20 ds to insert in
6440: 74 68 65 20 74 65 73 74 5f 64 61 74 61 20 74 61 the test_data ta
6450: 62 6c 65 2c 20 73 65 76 65 6e 20 66 69 65 6c 64 ble, seven field
6460: 73 2c 20 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 s, comma separat
6470: 65 64 20 70 65 72 20 6c 69 6e 65 22 29 0a 20 20 ed per line").
6480: 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 34 (debug:print 4
6490: 20 22 69 74 65 6d 64 61 74 3a 20 22 20 69 74 65 "itemdat: " ite
64a0: 6d 64 61 74 20 22 2c 20 74 65 73 74 2d 6e 61 6d mdat ", test-nam
64b0: 65 3a 20 22 20 74 65 73 74 2d 6e 61 6d 65 20 22 e: " test-name "
64c0: 2c 20 74 65 73 74 2d 69 64 3a 20 22 20 74 65 73 , test-id: " tes
64d0: 74 2d 69 64 29 0a 20 20 20 20 28 69 66 20 74 65 t-id). (if te
64e0: 73 74 2d 69 64 0a 09 28 6c 65 74 20 6c 6f 6f 70 st-id..(let loop
64f0: 20 28 28 6c 69 6e 20 28 72 65 61 64 2d 6c 69 6e ((lin (read-lin
6500: 65 29 29 29 0a 09 20 20 28 69 66 20 28 6e 6f 74 e))).. (if (not
6510: 20 28 65 6f 66 2d 6f 62 6a 65 63 74 3f 20 6c 69 (eof-object? li
6520: 6e 29 29 0a 09 20 20 20 20 20 20 28 62 65 67 69 n)).. (begi
6530: 6e 0a 09 09 28 64 65 62 75 67 3a 70 72 69 6e 74 n...(debug:print
6540: 20 34 20 6c 69 6e 29 0a 09 09 28 64 62 3a 63 73 4 lin)...(db:cs
6550: 76 2d 3e 74 65 73 74 2d 64 61 74 61 20 64 62 20 v->test-data db
6560: 74 65 73 74 2d 69 64 20 6c 69 6e 29 0a 09 09 28 test-id lin)...(
6570: 6c 6f 6f 70 20 28 72 65 61 64 2d 6c 69 6e 65 29 loop (read-line)
6580: 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 72 6f 6c ))))). ;; rol
6590: 6c 20 75 70 20 74 68 65 20 63 75 72 72 65 6e 74 l up the current
65a0: 20 72 65 73 75 6c 74 73 2e 0a 20 20 20 20 28 64 results.. (d
65b0: 62 3a 74 65 73 74 2d 64 61 74 61 2d 72 6f 6c 6c b:test-data-roll
65c0: 75 70 20 64 62 20 74 65 73 74 2d 69 64 29 29 29 up db test-id)))
65d0: 0a 20 20 0a 3b 3b 20 57 41 52 4e 49 4e 47 3a 20 . .;; WARNING:
65e0: 44 6f 20 4e 4f 54 20 63 61 6c 6c 20 74 68 69 73 Do NOT call this
65f0: 20 66 6f 72 20 74 68 65 20 70 61 72 65 6e 74 20 for the parent
6600: 74 65 73 74 20 6f 6e 20 61 6e 20 69 74 65 72 61 test on an itera
6610: 74 65 64 20 74 65 73 74 0a 3b 3b 20 52 6f 6c 6c ted test.;; Roll
6620: 20 75 70 20 74 65 73 74 5f 64 61 74 61 20 70 61 up test_data pa
6630: 73 73 2f 66 61 69 6c 20 72 65 73 75 6c 74 73 0a ss/fail results.
6640: 3b 3b 20 6c 6f 6f 6b 20 61 74 20 74 68 65 20 74 ;; look at the t
6650: 65 73 74 5f 64 61 74 61 20 73 74 61 74 75 73 20 est_data status
6660: 66 69 65 6c 64 2c 20 0a 3b 3b 20 20 20 20 69 66 field, .;; if
6670: 20 61 6c 6c 20 61 72 65 20 70 61 73 73 20 28 61 all are pass (a
6680: 6e 79 20 63 61 73 65 29 20 61 6e 64 20 74 68 65 ny case) and the
6690: 20 74 65 73 74 20 73 74 61 74 75 73 20 69 73 20 test status is
66a0: 50 41 53 53 20 6f 72 20 4e 55 4c 4c 20 6f 72 20 PASS or NULL or
66b0: 27 27 20 74 68 65 6e 20 73 65 74 20 74 65 73 74 '' then set test
66c0: 20 73 74 61 74 75 73 20 74 6f 20 50 41 53 53 2e status to PASS.
66d0: 0a 3b 3b 20 20 20 20 69 66 20 6f 6e 65 20 6f 72 .;; if one or
66e0: 20 6d 6f 72 65 20 61 72 65 20 66 61 69 6c 20 28 more are fail (
66f0: 61 6e 79 20 63 61 73 65 29 20 74 68 65 6e 20 73 any case) then s
6700: 65 74 20 74 65 73 74 20 73 74 61 74 75 73 20 74 et test status t
6710: 6f 20 50 41 53 53 2c 20 6e 6f 6e 20 22 70 61 73 o PASS, non "pas
6720: 73 22 20 6f 72 20 22 66 61 69 6c 22 20 61 72 65 s" or "fail" are
6730: 20 69 67 6e 6f 72 65 64 0a 28 64 65 66 69 6e 65 ignored.(define
6740: 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 2d 72 (db:test-data-r
6750: 6f 6c 6c 75 70 20 64 62 20 74 65 73 74 2d 69 64 ollup db test-id
6760: 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 ). (sqlite3:exe
6770: 63 75 74 65 20 0a 20 20 20 64 62 20 0a 20 20 20 cute . db .
6780: 22 55 50 44 41 54 45 20 74 65 73 74 73 20 0a 20 "UPDATE tests .
6790: 20 20 20 20 20 53 45 54 20 66 61 69 6c 5f 63 6f SET fail_co
67a0: 75 6e 74 3d 28 53 45 4c 45 43 54 20 63 6f 75 6e unt=(SELECT coun
67b0: 74 28 69 64 29 20 46 52 4f 4d 20 74 65 73 74 5f t(id) FROM test_
67c0: 64 61 74 61 20 57 48 45 52 45 20 74 65 73 74 5f data WHERE test_
67d0: 69 64 3d 3f 20 41 4e 44 20 73 74 61 74 75 73 20 id=? AND status
67e0: 6c 69 6b 65 20 27 66 61 69 6c 27 29 2c 0a 20 20 like 'fail'),.
67f0: 20 20 20 20 20 20 20 20 70 61 73 73 5f 63 6f 75 pass_cou
6800: 6e 74 3d 28 53 45 4c 45 43 54 20 63 6f 75 6e 74 nt=(SELECT count
6810: 28 69 64 29 20 46 52 4f 4d 20 74 65 73 74 5f 64 (id) FROM test_d
6820: 61 74 61 20 57 48 45 52 45 20 74 65 73 74 5f 69 ata WHERE test_i
6830: 64 3d 3f 20 41 4e 44 20 73 74 61 74 75 73 20 6c d=? AND status l
6840: 69 6b 65 20 27 70 61 73 73 27 29 0a 20 20 20 20 ike 'pass').
6850: 20 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 0a 20 WHERE id=?;".
6860: 20 20 74 65 73 74 2d 69 64 20 74 65 73 74 2d 69 test-id test-i
6870: 64 20 74 65 73 74 2d 69 64 29 0a 20 20 3b 3b 20 d test-id). ;;
6880: 69 66 20 74 68 65 20 74 65 73 74 20 69 73 20 6e if the test is n
6890: 6f 74 20 46 41 49 4c 20 74 68 65 6e 20 73 65 74 ot FAIL then set
68a0: 20 73 74 61 74 75 73 20 62 61 73 65 64 20 6f 6e status based on
68b0: 20 74 68 65 20 66 61 69 6c 20 61 6e 64 20 70 61 the fail and pa
68c0: 73 73 20 63 6f 75 6e 74 73 2e 0a 20 20 28 73 6c ss counts.. (sl
68d0: 65 65 70 20 31 29 0a 20 20 28 73 71 6c 69 74 65 eep 1). (sqlite
68e0: 33 3a 65 78 65 63 75 74 65 0a 20 20 20 64 62 0a 3:execute. db.
68f0: 20 20 20 22 55 50 44 41 54 45 20 74 65 73 74 73 "UPDATE tests
6900: 0a 20 20 20 20 20 20 53 45 54 20 73 74 61 74 75 . SET statu
6910: 73 3d 43 41 53 45 20 57 48 45 4e 20 28 53 45 4c s=CASE WHEN (SEL
6920: 45 43 54 20 66 61 69 6c 5f 63 6f 75 6e 74 20 46 ECT fail_count F
6930: 52 4f 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 ROM tests WHERE
6940: 69 64 3d 3f 29 20 3e 20 30 20 0a 20 20 20 20 20 id=?) > 0 .
6950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6960: 20 20 20 20 54 48 45 4e 20 27 46 41 49 4c 27 0a THEN 'FAIL'.
6970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6980: 20 20 20 20 20 20 57 48 45 4e 20 28 53 45 4c 45 WHEN (SELE
6990: 43 54 20 70 61 73 73 5f 63 6f 75 6e 74 20 46 52 CT pass_count FR
69a0: 4f 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 69 OM tests WHERE i
69b0: 64 3d 3f 29 20 3e 20 30 0a 20 20 20 20 20 20 20 d=?) > 0.
69c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
69d0: 20 20 54 48 45 4e 20 27 50 41 53 53 27 0a 20 20 THEN 'PASS'.
69e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
69f0: 20 20 20 20 45 4c 53 45 20 73 74 61 74 75 73 0a ELSE status.
6a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6a10: 20 20 45 4e 44 20 57 48 45 52 45 20 69 64 3d 3f END WHERE id=?
6a20: 3b 22 0a 20 20 20 74 65 73 74 2d 69 64 20 74 65 ;". test-id te
6a30: 73 74 2d 69 64 20 74 65 73 74 2d 69 64 29 29 0a st-id test-id)).
6a40: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 .(define (db:get
6a50: 2d 70 72 65 76 2d 74 6f 6c 2d 66 6f 72 2d 74 65 -prev-tol-for-te
6a60: 73 74 20 64 62 20 74 65 73 74 2d 69 64 20 63 61 st db test-id ca
6a70: 74 65 67 6f 72 79 20 76 61 72 69 61 62 6c 65 29 tegory variable)
6a80: 0a 20 20 3b 3b 20 46 69 6e 69 73 68 20 6d 65 3f . ;; Finish me?
6a90: 0a 20 20 28 76 61 6c 75 65 73 20 23 66 20 23 66 . (values #f #f
6aa0: 20 23 66 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d #f))..;;=======
6ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6ad0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6ae0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
6af0: 3b 3b 20 53 20 54 20 45 20 50 20 53 20 0a 3b 3b ;; S T E P S .;;
6b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b40: 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 20 ======..(define
6b50: 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 74 69 6d (db:step-get-tim
6b60: 65 2d 61 73 2d 73 74 72 69 6e 67 20 76 65 63 29 e-as-string vec)
6b70: 0a 20 20 20 20 28 73 65 63 6f 6e 64 73 2d 3e 74 . (seconds->t
6b80: 69 6d 65 2d 73 74 72 69 6e 67 20 28 64 62 3a 73 ime-string (db:s
6b90: 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 tep-get-event_ti
6ba0: 6d 65 20 76 65 63 29 29 29 0a 0a 3b 3b 20 64 62 me vec)))..;; db
6bb0: 2d 67 65 74 2d 74 65 73 74 2d 73 74 65 70 73 2d -get-test-steps-
6bc0: 66 6f 72 2d 72 75 6e 0a 28 64 65 66 69 6e 65 20 for-run.(define
6bd0: 28 64 62 3a 67 65 74 2d 73 74 65 70 73 2d 66 6f (db:get-steps-fo
6be0: 72 2d 74 65 73 74 20 64 62 20 74 65 73 74 2d 69 r-test db test-i
6bf0: 64 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 d). (let ((res
6c00: 27 28 29 29 29 0a 20 20 20 20 28 73 71 6c 69 74 '())). (sqlit
6c10: 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 20 e3:for-each-row
6c20: 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 69 . (lambda (i
6c30: 64 20 74 65 73 74 2d 69 64 20 73 74 65 70 6e 61 d test-id stepna
6c40: 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 73 20 me state status
6c50: 65 76 65 6e 74 2d 74 69 6d 65 29 0a 20 20 20 20 event-time).
6c60: 20 20 20 28 73 65 74 21 20 72 65 73 20 28 63 6f (set! res (co
6c70: 6e 73 20 28 76 65 63 74 6f 72 20 69 64 20 74 65 ns (vector id te
6c80: 73 74 2d 69 64 20 73 74 65 70 6e 61 6d 65 20 73 st-id stepname s
6c90: 74 61 74 65 20 73 74 61 74 75 73 20 65 76 65 6e tate status even
6ca0: 74 2d 74 69 6d 65 29 20 72 65 73 29 29 29 0a 20 t-time) res))).
6cb0: 20 20 20 20 64 62 0a 20 20 20 20 20 22 53 45 4c db. "SEL
6cc0: 45 43 54 20 69 64 2c 74 65 73 74 5f 69 64 2c 73 ECT id,test_id,s
6cd0: 74 65 70 6e 61 6d 65 2c 73 74 61 74 65 2c 73 74 tepname,state,st
6ce0: 61 74 75 73 2c 65 76 65 6e 74 5f 74 69 6d 65 20 atus,event_time
6cf0: 46 52 4f 4d 20 74 65 73 74 5f 73 74 65 70 73 20 FROM test_steps
6d00: 57 48 45 52 45 20 74 65 73 74 5f 69 64 3d 3f 20 WHERE test_id=?
6d10: 4f 52 44 45 52 20 42 59 20 69 64 20 41 53 43 3b ORDER BY id ASC;
6d20: 22 20 3b 3b 20 65 76 65 6e 74 5f 74 69 6d 65 20 " ;; event_time
6d30: 44 45 53 43 2c 69 64 20 41 53 43 3b 0a 20 20 20 DESC,id ASC;.
6d40: 20 20 74 65 73 74 2d 69 64 29 0a 20 20 20 20 28 test-id). (
6d50: 72 65 76 65 72 73 65 20 72 65 73 29 29 29 0a 0a reverse res)))..
6d60: 3b 3b 20 67 65 74 20 61 20 70 72 65 74 74 79 20 ;; get a pretty
6d70: 74 61 62 6c 65 20 74 6f 20 73 75 6d 6d 61 72 69 table to summari
6d80: 7a 65 20 73 74 65 70 73 0a 3b 3b 0a 28 64 65 66 ze steps.;;.(def
6d90: 69 6e 65 20 28 64 62 3a 67 65 74 2d 73 74 65 70 ine (db:get-step
6da0: 73 2d 74 61 62 6c 65 20 64 62 20 74 65 73 74 2d s-table db test-
6db0: 69 64 29 0a 20 20 28 6c 65 74 20 28 28 73 74 65 id). (let ((ste
6dc0: 70 73 20 20 20 28 64 62 3a 67 65 74 2d 73 74 65 ps (db:get-ste
6dd0: 70 73 2d 66 6f 72 2d 74 65 73 74 20 64 62 20 74 ps-for-test db t
6de0: 65 73 74 2d 69 64 29 29 29 0a 20 20 20 20 3b 3b est-id))). ;;
6df0: 20 6f 72 67 61 6e 69 73 65 20 74 68 65 20 73 74 organise the st
6e00: 65 70 73 20 66 6f 72 20 62 65 74 74 65 72 20 72 eps for better r
6e10: 65 61 64 61 62 69 6c 69 74 79 0a 20 20 20 20 28 eadability. (
6e20: 6c 65 74 20 28 28 72 65 73 20 28 6d 61 6b 65 2d let ((res (make-
6e30: 68 61 73 68 2d 74 61 62 6c 65 29 29 29 0a 20 20 hash-table))).
6e40: 20 20 20 20 28 66 6f 72 2d 65 61 63 68 20 0a 20 (for-each .
6e50: 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 (lambda (s
6e60: 74 65 70 29 0a 09 20 28 64 65 62 75 67 3a 70 72 tep).. (debug:pr
6e70: 69 6e 74 20 36 20 22 73 74 65 70 3d 22 20 73 74 int 6 "step=" st
6e80: 65 70 29 0a 09 20 28 6c 65 74 20 28 28 72 65 63 ep).. (let ((rec
6e90: 6f 72 64 20 28 68 61 73 68 2d 74 61 62 6c 65 2d ord (hash-table-
6ea0: 72 65 66 2f 64 65 66 61 75 6c 74 20 0a 09 09 09 ref/default ....
6eb0: 72 65 73 20 0a 09 09 09 28 64 62 3a 73 74 65 70 res ....(db:step
6ec0: 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 20 73 74 -get-stepname st
6ed0: 65 70 29 20 0a 09 09 09 3b 3b 20 20 20 20 20 20 ep) ....;;
6ee0: 20 20 73 74 65 70 6e 61 6d 65 20 20 20 20 20 20 stepname
6ef0: 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 start
6f00: 65 6e 64 20 73 74 61 74 75 73 20 20 20 20 0a 09 end status ..
6f10: 09 09 28 76 65 63 74 6f 72 20 28 64 62 3a 73 74 ..(vector (db:st
6f20: 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 20 ep-get-stepname
6f30: 73 74 65 70 29 20 22 22 20 20 20 22 22 20 22 22 step) "" "" ""
6f40: 20 20 20 20 20 22 22 29 29 29 29 0a 09 20 20 20 ""))))..
6f50: 28 64 65 62 75 67 3a 70 72 69 6e 74 20 36 20 22 (debug:print 6 "
6f60: 72 65 63 6f 72 64 28 62 65 66 6f 72 65 29 20 3d record(before) =
6f70: 20 22 20 72 65 63 6f 72 64 20 0a 09 09 09 22 5c " record ...."\
6f80: 6e 69 64 3a 20 20 20 20 20 20 20 22 20 28 64 62 nid: " (db
6f90: 3a 73 74 65 70 2d 67 65 74 2d 69 64 20 73 74 65 :step-get-id ste
6fa0: 70 29 0a 09 09 09 22 5c 6e 73 74 65 70 6e 61 6d p)...."\nstepnam
6fb0: 65 3a 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 e: " (db:step-ge
6fc0: 74 2d 73 74 65 70 6e 61 6d 65 20 73 74 65 70 29 t-stepname step)
6fd0: 0a 09 09 09 22 5c 6e 73 74 61 74 65 3a 20 20 20 ...."\nstate:
6fe0: 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d " (db:step-get-
6ff0: 73 74 61 74 65 20 73 74 65 70 29 0a 09 09 09 22 state step)...."
7000: 5c 6e 73 74 61 74 75 73 3a 20 20 20 22 20 28 64 \nstatus: " (d
7010: 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 b:step-get-statu
7020: 73 20 73 74 65 70 29 0a 09 09 09 22 5c 6e 74 69 s step)...."\nti
7030: 6d 65 3a 20 20 20 20 20 22 20 28 64 62 3a 73 74 me: " (db:st
7040: 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d ep-get-event_tim
7050: 65 20 73 74 65 70 29 29 0a 09 20 20 20 28 63 61 e step)).. (ca
7060: 73 65 20 28 73 74 72 69 6e 67 2d 3e 73 79 6d 62 se (string->symb
7070: 6f 6c 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d ol (db:step-get-
7080: 73 74 61 74 65 20 73 74 65 70 29 29 0a 09 20 20 state step))..
7090: 20 20 20 28 28 73 74 61 72 74 29 28 76 65 63 74 ((start)(vect
70a0: 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 64 20 31 or-set! record 1
70b0: 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 (db:step-get-ev
70c0: 65 6e 74 5f 74 69 6d 65 20 73 74 65 70 29 29 0a ent_time step)).
70d0: 09 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 . (vector-s
70e0: 65 74 21 20 72 65 63 6f 72 64 20 33 20 28 69 66 et! record 3 (if
70f0: 20 28 65 71 75 61 6c 3f 20 28 76 65 63 74 6f 72 (equal? (vector
7100: 2d 72 65 66 20 72 65 63 6f 72 64 20 33 29 20 22 -ref record 3) "
7110: 22 29 0a 09 09 09 09 09 28 64 62 3a 73 74 65 70 ")......(db:step
7120: 2d 67 65 74 2d 73 74 61 74 75 73 20 73 74 65 70 -get-status step
7130: 29 29 29 29 0a 09 20 20 20 20 20 28 28 65 6e 64 )))).. ((end
7140: 29 20 20 0a 09 20 20 20 20 20 20 28 76 65 63 74 ) .. (vect
7150: 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 64 20 32 or-set! record 2
7160: 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 20 28 64 (any->number (d
7170: 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 b:step-get-event
7180: 5f 74 69 6d 65 20 73 74 65 70 29 29 29 0a 09 20 _time step)))..
7190: 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 65 74 (vector-set
71a0: 21 20 72 65 63 6f 72 64 20 33 20 28 64 62 3a 73 ! record 3 (db:s
71b0: 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 20 73 tep-get-status s
71c0: 74 65 70 29 29 0a 09 20 20 20 20 20 20 28 76 65 tep)).. (ve
71d0: 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 64 ctor-set! record
71e0: 20 34 20 28 6c 65 74 20 28 28 73 74 61 72 74 74 4 (let ((startt
71f0: 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 20 28 76 (any->number (v
7200: 65 63 74 6f 72 2d 72 65 66 20 72 65 63 6f 72 64 ector-ref record
7210: 20 31 29 29 29 0a 09 09 09 09 09 20 20 28 65 6e 1)))...... (en
7220: 64 74 20 20 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 dt (any->numbe
7230: 72 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 65 r (vector-ref re
7240: 63 6f 72 64 20 32 29 29 29 29 0a 09 09 09 09 20 cord 2)))).....
7250: 20 20 20 20 20 28 64 65 62 75 67 3a 70 72 69 6e (debug:prin
7260: 74 20 34 20 22 72 65 63 6f 72 64 5b 31 5d 3d 22 t 4 "record[1]="
7270: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 65 63 (vector-ref rec
7280: 6f 72 64 20 31 29 20 0a 09 09 09 09 09 09 20 20 ord 1) .......
7290: 20 22 2c 20 73 74 61 72 74 74 3d 22 20 73 74 61 ", startt=" sta
72a0: 72 74 74 20 22 2c 20 65 6e 64 74 3d 22 20 65 6e rtt ", endt=" en
72b0: 64 74 0a 09 09 09 09 09 09 20 20 20 22 2c 20 67 dt....... ", g
72c0: 65 74 2d 73 74 61 74 75 73 3a 20 22 20 28 64 62 et-status: " (db
72d0: 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 :step-get-status
72e0: 20 73 74 65 70 29 29 0a 09 09 09 09 20 20 20 20 step)).....
72f0: 20 20 28 69 66 20 28 61 6e 64 20 28 6e 75 6d 62 (if (and (numb
7300: 65 72 3f 20 73 74 61 72 74 74 29 28 6e 75 6d 62 er? startt)(numb
7310: 65 72 3f 20 65 6e 64 74 29 29 0a 09 09 09 09 09 er? endt))......
7320: 20 20 28 73 65 63 6f 6e 64 73 2d 3e 68 72 2d 6d (seconds->hr-m
7330: 69 6e 2d 73 65 63 20 28 2d 20 65 6e 64 74 20 73 in-sec (- endt s
7340: 74 61 72 74 74 29 29 20 22 2d 31 22 29 29 29 29 tartt)) "-1"))))
7350: 0a 09 20 20 20 20 20 28 65 6c 73 65 0a 09 20 20 .. (else..
7360: 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 65 (vector-se
7370: 74 21 20 72 65 63 6f 72 64 20 32 20 28 64 62 3a t! record 2 (db:
7380: 73 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 step-get-state s
7390: 74 65 70 29 29 0a 09 20 20 20 20 20 20 20 20 28 tep)).. (
73a0: 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f vector-set! reco
73b0: 72 64 20 33 20 28 64 62 3a 73 74 65 70 2d 67 65 rd 3 (db:step-ge
73c0: 74 2d 73 74 61 74 75 73 20 73 74 65 70 29 29 0a t-status step)).
73d0: 09 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 . (vector
73e0: 2d 73 65 74 21 20 72 65 63 6f 72 64 20 34 20 28 -set! record 4 (
73f0: 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 6e db:step-get-even
7400: 74 5f 74 69 6d 65 20 73 74 65 70 29 29 29 29 0a t_time step)))).
7410: 09 20 20 20 28 68 61 73 68 2d 74 61 62 6c 65 2d . (hash-table-
7420: 73 65 74 21 20 72 65 73 20 28 64 62 3a 73 74 65 set! res (db:ste
7430: 70 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 20 73 p-get-stepname s
7440: 74 65 70 29 20 72 65 63 6f 72 64 29 0a 09 20 20 tep) record)..
7450: 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 36 20 (debug:print 6
7460: 22 72 65 63 6f 72 64 28 61 66 74 65 72 29 20 20 "record(after)
7470: 3d 20 22 20 72 65 63 6f 72 64 20 0a 09 09 09 22 = " record ...."
7480: 5c 6e 69 64 3a 20 20 20 20 20 20 20 22 20 28 64 \nid: " (d
7490: 62 3a 73 74 65 70 2d 67 65 74 2d 69 64 20 73 74 b:step-get-id st
74a0: 65 70 29 0a 09 09 09 22 5c 6e 73 74 65 70 6e 61 ep)...."\nstepna
74b0: 6d 65 3a 20 22 20 28 64 62 3a 73 74 65 70 2d 67 me: " (db:step-g
74c0: 65 74 2d 73 74 65 70 6e 61 6d 65 20 73 74 65 70 et-stepname step
74d0: 29 0a 09 09 09 22 5c 6e 73 74 61 74 65 3a 20 20 )...."\nstate:
74e0: 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 74 " (db:step-get
74f0: 2d 73 74 61 74 65 20 73 74 65 70 29 0a 09 09 09 -state step)....
7500: 22 5c 6e 73 74 61 74 75 73 3a 20 20 20 22 20 28 "\nstatus: " (
7510: 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 db:step-get-stat
7520: 75 73 20 73 74 65 70 29 0a 09 09 09 22 5c 6e 74 us step)...."\nt
7530: 69 6d 65 3a 20 20 20 20 20 22 20 28 64 62 3a 73 ime: " (db:s
7540: 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 tep-get-event_ti
7550: 6d 65 20 73 74 65 70 29 29 29 29 0a 20 20 20 20 me step)))).
7560: 20 20 20 3b 3b 20 28 65 6c 73 65 20 20 20 28 76 ;; (else (v
7570: 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 ector-set! recor
7580: 64 20 31 20 28 64 62 3a 73 74 65 70 2d 67 65 74 d 1 (db:step-get
7590: 2d 65 76 65 6e 74 5f 74 69 6d 65 20 73 74 65 70 -event_time step
75a0: 29 29 29 0a 20 20 20 20 20 20 20 28 73 6f 72 74 ))). (sort
75b0: 20 73 74 65 70 73 20 28 6c 61 6d 62 64 61 20 28 steps (lambda (
75c0: 61 20 62 29 28 3c 20 28 64 62 3a 73 74 65 70 2d a b)(< (db:step-
75d0: 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 61 get-event_time a
75e0: 29 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 )(db:step-get-ev
75f0: 65 6e 74 5f 74 69 6d 65 20 62 29 29 29 29 29 0a ent_time b))))).
7600: 20 20 20 20 20 20 72 65 73 29 29 29 0a 0a 3b 3b res)))..;;
7610: 20 55 53 45 3a 20 28 6c 73 65 74 2d 64 69 66 66 USE: (lset-diff
7620: 65 72 65 6e 63 65 20 73 74 72 69 6e 67 3d 3f 20 erence string=?
7630: 27 28 22 61 22 20 22 62 22 20 22 63 22 29 20 27 '("a" "b" "c") '
7640: 28 22 64 22 20 22 63 22 20 22 65 22 20 22 61 22 ("d" "c" "e" "a"
7650: 29 29 0a 3b 3b 0a 3b 3b 20 52 65 74 75 72 6e 20 )).;;.;; Return
7660: 61 20 6c 69 73 74 20 6f 66 20 70 72 65 72 65 71 a list of prereq
7670: 73 20 74 68 61 74 20 77 65 72 65 20 4e 4f 54 20 s that were NOT
7680: 6d 65 74 0a 3b 3b 20 20 54 65 73 74 73 20 28 61 met.;; Tests (a
7690: 6e 64 20 61 6c 6c 20 69 74 65 6d 73 29 20 69 6e nd all items) in
76a0: 20 77 61 69 74 6f 6e 20 6c 69 73 74 20 6d 75 73 waiton list mus
76b0: 74 20 62 65 20 22 43 4f 4d 50 4c 45 54 45 44 22 t be "COMPLETED"
76c0: 20 61 6e 64 20 22 50 41 53 53 22 0a 28 64 65 66 and "PASS".(def
76d0: 69 6e 65 20 28 64 62 2d 67 65 74 2d 70 72 65 72 ine (db-get-prer
76e0: 65 71 73 2d 6e 6f 74 2d 6d 65 74 20 64 62 20 72 eqs-not-met db r
76f0: 75 6e 2d 69 64 20 77 61 69 74 6f 6e 29 0a 20 20 un-id waiton).
7700: 28 69 66 20 28 6e 75 6c 6c 3f 20 77 61 69 74 6f (if (null? waito
7710: 6e 29 0a 20 20 20 20 20 20 27 28 29 0a 20 20 20 n). '().
7720: 20 20 20 28 6c 65 74 2a 20 28 28 75 6e 6d 65 74 (let* ((unmet
7730: 2d 70 72 65 2d 72 65 71 73 20 27 28 29 29 0a 09 -pre-reqs '())..
7740: 20 20 20 20 20 28 74 65 73 74 73 20 20 20 20 20 (tests
7750: 20 20 20 20 20 20 28 64 62 2d 67 65 74 2d 74 65 (db-get-te
7760: 73 74 73 2d 66 6f 72 2d 72 75 6e 20 64 62 20 72 sts-for-run db r
7770: 75 6e 2d 69 64 20 23 66 20 23 66 29 29 0a 09 20 un-id #f #f))..
7780: 20 20 20 20 28 72 65 73 75 6c 74 20 20 20 20 20 (result
7790: 20 20 20 20 27 28 29 29 29 0a 09 28 66 6f 72 2d '()))..(for-
77a0: 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 77 61 each (lambda (wa
77b0: 69 74 6f 6e 74 65 73 74 2d 6e 61 6d 65 29 0a 09 itontest-name)..
77c0: 09 20 20 20 20 28 6c 65 74 20 28 28 65 76 65 72 . (let ((ever
77d0: 2d 73 65 65 6e 20 23 66 29 29 0a 09 09 20 20 20 -seen #f))...
77e0: 20 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 (for-each (la
77f0: 6d 62 64 61 20 28 74 65 73 74 29 0a 09 09 09 09 mbda (test).....
7800: 20 20 28 69 66 20 28 65 71 75 61 6c 3f 20 77 61 (if (equal? wa
7810: 69 74 6f 6e 74 65 73 74 2d 6e 61 6d 65 20 28 64 itontest-name (d
7820: 62 3a 74 65 73 74 2d 67 65 74 2d 74 65 73 74 6e b:test-get-testn
7830: 61 6d 65 20 74 65 73 74 29 29 0a 09 09 09 09 20 ame test)).....
7840: 20 20 20 20 20 28 62 65 67 69 6e 0a 09 09 09 09 (begin.....
7850: 09 28 73 65 74 21 20 65 76 65 72 2d 73 65 65 6e .(set! ever-seen
7860: 20 23 74 29 0a 09 09 09 09 09 28 69 66 20 28 6e #t)......(if (n
7870: 6f 74 20 28 61 6e 64 20 28 65 71 75 61 6c 3f 20 ot (and (equal?
7880: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 61 (db:test-get-sta
7890: 74 65 20 74 65 73 74 29 20 22 43 4f 4d 50 4c 45 te test) "COMPLE
78a0: 54 45 44 22 29 0a 09 09 09 09 09 09 20 20 20 20 TED").......
78b0: 20 20 28 6d 65 6d 62 65 72 20 28 64 62 3a 74 65 (member (db:te
78c0: 73 74 2d 67 65 74 2d 73 74 61 74 75 73 20 74 65 st-get-status te
78d0: 73 74 29 20 27 28 22 50 41 53 53 22 20 22 57 41 st) '("PASS" "WA
78e0: 52 4e 22 20 22 43 48 45 43 4b 22 29 29 29 29 0a RN" "CHECK")))).
78f0: 09 09 09 09 09 20 20 20 20 28 73 65 74 21 20 72 ..... (set! r
7900: 65 73 75 6c 74 20 28 63 6f 6e 73 20 77 61 69 74 esult (cons wait
7910: 6f 6e 74 65 73 74 2d 6e 61 6d 65 20 72 65 73 75 ontest-name resu
7920: 6c 74 29 29 29 29 29 29 0a 09 09 09 09 74 65 73 lt)))))).....tes
7930: 74 73 29 0a 09 09 20 20 20 20 20 20 28 69 66 20 ts)... (if
7940: 28 6e 6f 74 20 65 76 65 72 2d 73 65 65 6e 29 28 (not ever-seen)(
7950: 73 65 74 21 20 72 65 73 75 6c 74 20 28 63 6f 6e set! result (con
7960: 73 20 77 61 69 74 6f 6e 74 65 73 74 2d 6e 61 6d s waitontest-nam
7970: 65 20 72 65 73 75 6c 74 29 29 29 29 29 0a 09 09 e result)))))...
7980: 20 20 77 61 69 74 6f 6e 29 0a 09 28 64 65 6c 65 waiton)..(dele
7990: 74 65 2d 64 75 70 6c 69 63 61 74 65 73 20 72 65 te-duplicates re
79a0: 73 75 6c 74 29 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d sult))))..;;====
79b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79f0: 3d 3d 0a 3b 3b 20 45 78 74 72 61 63 74 20 6f 64 ==.;; Extract od
7a00: 73 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 s file from the
7a10: 64 62 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d db.;;===========
7a20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 ===========..;;
7a60: 72 75 6e 73 70 61 74 74 20 69 73 20 61 20 63 6f runspatt is a co
7a70: 6d 6d 61 20 64 65 6c 69 6d 69 74 65 64 20 6c 69 mma delimited li
7a80: 73 74 20 6f 66 20 72 75 6e 20 70 61 74 74 65 72 st of run patter
7a90: 6e 73 0a 3b 3b 20 6b 65 79 70 61 74 74 2d 61 6c ns.;; keypatt-al
7aa0: 69 73 74 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e ist must contain
7ab0: 20 2a 61 6c 6c 2a 20 6b 65 79 73 20 77 69 74 68 *all* keys with
7ac0: 20 61 6e 20 61 73 73 6f 63 69 61 74 65 64 20 70 an associated p
7ad0: 61 74 74 65 72 6e 3a 20 27 28 20 28 22 4b 45 59 attern: '( ("KEY
7ae0: 31 22 20 22 25 22 29 20 2e 2e 20 29 0a 28 64 65 1" "%") .. ).(de
7af0: 66 69 6e 65 20 28 64 62 3a 65 78 74 72 61 63 74 fine (db:extract
7b00: 2d 6f 64 73 2d 66 69 6c 65 20 64 62 20 6f 75 74 -ods-file db out
7b10: 70 75 74 66 69 6c 65 20 6b 65 79 70 61 74 74 2d putfile keypatt-
7b20: 61 6c 69 73 74 20 72 75 6e 73 70 61 74 74 29 0a alist runspatt).
7b30: 20 20 28 6c 65 74 2a 20 28 28 6b 65 79 73 73 74 (let* ((keysst
7b40: 72 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 r (string-inter
7b50: 73 70 65 72 73 65 20 28 6d 61 70 20 63 61 72 20 sperse (map car
7b60: 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 29 20 22 keypatt-alist) "
7b70: 2c 22 29 29 0a 09 20 28 6b 65 79 71 72 79 20 20 ,")).. (keyqry
7b80: 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 (string-intersp
7b90: 65 72 73 65 20 28 6d 61 70 20 28 6c 61 6d 62 64 erse (map (lambd
7ba0: 61 20 28 70 29 28 63 6f 6e 63 20 28 63 61 72 20 a (p)(conc (car
7bb0: 70 29 20 22 20 6c 69 6b 65 20 3f 20 22 29 29 20 p) " like ? "))
7bc0: 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 29 20 22 keypatt-alist) "
7bd0: 20 41 4e 44 20 22 29 29 0a 09 20 28 74 65 73 74 AND ")).. (test
7be0: 2d 69 64 73 20 27 28 29 29 0a 09 20 28 74 65 6d -ids '()).. (tem
7bf0: 70 64 69 72 20 20 28 63 6f 6e 63 20 22 2f 74 6d pdir (conc "/tm
7c00: 70 2f 22 20 28 63 75 72 72 65 6e 74 2d 75 73 65 p/" (current-use
7c10: 72 2d 6e 61 6d 65 29 20 22 2f 22 20 72 75 6e 73 r-name) "/" runs
7c20: 70 61 74 74 20 22 5f 22 20 28 72 61 6e 64 6f 6d patt "_" (random
7c30: 20 31 30 30 30 30 29 20 22 5f 22 20 28 63 75 72 10000) "_" (cur
7c40: 72 65 6e 74 2d 70 72 6f 63 65 73 73 2d 69 64 29 rent-process-id)
7c50: 29 29 0a 09 20 28 72 75 6e 73 68 65 61 64 65 72 )).. (runsheader
7c60: 20 28 61 70 70 65 6e 64 20 28 6c 69 73 74 20 22 (append (list "
7c70: 52 75 6e 20 49 64 22 20 22 52 75 6e 6e 61 6d 65 Run Id" "Runname
7c80: 22 29 0a 09 09 09 20 20 20 20 20 28 6d 61 70 20 ").... (map
7c90: 63 61 72 20 6b 65 79 70 61 74 74 2d 61 6c 69 73 car keypatt-alis
7ca0: 74 29 0a 09 09 09 20 20 20 20 20 28 6c 69 73 74 t).... (list
7cb0: 20 22 54 65 73 74 6e 61 6d 65 22 20 0a 09 09 09 "Testname" ....
7cc0: 09 20 20 20 22 49 74 65 6d 20 50 61 74 68 22 0a . "Item Path".
7cd0: 09 09 09 09 20 20 20 22 44 65 73 63 72 69 70 74 .... "Descript
7ce0: 69 6f 6e 22 0a 09 09 09 09 20 20 20 22 53 74 61 ion"..... "Sta
7cf0: 74 65 22 0a 09 09 09 09 20 20 20 22 53 74 61 74 te"..... "Stat
7d00: 75 73 22 0a 09 09 09 09 20 20 20 22 46 69 6e 61 us"..... "Fina
7d10: 6c 20 4c 6f 67 22 0a 09 09 09 09 20 20 20 22 52 l Log"..... "R
7d20: 75 6e 20 44 75 72 61 74 69 6f 6e 22 0a 09 09 09 un Duration"....
7d30: 09 20 20 20 22 57 68 65 6e 20 52 75 6e 22 0a 09 . "When Run"..
7d40: 09 09 09 20 20 20 22 54 61 67 73 22 0a 09 09 09 ... "Tags"....
7d50: 09 20 20 20 22 52 75 6e 20 4f 77 6e 65 72 22 0a . "Run Owner".
7d60: 09 09 09 09 20 20 20 22 43 6f 6d 6d 65 6e 74 22 .... "Comment"
7d70: 0a 09 09 09 09 20 20 20 22 41 75 74 68 6f 72 22 ..... "Author"
7d80: 0a 09 09 09 09 20 20 20 22 54 65 73 74 20 4f 77 ..... "Test Ow
7d90: 6e 65 72 22 0a 09 09 09 09 20 20 20 22 52 65 76 ner"..... "Rev
7da0: 69 65 77 65 64 22 0a 09 09 09 09 20 20 20 22 44 iewed"..... "D
7db0: 69 73 6b 66 72 65 65 22 0a 09 09 09 09 20 20 20 iskfree".....
7dc0: 22 55 6e 61 6d 65 22 0a 09 09 09 09 20 20 20 22 "Uname"..... "
7dd0: 52 75 6e 64 69 72 22 0a 09 09 09 09 20 20 20 22 Rundir"..... "
7de0: 48 6f 73 74 22 0a 09 09 09 09 20 20 20 22 43 70 Host"..... "Cp
7df0: 75 20 4c 6f 61 64 22 0a 20 20 20 20 20 20 20 20 u Load".
7e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e10: 20 20 20 20 20 20 20 20 20 20 20 22 57 61 72 6e "Warn
7e20: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ".
7e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e40: 20 20 20 20 20 22 45 72 72 6f 72 22 29 29 29 0a "Error"))).
7e50: 09 20 28 72 65 73 75 6c 74 73 20 28 6c 69 73 74 . (results (list
7e60: 20 72 75 6e 73 68 65 61 64 65 72 29 29 0a 09 20 runsheader))..
7e70: 28 74 65 73 74 64 61 74 61 2d 68 65 61 64 65 72 (testdata-header
7e80: 20 28 6c 69 73 74 20 22 52 75 6e 20 49 64 22 20 (list "Run Id"
7e90: 22 54 65 73 74 6e 61 6d 65 22 20 22 49 74 65 6d "Testname" "Item
7ea0: 20 50 61 74 68 22 20 22 43 61 74 65 67 6f 72 79 Path" "Category
7eb0: 22 20 22 56 61 72 69 61 62 6c 65 22 20 22 56 61 " "Variable" "Va
7ec0: 6c 75 65 22 20 22 45 78 70 65 63 74 65 64 22 20 lue" "Expected"
7ed0: 22 54 6f 6c 22 20 22 55 6e 69 74 73 22 20 22 53 "Tol" "Units" "S
7ee0: 74 61 74 75 73 22 20 22 43 6f 6d 6d 65 6e 74 22 tatus" "Comment"
7ef0: 29 29 29 0a 20 20 20 20 28 64 65 62 75 67 3a 70 ))). (debug:p
7f00: 72 69 6e 74 20 32 20 22 55 73 69 6e 67 20 22 20 rint 2 "Using "
7f10: 74 65 6d 70 64 69 72 20 22 20 66 6f 72 20 63 6f tempdir " for co
7f20: 6e 73 74 72 75 63 74 69 6e 67 20 74 68 65 20 6f nstructing the o
7f30: 64 73 20 66 69 6c 65 22 29 0a 20 20 20 20 3b 3b ds file"). ;;
7f40: 20 22 45 78 70 65 63 74 65 64 20 56 61 6c 75 65 "Expected Value
7f50: 22 0a 20 20 20 20 3b 3b 20 22 56 61 6c 75 65 20 ". ;; "Value
7f60: 46 6f 75 6e 64 22 0a 20 20 20 20 3b 3b 20 22 54 Found". ;; "T
7f70: 6f 6c 65 72 61 6e 63 65 22 0a 20 20 20 20 28 61 olerance". (a
7f80: 70 70 6c 79 20 73 71 6c 69 74 65 33 3a 66 6f 72 pply sqlite3:for
7f90: 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 -each-row. (
7fa0: 6c 61 6d 62 64 61 20 28 74 65 73 74 2d 69 64 20 lambda (test-id
7fb0: 2e 20 62 29 0a 20 20 20 20 20 20 20 28 73 65 74 . b). (set
7fc0: 21 20 74 65 73 74 2d 69 64 73 20 28 63 6f 6e 73 ! test-ids (cons
7fd0: 20 74 65 73 74 2d 69 64 20 74 65 73 74 2d 69 64 test-id test-id
7fe0: 73 29 29 20 20 20 3b 3b 20 74 65 73 74 2d 69 64 s)) ;; test-id
7ff0: 20 69 73 20 6e 6f 77 20 74 65 73 74 6e 61 6d 65 is now testname
8000: 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 . (set! re
8010: 73 75 6c 74 73 20 28 61 70 70 65 6e 64 20 72 65 sults (append re
8020: 73 75 6c 74 73 20 28 6c 69 73 74 20 62 29 29 29 sults (list b)))
8030: 29 20 3b 3b 20 6e 6f 74 65 2c 20 64 72 6f 70 20 ) ;; note, drop
8040: 74 68 65 20 74 65 73 74 2d 69 64 0a 20 20 20 20 the test-id.
8050: 20 64 62 0a 20 20 20 20 20 28 63 6f 6e 63 20 22 db. (conc "
8060: 53 45 4c 45 43 54 0a 20 20 20 20 20 20 20 20 20 SELECT.
8070: 20 20 20 20 20 74 2e 74 65 73 74 6e 61 6d 65 2c t.testname,
8080: 72 2e 69 64 2c 72 75 6e 6e 61 6d 65 2c 22 20 6b r.id,runname," k
8090: 65 79 73 73 74 72 20 22 2c 74 2e 74 65 73 74 6e eysstr ",t.testn
80a0: 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ame,.
80b0: 20 20 20 74 2e 69 74 65 6d 5f 70 61 74 68 2c 74 t.item_path,t
80c0: 6d 2e 64 65 73 63 72 69 70 74 69 6f 6e 2c 74 2e m.description,t.
80d0: 73 74 61 74 65 2c 74 2e 73 74 61 74 75 73 2c 0a state,t.status,.
80e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 fi
80f0: 6e 61 6c 5f 6c 6f 67 66 2c 72 75 6e 5f 64 75 72 nal_logf,run_dur
8100: 61 74 69 6f 6e 2c 20 0a 20 20 20 20 20 20 20 20 ation, .
8110: 20 20 20 20 20 20 73 74 72 66 74 69 6d 65 28 27 strftime('
8120: 25 6d 2f 25 64 2f 25 59 20 25 48 3a 25 4d 3a 25 %m/%d/%Y %H:%M:%
8130: 53 27 2c 64 61 74 65 74 69 6d 65 28 74 2e 65 76 S',datetime(t.ev
8140: 65 6e 74 5f 74 69 6d 65 2c 27 75 6e 69 78 65 70 ent_time,'unixep
8150: 6f 63 68 27 29 2c 27 6c 6f 63 61 6c 74 69 6d 65 och'),'localtime
8160: 27 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 '),.
8170: 20 20 74 6d 2e 74 61 67 73 2c 72 2e 6f 77 6e 65 tm.tags,r.owne
8180: 72 2c 74 2e 63 6f 6d 6d 65 6e 74 2c 0a 20 20 20 r,t.comment,.
8190: 20 20 20 20 20 20 20 20 20 20 20 61 75 74 68 6f autho
81a0: 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 r,.
81b0: 20 74 6d 2e 6f 77 6e 65 72 2c 72 65 76 69 65 77 tm.owner,review
81c0: 65 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ed,.
81d0: 20 20 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d 65 diskfree,uname
81e0: 2c 72 75 6e 64 69 72 2c 0a 20 20 20 20 20 20 20 ,rundir,.
81f0: 20 20 20 20 20 20 20 68 6f 73 74 2c 63 70 75 6c host,cpul
8200: 6f 61 64 2c 66 69 72 73 74 5f 65 72 72 2c 66 69 oad,first_err,fi
8210: 72 73 74 5f 77 61 72 6e 0a 20 20 20 20 20 20 20 rst_warn.
8220: 20 20 20 20 20 46 52 4f 4d 20 74 65 73 74 73 20 FROM tests
8230: 41 53 20 74 20 49 4e 4e 45 52 20 4a 4f 49 4e 20 AS t INNER JOIN
8240: 72 75 6e 73 20 41 53 20 72 20 4f 4e 20 74 2e 72 runs AS r ON t.r
8250: 75 6e 5f 69 64 3d 72 2e 69 64 20 49 4e 4e 45 52 un_id=r.id INNER
8260: 20 4a 4f 49 4e 20 74 65 73 74 5f 6d 65 74 61 20 JOIN test_meta
8270: 41 53 20 74 6d 20 4f 4e 20 74 6d 2e 74 65 73 74 AS tm ON tm.test
8280: 6e 61 6d 65 3d 74 2e 74 65 73 74 6e 61 6d 65 0a name=t.testname.
8290: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 45 52 WHER
82a0: 45 20 72 75 6e 6e 61 6d 65 20 4c 49 4b 45 20 3f E runname LIKE ?
82b0: 20 41 4e 44 20 22 20 6b 65 79 71 72 79 20 22 3b AND " keyqry ";
82c0: 22 29 0a 20 20 20 20 20 72 75 6e 73 70 61 74 74 "). runspatt
82d0: 20 28 6d 61 70 20 63 61 64 72 20 6b 65 79 70 61 (map cadr keypa
82e0: 74 74 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 28 tt-alist)). (
82f0: 73 65 74 21 20 72 65 73 75 6c 74 73 20 28 6c 69 set! results (li
8300: 73 74 20 28 63 6f 6e 73 20 22 52 75 6e 73 22 20 st (cons "Runs"
8310: 72 65 73 75 6c 74 73 29 29 29 0a 20 20 20 20 3b results))). ;
8320: 3b 20 6e 6f 77 2c 20 66 6f 72 20 65 61 63 68 20 ; now, for each
8330: 74 65 73 74 2c 20 63 6f 6c 6c 65 63 74 20 74 68 test, collect th
8340: 65 20 74 65 73 74 5f 64 61 74 61 20 69 6e 66 6f e test_data info
8350: 20 61 6e 64 20 61 64 64 20 61 20 6e 65 77 20 73 and add a new s
8360: 68 65 65 74 0a 20 20 20 20 28 66 6f 72 2d 65 61 heet. (for-ea
8370: 63 68 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 ch. (lambda
8380: 28 74 65 73 74 2d 69 64 29 0a 20 20 20 20 20 20 (test-id).
8390: 20 28 6c 65 74 20 28 28 74 65 73 74 2d 64 61 74 (let ((test-dat
83a0: 61 20 28 6c 69 73 74 20 74 65 73 74 64 61 74 61 a (list testdata
83b0: 2d 68 65 61 64 65 72 29 29 0a 09 20 20 20 20 20 -header))..
83c0: 28 63 75 72 72 2d 74 65 73 74 2d 6e 61 6d 65 20 (curr-test-name
83d0: 23 66 29 29 0a 09 20 28 73 71 6c 69 74 65 33 3a #f)).. (sqlite3:
83e0: 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 09 20 20 for-each-row..
83f0: 28 6c 61 6d 62 64 61 20 28 72 75 6e 2d 69 64 20 (lambda (run-id
8400: 74 65 73 74 6e 61 6d 65 20 69 74 65 6d 2d 70 61 testname item-pa
8410: 74 68 20 63 61 74 65 67 6f 72 79 20 76 61 72 69 th category vari
8420: 61 62 6c 65 20 76 61 6c 75 65 20 65 78 70 65 63 able value expec
8430: 74 65 64 20 74 6f 6c 20 75 6e 69 74 73 20 73 74 ted tol units st
8440: 61 74 75 73 20 63 6f 6d 6d 65 6e 74 29 0a 09 20 atus comment)..
8450: 20 20 20 28 73 65 74 21 20 63 75 72 72 2d 74 65 (set! curr-te
8460: 73 74 2d 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 st-name testname
8470: 29 0a 09 20 20 20 20 28 73 65 74 21 20 74 65 73 ).. (set! tes
8480: 74 2d 64 61 74 61 20 28 61 70 70 65 6e 64 20 74 t-data (append t
8490: 65 73 74 2d 64 61 74 61 20 28 6c 69 73 74 20 28 est-data (list (
84a0: 6c 69 73 74 20 72 75 6e 2d 69 64 20 74 65 73 74 list run-id test
84b0: 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 63 name item-path c
84c0: 61 74 65 67 6f 72 79 20 76 61 72 69 61 62 6c 65 ategory variable
84d0: 20 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 20 value expected
84e0: 74 6f 6c 20 75 6e 69 74 73 20 73 74 61 74 75 73 tol units status
84f0: 20 63 6f 6d 6d 65 6e 74 29 29 29 29 29 0a 09 20 comment)))))..
8500: 20 64 62 20 0a 09 20 20 3b 3b 20 22 53 45 4c 45 db .. ;; "SELE
8510: 43 54 20 72 75 6e 5f 69 64 2c 74 65 73 74 6e 61 CT run_id,testna
8520: 6d 65 2c 69 74 65 6d 5f 70 61 74 68 2c 63 61 74 me,item_path,cat
8530: 65 67 6f 72 79 2c 76 61 72 69 61 62 6c 65 2c 74 egory,variable,t
8540: 64 2e 76 61 6c 75 65 20 41 53 20 76 61 6c 75 65 d.value AS value
8550: 2c 65 78 70 65 63 74 65 64 2c 74 6f 6c 2c 75 6e ,expected,tol,un
8560: 69 74 73 2c 74 64 2e 73 74 61 74 75 73 20 41 53 its,td.status AS
8570: 20 73 74 61 74 75 73 2c 74 64 2e 63 6f 6d 6d 65 status,td.comme
8580: 6e 74 20 41 53 20 63 6f 6d 6d 65 6e 74 20 46 52 nt AS comment FR
8590: 4f 4d 20 74 65 73 74 5f 64 61 74 61 20 41 53 20 OM test_data AS
85a0: 74 64 20 49 4e 4e 45 52 20 4a 4f 49 4e 20 74 65 td INNER JOIN te
85b0: 73 74 73 20 4f 4e 20 74 65 73 74 73 2e 69 64 3d sts ON tests.id=
85c0: 74 64 2e 74 65 73 74 5f 69 64 20 57 48 45 52 45 td.test_id WHERE
85d0: 20 74 65 73 74 5f 69 64 3d 3f 3b 22 0a 09 20 20 test_id=?;"..
85e0: 22 53 45 4c 45 43 54 20 72 75 6e 5f 69 64 2c 74 "SELECT run_id,t
85f0: 65 73 74 6e 61 6d 65 2c 69 74 65 6d 5f 70 61 74 estname,item_pat
8600: 68 2c 63 61 74 65 67 6f 72 79 2c 76 61 72 69 61 h,category,varia
8610: 62 6c 65 2c 74 64 2e 76 61 6c 75 65 20 41 53 20 ble,td.value AS
8620: 76 61 6c 75 65 2c 74 64 2e 65 78 70 65 63 74 65 value,td.expecte
8630: 64 2c 74 64 2e 74 6f 6c 2c 74 64 2e 75 6e 69 74 d,td.tol,td.unit
8640: 73 2c 74 64 2e 73 74 61 74 75 73 20 41 53 20 73 s,td.status AS s
8650: 74 61 74 75 73 2c 74 64 2e 63 6f 6d 6d 65 6e 74 tatus,td.comment
8660: 20 41 53 20 63 6f 6d 6d 65 6e 74 20 46 52 4f 4d AS comment FROM
8670: 20 74 65 73 74 5f 64 61 74 61 20 41 53 20 74 64 test_data AS td
8680: 20 49 4e 4e 45 52 20 4a 4f 49 4e 20 74 65 73 74 INNER JOIN test
8690: 73 20 4f 4e 20 74 65 73 74 73 2e 69 64 3d 74 64 s ON tests.id=td
86a0: 2e 74 65 73 74 5f 69 64 20 57 48 45 52 45 20 74 .test_id WHERE t
86b0: 65 73 74 6e 61 6d 65 3d 3f 3b 22 0a 09 20 20 74 estname=?;".. t
86c0: 65 73 74 2d 69 64 29 0a 09 20 28 69 66 20 63 75 est-id).. (if cu
86d0: 72 72 2d 74 65 73 74 2d 6e 61 6d 65 0a 09 20 20 rr-test-name..
86e0: 20 20 20 28 73 65 74 21 20 72 65 73 75 6c 74 73 (set! results
86f0: 20 28 61 70 70 65 6e 64 20 72 65 73 75 6c 74 73 (append results
8700: 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 63 75 72 (list (cons cur
8710: 72 2d 74 65 73 74 2d 6e 61 6d 65 20 74 65 73 74 r-test-name test
8720: 2d 64 61 74 61 29 29 29 29 29 0a 09 20 29 29 0a -data))))).. )).
8730: 20 20 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 (delete-dup
8740: 6c 69 63 61 74 65 73 20 74 65 73 74 2d 69 64 73 licates test-ids
8750: 29 29 0a 20 20 20 20 28 73 79 73 74 65 6d 20 28 )). (system (
8760: 63 6f 6e 63 20 22 6d 6b 64 69 72 20 2d 70 20 22 conc "mkdir -p "
8770: 20 74 65 6d 70 64 69 72 29 29 0a 20 20 20 20 3b tempdir)). ;
8780: 3b 20 28 70 70 20 72 65 73 75 6c 74 73 29 0a 20 ; (pp results).
8790: 20 20 20 28 6f 64 73 3a 6c 69 73 74 2d 3e 6f 64 (ods:list->od
87a0: 73 20 0a 20 20 20 20 20 74 65 6d 70 64 69 72 0a s . tempdir.
87b0: 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 (if (string
87c0: 2d 6d 61 74 63 68 20 28 72 65 67 65 78 70 20 22 -match (regexp "
87d0: 5e 5b 2f 7e 5d 2b 2e 2a 22 29 20 6f 75 74 70 75 ^[/~]+.*") outpu
87e0: 74 66 69 6c 65 29 20 3b 3b 20 66 75 6c 6c 20 70 tfile) ;; full p
87f0: 61 74 68 3f 0a 09 20 6f 75 74 70 75 74 66 69 6c ath?.. outputfil
8800: 65 0a 09 20 28 62 65 67 69 6e 0a 09 20 20 20 28 e.. (begin.. (
8810: 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 22 57 debug:print 0 "W
8820: 41 52 4e 49 4e 47 3a 20 70 61 74 68 20 67 69 76 ARNING: path giv
8830: 65 6e 2c 20 22 20 6f 75 74 70 75 74 66 69 6c 65 en, " outputfile
8840: 20 22 20 69 73 20 72 65 6c 61 74 69 76 65 2c 20 " is relative,
8850: 70 72 65 66 69 78 69 6e 67 20 77 69 74 68 20 63 prefixing with c
8860: 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 urrent directory
8870: 22 29 0a 09 20 20 20 28 63 6f 6e 63 20 28 63 75 ").. (conc (cu
8880: 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 rrent-directory)
8890: 20 22 2f 22 20 6f 75 74 70 75 74 66 69 6c 65 29 "/" outputfile)
88a0: 29 29 0a 20 20 20 20 20 72 65 73 75 6c 74 73 29 )). results)
88b0: 29 29 0a 0a 3b 3b 20 28 64 62 3a 65 78 74 72 61 ))..;; (db:extra
88c0: 63 74 2d 6f 64 73 2d 66 69 6c 65 20 64 62 20 22 ct-ods-file db "
88d0: 6f 75 74 70 75 74 66 69 6c 65 2e 6f 64 73 22 20 outputfile.ods"
88e0: 27 28 28 22 73 79 73 6e 61 6d 65 22 20 22 25 22 '(("sysname" "%"
88f0: 29 28 22 66 73 6e 61 6d 65 22 20 22 25 22 29 28 )("fsname" "%")(
8900: 22 64 61 74 61 70 61 74 68 22 20 22 25 22 29 29 "datapath" "%"))
8910: 20 22 25 22 29 0a "%").