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 20 63 73 76 2d 78 6d 6c 29 0a 28 69 i-69 csv-xml).(i
02c0: 6d 70 6f 72 74 20 28 70 72 65 66 69 78 20 73 71 mport (prefix sq
02d0: 6c 69 74 65 33 20 73 71 6c 69 74 65 33 3a 29 29 lite3 sqlite3:))
02e0: 0a 0a 28 64 65 63 6c 61 72 65 20 28 75 6e 69 74 ..(declare (unit
02f0: 20 64 62 29 29 0a 28 64 65 63 6c 61 72 65 20 28 db)).(declare (
0300: 75 73 65 73 20 63 6f 6d 6d 6f 6e 29 29 0a 28 64 uses common)).(d
0310: 65 63 6c 61 72 65 20 28 75 73 65 73 20 6b 65 79 eclare (uses key
0320: 73 29 29 0a 28 64 65 63 6c 61 72 65 20 28 75 73 s)).(declare (us
0330: 65 73 20 6f 64 73 29 29 0a 0a 28 69 6e 63 6c 75 es ods))..(inclu
0340: 64 65 20 22 63 6f 6d 6d 6f 6e 5f 72 65 63 6f 72 de "common_recor
0350: 64 73 2e 73 63 6d 22 29 0a 28 69 6e 63 6c 75 64 ds.scm").(includ
0360: 65 20 22 64 62 5f 72 65 63 6f 72 64 73 2e 73 63 e "db_records.sc
0370: 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 6b 65 m").(include "ke
0380: 79 5f 72 65 63 6f 72 64 73 2e 73 63 6d 22 29 0a y_records.scm").
0390: 0a 28 64 65 66 69 6e 65 20 28 6f 70 65 6e 2d 64 .(define (open-d
03a0: 62 29 20 3b 3b 20 20 28 63 6f 6e 63 20 2a 74 6f b) ;; (conc *to
03b0: 70 70 61 74 68 2a 20 22 2f 6d 65 67 61 74 65 73 ppath* "/megates
03c0: 74 2e 64 62 22 29 20 28 63 61 72 20 2a 63 6f 6e t.db") (car *con
03d0: 66 69 67 69 6e 66 6f 2a 29 29 29 0a 20 20 28 6c figinfo*))). (l
03e0: 65 74 2a 20 28 28 64 62 70 61 74 68 20 20 20 20 et* ((dbpath
03f0: 28 63 6f 6e 63 20 2a 74 6f 70 70 61 74 68 2a 20 (conc *toppath*
0400: 22 2f 6d 65 67 61 74 65 73 74 2e 64 62 22 29 29 "/megatest.db"))
0410: 20 3b 3b 20 66 6e 61 6d 65 29 0a 09 20 28 63 6f ;; fname).. (co
0420: 6e 66 69 67 64 61 74 20 28 63 61 72 20 2a 63 6f nfigdat (car *co
0430: 6e 66 69 67 69 6e 66 6f 2a 29 29 0a 09 20 28 64 nfiginfo*)).. (d
0440: 62 65 78 69 73 74 73 20 20 28 66 69 6c 65 2d 65 bexists (file-e
0450: 78 69 73 74 73 3f 20 64 62 70 61 74 68 29 29 0a xists? dbpath)).
0460: 09 20 28 64 62 20 20 20 20 20 20 20 20 28 73 71 . (db (sq
0470: 6c 69 74 65 33 3a 6f 70 65 6e 2d 64 61 74 61 62 lite3:open-datab
0480: 61 73 65 20 64 62 70 61 74 68 29 29 20 3b 3b 20 ase dbpath)) ;;
0490: 28 6e 65 76 65 72 2d 67 69 76 65 2d 75 70 2d 6f (never-give-up-o
04a0: 70 65 6e 2d 64 62 20 64 62 70 61 74 68 29 29 0a pen-db dbpath)).
04b0: 09 20 28 68 61 6e 64 6c 65 72 20 20 20 28 6d 61 . (handler (ma
04c0: 6b 65 2d 62 75 73 79 2d 74 69 6d 65 6f 75 74 20 ke-busy-timeout
04d0: 33 36 30 30 30 29 29 29 0a 20 20 20 20 28 73 71 36000))). (sq
04e0: 6c 69 74 65 33 3a 73 65 74 2d 62 75 73 79 2d 68 lite3:set-busy-h
04f0: 61 6e 64 6c 65 72 21 20 64 62 20 68 61 6e 64 6c andler! db handl
0500: 65 72 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 er). (if (not
0510: 20 64 62 65 78 69 73 74 73 29 0a 09 28 6c 65 74 dbexists)..(let
0520: 2a 20 28 28 6b 65 79 73 20 20 20 20 20 28 63 6f * ((keys (co
0530: 6e 66 69 67 2d 67 65 74 2d 66 69 65 6c 64 73 20 nfig-get-fields
0540: 63 6f 6e 66 69 67 64 61 74 29 29 0a 09 20 20 20 configdat))..
0550: 20 20 20 20 28 68 61 76 65 6b 65 79 73 20 28 3e (havekeys (>
0560: 20 28 6c 65 6e 67 74 68 20 6b 65 79 73 29 20 30 (length keys) 0
0570: 29 29 0a 09 20 20 20 20 20 20 20 28 6b 65 79 73 )).. (keys
0580: 74 72 20 20 20 28 6b 65 79 73 2d 3e 6b 65 79 73 tr (keys->keys
0590: 74 72 20 6b 65 79 73 29 29 0a 09 20 20 20 20 20 tr keys))..
05a0: 20 20 28 66 69 65 6c 64 73 74 72 20 28 6b 65 79 (fieldstr (key
05b0: 73 2d 3e 6b 65 79 2f 66 69 65 6c 64 20 6b 65 79 s->key/field key
05c0: 73 29 29 29 0a 09 20 20 28 66 6f 72 2d 65 61 63 s))).. (for-eac
05d0: 68 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 29 0a h (lambda (key).
05e0: 09 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 6b .. (let ((k
05f0: 65 79 6e 20 28 76 65 63 74 6f 72 2d 72 65 66 20 eyn (vector-ref
0600: 6b 65 79 20 30 29 29 29 0a 09 09 09 28 69 66 20 key 0)))....(if
0610: 28 6d 65 6d 62 65 72 20 28 73 74 72 69 6e 67 2d (member (string-
0620: 64 6f 77 6e 63 61 73 65 20 6b 65 79 6e 29 0a 09 downcase keyn)..
0630: 09 09 09 20 20 20 20 28 6c 69 73 74 20 22 72 75 ... (list "ru
0640: 6e 6e 61 6d 65 22 20 22 73 74 61 74 65 22 20 22 nname" "state" "
0650: 73 74 61 74 75 73 22 20 22 6f 77 6e 65 72 22 20 status" "owner"
0660: 22 65 76 65 6e 74 5f 74 69 6d 65 22 20 22 63 6f "event_time" "co
0670: 6d 6d 65 6e 74 22 20 22 66 61 69 6c 5f 63 6f 75 mment" "fail_cou
0680: 6e 74 22 0a 09 09 09 09 09 20 20 22 70 61 73 73 nt"...... "pass
0690: 5f 63 6f 75 6e 74 22 29 29 0a 09 09 09 20 20 20 _count"))....
06a0: 20 28 62 65 67 69 6e 0a 09 09 09 20 20 20 20 20 (begin....
06b0: 20 28 70 72 69 6e 74 20 22 45 52 52 4f 52 3a 20 (print "ERROR:
06c0: 79 6f 75 72 20 6b 65 79 20 63 61 6e 6e 6f 74 20 your key cannot
06d0: 62 65 20 6e 61 6d 65 64 20 22 20 6b 65 79 6e 20 be named " keyn
06e0: 22 20 61 73 20 74 68 69 73 20 63 6f 6e 66 6c 69 " as this confli
06f0: 63 74 73 20 77 69 74 68 20 74 68 65 20 73 61 6d cts with the sam
0700: 65 20 6e 61 6d 65 64 20 66 69 65 6c 64 20 69 6e e named field in
0710: 20 74 68 65 20 72 75 6e 73 20 74 61 62 6c 65 22 the runs table"
0720: 29 0a 09 09 09 20 20 20 20 20 20 28 73 79 73 74 ).... (syst
0730: 65 6d 20 28 63 6f 6e 63 20 22 72 6d 20 2d 66 20 em (conc "rm -f
0740: 22 20 64 62 70 61 74 68 29 29 0a 09 09 09 20 20 " dbpath))....
0750: 20 20 20 20 28 65 78 69 74 20 31 29 29 29 29 29 (exit 1)))))
0760: 0a 09 09 20 20 20 20 6b 65 79 73 29 0a 09 20 20 ... keys)..
0770: 3b 3b 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 ;; (sqlite3:exec
0780: 75 74 65 20 64 62 20 22 50 52 41 47 4d 41 20 73 ute db "PRAGMA s
0790: 79 6e 63 68 72 6f 6e 6f 75 73 20 3d 20 4f 46 46 ynchronous = OFF
07a0: 3b 22 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a ;").. (sqlite3:
07b0: 65 78 65 63 75 74 65 20 64 62 20 22 43 52 45 41 execute db "CREA
07c0: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 TE TABLE IF NOT
07d0: 45 58 49 53 54 53 20 6b 65 79 73 20 28 69 64 20 EXISTS keys (id
07e0: 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 INTEGER PRIMARY
07f0: 4b 45 59 2c 20 66 69 65 6c 64 6e 61 6d 65 20 54 KEY, fieldname T
0800: 45 58 54 2c 20 66 69 65 6c 64 74 79 70 65 20 54 EXT, fieldtype T
0810: 45 58 54 2c 20 43 4f 4e 53 54 52 41 49 4e 54 20 EXT, CONSTRAINT
0820: 6b 65 79 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e keyconstraint UN
0830: 49 51 55 45 20 28 66 69 65 6c 64 6e 61 6d 65 29 IQUE (fieldname)
0840: 29 3b 22 29 0a 09 20 20 28 66 6f 72 2d 65 61 63 );").. (for-eac
0850: 68 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 29 0a h (lambda (key).
0860: 09 09 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 .. (sqlite3
0870: 3a 65 78 65 63 75 74 65 20 64 62 20 22 49 4e 53 :execute db "INS
0880: 45 52 54 20 49 4e 54 4f 20 6b 65 79 73 20 28 66 ERT INTO keys (f
0890: 69 65 6c 64 6e 61 6d 65 2c 66 69 65 6c 64 74 79 ieldname,fieldty
08a0: 70 65 29 20 56 41 4c 55 45 53 20 28 3f 2c 3f 29 pe) VALUES (?,?)
08b0: 3b 22 20 28 6b 65 79 3a 67 65 74 2d 66 69 65 6c ;" (key:get-fiel
08c0: 64 6e 61 6d 65 20 6b 65 79 29 28 6b 65 79 3a 67 dname key)(key:g
08d0: 65 74 2d 66 69 65 6c 64 74 79 70 65 20 6b 65 79 et-fieldtype key
08e0: 29 29 29 0a 09 09 20 20 20 20 6b 65 79 73 29 0a )))... keys).
08f0: 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
0900: 75 74 65 20 64 62 20 28 63 6f 6e 63 20 0a 09 09 ute db (conc ...
0910: 09 20 20 20 20 20 20 20 22 43 52 45 41 54 45 20 . "CREATE
0920: 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 TABLE IF NOT EXI
0930: 53 54 53 20 72 75 6e 73 20 28 69 64 20 49 4e 54 STS runs (id INT
0940: 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 EGER PRIMARY KEY
0950: 2c 20 22 20 0a 09 09 09 20 20 20 20 20 20 20 66 , " .... f
0960: 69 65 6c 64 73 74 72 20 28 69 66 20 68 61 76 65 ieldstr (if have
0970: 6b 65 79 73 20 22 2c 22 20 22 22 29 0a 09 09 09 keys "," "")....
0980: 20 20 20 20 20 20 20 22 72 75 6e 6e 61 6d 65 20 "runname
0990: 54 45 58 54 2c 22 0a 09 09 09 20 20 20 20 20 20 TEXT,"....
09a0: 20 22 73 74 61 74 65 20 54 45 58 54 20 44 45 46 "state TEXT DEF
09b0: 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 20 20 AULT '',"....
09c0: 20 20 20 20 22 73 74 61 74 75 73 20 54 45 58 54 "status TEXT
09d0: 20 44 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 DEFAULT '',"...
09e0: 09 20 20 20 20 20 20 20 22 6f 77 6e 65 72 20 54 . "owner T
09f0: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 22 EXT DEFAULT '',"
0a00: 0a 09 09 09 20 20 20 20 20 20 20 22 65 76 65 6e .... "even
0a10: 74 5f 74 69 6d 65 20 54 49 4d 45 53 54 41 4d 50 t_time TIMESTAMP
0a20: 2c 22 0a 09 09 09 20 20 20 20 20 20 20 22 63 6f ,".... "co
0a30: 6d 6d 65 6e 74 20 54 45 58 54 20 44 45 46 41 55 mment TEXT DEFAU
0a40: 4c 54 20 27 27 2c 22 0a 09 09 09 20 20 20 20 20 LT '',"....
0a50: 20 20 22 66 61 69 6c 5f 63 6f 75 6e 74 20 49 4e "fail_count IN
0a60: 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 2c TEGER DEFAULT 0,
0a70: 22 0a 09 09 09 20 20 20 20 20 20 20 22 70 61 73 ".... "pas
0a80: 73 5f 63 6f 75 6e 74 20 49 4e 54 45 47 45 52 20 s_count INTEGER
0a90: 44 45 46 41 55 4c 54 20 30 2c 22 0a 09 09 09 20 DEFAULT 0,"....
0aa0: 20 20 20 20 20 20 22 43 4f 4e 53 54 52 41 49 4e "CONSTRAIN
0ab0: 54 20 72 75 6e 73 63 6f 6e 73 74 72 61 69 6e 74 T runsconstraint
0ac0: 20 55 4e 49 51 55 45 20 28 72 75 6e 6e 61 6d 65 UNIQUE (runname
0ad0: 22 20 28 69 66 20 68 61 76 65 6b 65 79 73 20 22 " (if havekeys "
0ae0: 2c 22 20 22 22 29 20 6b 65 79 73 74 72 20 22 29 ," "") keystr ")
0af0: 29 3b 22 29 29 0a 09 20 20 28 73 71 6c 69 74 65 );")).. (sqlite
0b00: 33 3a 65 78 65 63 75 74 65 20 64 62 20 28 63 6f 3:execute db (co
0b10: 6e 63 20 22 43 52 45 41 54 45 20 49 4e 44 45 58 nc "CREATE INDEX
0b20: 20 72 75 6e 73 5f 69 6e 64 65 78 20 4f 4e 20 72 runs_index ON r
0b30: 75 6e 73 20 28 72 75 6e 6e 61 6d 65 22 20 28 69 uns (runname" (i
0b40: 66 20 68 61 76 65 6b 65 79 73 20 22 2c 22 20 22 f havekeys "," "
0b50: 22 29 20 6b 65 79 73 74 72 20 22 29 3b 22 29 29 ") keystr ");"))
0b60: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
0b70: 63 75 74 65 20 64 62 20 0a 09 09 09 20 20 20 22 cute db .... "
0b80: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 CREATE TABLE IF
0b90: 4e 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 73 NOT EXISTS tests
0ba0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0bb0: 20 20 20 20 20 20 28 69 64 20 49 4e 54 45 47 45 (id INTEGE
0bc0: 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 R PRIMARY KEY,.
0bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0be0: 20 20 20 20 72 75 6e 5f 69 64 20 20 20 20 20 49 run_id I
0bf0: 4e 54 45 47 45 52 2c 0a 20 20 20 20 20 20 20 20 NTEGER,.
0c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
0c10: 74 6e 61 6d 65 20 20 20 54 45 58 54 2c 0a 20 20 tname TEXT,.
0c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0c30: 20 20 20 68 6f 73 74 20 20 20 20 20 20 20 54 45 host TE
0c40: 58 54 20 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 XT DEFAULT 'n/a'
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 63 70 75 6c 6f 61 64 20 20 cpuload
0c70: 20 20 52 45 41 4c 20 44 45 46 41 55 4c 54 20 2d REAL DEFAULT -
0c80: 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 1,.
0c90: 20 20 20 20 20 20 20 20 64 69 73 6b 66 72 65 65 diskfree
0ca0: 20 20 20 49 4e 54 45 47 45 52 20 44 45 46 41 55 INTEGER DEFAU
0cb0: 4c 54 20 2d 31 2c 0a 20 20 20 20 20 20 20 20 20 LT -1,.
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 61 6d unam
0cd0: 65 20 20 20 20 20 20 54 45 58 54 20 44 45 46 41 e TEXT DEFA
0ce0: 55 4c 54 20 27 6e 2f 61 27 2c 20 0a 20 20 20 20 ULT 'n/a', .
0cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d00: 20 72 75 6e 64 69 72 20 20 20 20 20 54 45 58 54 rundir TEXT
0d10: 20 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a DEFAULT 'n/a',.
0d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d30: 20 20 20 20 20 73 68 6f 72 74 64 69 72 20 20 20 shortdir
0d40: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c TEXT DEFAULT '',
0d50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0d60: 20 20 20 20 20 20 69 74 65 6d 5f 70 61 74 68 20 item_path
0d70: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 TEXT DEFAULT ''
0d80: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
0d90: 20 20 20 20 20 20 20 73 74 61 74 65 20 20 20 20 state
0da0: 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 TEXT DEFAULT '
0db0: 4e 4f 54 5f 53 54 41 52 54 45 44 27 2c 0a 20 20 NOT_STARTED',.
0dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0dd0: 20 20 20 73 74 61 74 75 73 20 20 20 20 20 54 45 status TE
0de0: 58 54 20 44 45 46 41 55 4c 54 20 27 46 41 49 4c XT DEFAULT 'FAIL
0df0: 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ',.
0e00: 20 20 20 20 20 20 20 20 61 74 74 65 6d 70 74 6e attemptn
0e10: 75 6d 20 49 4e 54 45 47 45 52 20 44 45 46 41 55 um INTEGER DEFAU
0e20: 4c 54 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 LT 0,.
0e30: 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c final
0e40: 5f 6c 6f 67 66 20 54 45 58 54 20 44 45 46 41 55 _logf TEXT DEFAU
0e50: 4c 54 20 27 6c 6f 67 73 2f 66 69 6e 61 6c 2e 6c LT 'logs/final.l
0e60: 6f 67 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 og',.
0e70: 20 20 20 20 20 20 20 20 20 20 6c 6f 67 64 61 74 logdat
0e80: 20 20 20 20 20 42 4c 4f 42 2c 20 0a 20 20 20 20 BLOB, .
0e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ea0: 20 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 49 4e run_duration IN
0eb0: 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 2c TEGER DEFAULT 0,
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0ed0: 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 comment
0ee0: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 TEXT DEFAULT ''
0ef0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
0f00: 20 20 20 20 20 20 20 65 76 65 6e 74 5f 74 69 6d event_tim
0f10: 65 20 54 49 4d 45 53 54 41 4d 50 2c 0a 20 20 20 e TIMESTAMP,.
0f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f30: 20 20 66 61 69 6c 5f 63 6f 75 6e 74 20 49 4e 54 fail_count INT
0f40: 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 2c 0a EGER DEFAULT 0,.
0f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f60: 20 20 20 20 20 70 61 73 73 5f 63 6f 75 6e 74 20 pass_count
0f70: 49 4e 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 INTEGER DEFAULT
0f80: 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 0,.
0f90: 20 20 20 20 20 20 20 20 61 72 63 68 69 76 65 64 archived
0fa0: 20 20 20 49 4e 54 45 47 45 52 20 44 45 46 41 55 INTEGER DEFAU
0fb0: 4c 54 20 30 2c 20 2d 2d 20 30 3d 6e 6f 2c 20 31 LT 0, -- 0=no, 1
0fc0: 3d 69 6e 20 70 72 6f 67 72 65 73 73 2c 20 32 3d =in progress, 2=
0fd0: 79 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 yes.
0fe0: 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 52 41 CONSTRA
0ff0: 49 4e 54 20 74 65 73 74 73 63 6f 6e 73 74 72 61 INT testsconstra
1000: 69 6e 74 20 55 4e 49 51 55 45 20 28 72 75 6e 5f int UNIQUE (run_
1010: 69 64 2c 20 74 65 73 74 6e 61 6d 65 2c 20 69 74 id, testname, it
1020: 65 6d 5f 70 61 74 68 29 0a 20 20 20 20 20 20 20 em_path).
1030: 20 20 20 29 3b 22 29 0a 09 20 20 28 73 71 6c 69 );").. (sqli
1040: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
1050: 43 52 45 41 54 45 20 49 4e 44 45 58 20 74 65 73 CREATE INDEX tes
1060: 74 73 5f 69 6e 64 65 78 20 4f 4e 20 74 65 73 74 ts_index ON test
1070: 73 20 28 72 75 6e 5f 69 64 2c 20 74 65 73 74 6e s (run_id, testn
1080: 61 6d 65 29 3b 22 29 0a 09 20 20 28 73 71 6c 69 ame);").. (sqli
1090: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
10a0: 43 52 45 41 54 45 20 56 49 45 57 20 72 75 6e 73 CREATE VIEW runs
10b0: 5f 74 65 73 74 73 20 41 53 20 53 45 4c 45 43 54 _tests AS SELECT
10c0: 20 2a 20 46 52 4f 4d 20 72 75 6e 73 20 49 4e 4e * FROM runs INN
10d0: 45 52 20 4a 4f 49 4e 20 74 65 73 74 73 20 4f 4e ER JOIN tests ON
10e0: 20 72 75 6e 73 2e 69 64 3d 74 65 73 74 73 2e 72 runs.id=tests.r
10f0: 75 6e 5f 69 64 3b 22 29 0a 09 20 20 28 73 71 6c un_id;").. (sql
1100: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
1110: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 "CREATE TABLE IF
1120: 20 4e 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 NOT EXISTS test
1130: 5f 73 74 65 70 73 20 0a 20 20 20 20 20 20 20 20 _steps .
1140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1150: 20 20 20 20 20 20 28 69 64 20 49 4e 54 45 47 45 (id INTEGE
1160: 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 R PRIMARY KEY,.
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 20 20 20 20 20 20 20 74 65 te
1190: 73 74 5f 69 64 20 49 4e 54 45 47 45 52 2c 20 0a st_id INTEGER, .
11a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
11c0: 74 65 70 6e 61 6d 65 20 54 45 58 54 2c 20 0a 20 tepname TEXT, .
11d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
11f0: 61 74 65 20 54 45 58 54 20 44 45 46 41 55 4c 54 ate TEXT DEFAULT
1200: 20 27 4e 4f 54 5f 53 54 41 52 54 45 44 27 2c 20 'NOT_STARTED',
1210: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1230: 73 74 61 74 75 73 20 54 45 58 54 20 44 45 46 41 status TEXT DEFA
1240: 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 20 20 20 20 ULT 'n/a',.
1250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1260: 20 20 20 20 20 20 20 20 20 20 65 76 65 6e 74 5f event_
1270: 74 69 6d 65 20 54 49 4d 45 53 54 41 4d 50 2c 0a time TIMESTAMP,.
1280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
12a0: 6f 6d 6d 65 6e 74 20 54 45 58 54 20 44 45 46 41 omment TEXT DEFA
12b0: 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 ULT '',.
12c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
12d0: 20 20 20 20 20 20 20 6c 6f 67 66 69 6c 65 20 54 logfile T
12e0: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
12f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
1310: 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 74 5f 73 ONSTRAINT test_s
1320: 74 65 70 73 5f 63 6f 6e 73 74 72 61 69 6e 74 20 teps_constraint
1330: 55 4e 49 51 55 45 20 28 74 65 73 74 5f 69 64 2c UNIQUE (test_id,
1340: 73 74 65 70 6e 61 6d 65 2c 73 74 61 74 65 29 29 stepname,state))
1350: 3b 22 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a ;").. (sqlite3:
1360: 65 78 65 63 75 74 65 20 64 62 20 22 43 52 45 41 execute db "CREA
1370: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 TE TABLE IF NOT
1380: 45 58 49 53 54 53 20 65 78 74 72 61 64 61 74 20 EXISTS extradat
1390: 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 4d (id INTEGER PRIM
13a0: 41 52 59 20 4b 45 59 2c 20 72 75 6e 5f 69 64 20 ARY KEY, run_id
13b0: 49 4e 54 45 47 45 52 2c 20 6b 65 79 20 54 45 58 INTEGER, key TEX
13c0: 54 2c 20 76 61 6c 20 54 45 58 54 29 3b 22 29 0a T, val TEXT);").
13d0: 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
13e0: 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 54 ute db "CREATE T
13f0: 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 ABLE IF NOT EXIS
1400: 54 53 20 6d 65 74 61 64 61 74 20 28 69 64 20 49 TS metadat (id I
1410: 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b NTEGER PRIMARY K
1420: 45 59 2c 20 76 61 72 20 54 45 58 54 2c 20 76 61 EY, var TEXT, va
1430: 6c 20 54 45 58 54 2c 0a 20 20 20 20 20 20 20 20 l TEXT,.
1440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1450: 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 52 CONSTR
1460: 41 49 4e 54 20 6d 65 74 61 64 61 74 5f 63 6f 6e AINT metadat_con
1470: 73 74 72 61 69 6e 74 20 55 4e 49 51 55 45 20 28 straint UNIQUE (
1480: 76 61 72 29 29 3b 22 29 0a 09 20 20 28 73 71 6c var));").. (sql
1490: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
14a0: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 "CREATE TABLE IF
14b0: 20 4e 4f 54 20 45 58 49 53 54 53 20 61 63 63 65 NOT EXISTS acce
14c0: 73 73 5f 6c 6f 67 20 28 69 64 20 49 4e 54 45 47 ss_log (id INTEG
14d0: 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 ER PRIMARY KEY,
14e0: 75 73 65 72 20 54 45 58 54 2c 20 61 63 63 65 73 user TEXT, acces
14f0: 73 65 64 20 54 49 4d 45 53 54 41 4d 50 2c 20 61 sed TIMESTAMP, a
1500: 72 67 73 20 54 45 58 54 29 3b 22 29 0a 09 20 20 rgs TEXT);")..
1510: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
1520: 20 64 62 20 22 43 52 45 41 54 45 20 54 41 42 4c db "CREATE TABL
1530: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 E IF NOT EXISTS
1540: 74 65 73 74 5f 6d 65 74 61 20 28 69 64 20 49 4e test_meta (id IN
1550: 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 TEGER PRIMARY KE
1560: 59 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 Y,.
1570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1580: 20 20 20 20 20 20 20 20 74 65 73 74 6e 61 6d 65 testname
1590: 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 TEXT DEFAULT
15a0: 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 '',.
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 61 75 74 68 6f 72 author
15d0: 20 20 20 20 20 20 54 45 58 54 20 44 45 46 41 55 TEXT DEFAU
15e0: 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 LT '',.
15f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1600: 20 20 20 20 20 20 20 20 20 20 20 20 6f 77 6e 65 owne
1610: 72 20 20 20 20 20 20 20 54 45 58 54 20 44 45 46 r TEXT DEF
1620: 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 AULT '',.
1630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 de
1650: 73 63 72 69 70 74 69 6f 6e 20 54 45 58 54 20 44 scription TEXT D
1660: 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 EFAULT '',.
1670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1690: 72 65 76 69 65 77 65 64 20 20 20 20 54 49 4d 45 reviewed TIME
16a0: 53 54 41 4d 50 2c 0a 20 20 20 20 20 20 20 20 20 STAMP,.
16b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
16c0: 20 20 20 20 20 20 20 20 20 20 20 20 69 74 65 72 iter
16d0: 61 74 65 64 20 20 20 20 54 45 58 54 20 44 45 46 ated TEXT DEF
16e0: 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 AULT '',.
16f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 76 av
1710: 67 5f 72 75 6e 74 69 6d 65 20 52 45 41 4c 2c 0a g_runtime REAL,.
1720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1740: 20 20 20 20 20 61 76 67 5f 64 69 73 6b 20 20 20 avg_disk
1750: 20 52 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 REAL,.
1760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1770: 20 20 20 20 20 20 20 20 20 20 20 20 74 61 67 73 tags
1780: 20 20 20 20 20 20 20 20 54 45 58 54 20 44 45 46 TEXT DEF
1790: 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 AULT '',.
17a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 6f jo
17c0: 62 67 72 6f 75 70 20 20 20 20 54 45 58 54 20 44 bgroup TEXT D
17d0: 45 46 41 55 4c 54 20 27 64 65 66 61 75 6c 74 27 EFAULT 'default'
17e0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
17f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1800: 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 CONSTRAINT tes
1810: 74 5f 6d 65 74 61 5f 63 6f 6e 73 74 72 61 69 6e t_meta_constrain
1820: 74 20 55 4e 49 51 55 45 20 28 74 65 73 74 6e 61 t UNIQUE (testna
1830: 6d 65 29 29 3b 22 29 0a 09 20 20 28 73 71 6c 69 me));").. (sqli
1840: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
1850: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 CREATE TABLE IF
1860: 4e 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 5f NOT EXISTS test_
1870: 64 61 74 61 20 28 69 64 20 49 4e 54 45 47 45 52 data (id INTEGER
1880: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 PRIMARY KEY,.
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 20 20 20 74 65 te
18b0: 73 74 5f 69 64 20 49 4e 54 45 47 45 52 2c 0a 20 st_id INTEGER,.
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 63 c
18e0: 61 74 65 67 6f 72 79 20 54 45 58 54 20 44 45 46 ategory TEXT DEF
18f0: 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 AULT '',.
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 76 61 72 69 61 62 6c variabl
1920: 65 20 54 45 58 54 2c 0a 09 20 20 20 20 20 20 20 e TEXT,..
1930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1940: 20 76 61 6c 75 65 20 52 45 41 4c 2c 0a 09 20 20 value REAL,..
1950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1960: 20 20 20 20 20 20 65 78 70 65 63 74 65 64 20 52 expected R
1970: 45 41 4c 2c 0a 09 20 20 20 20 20 20 20 20 20 20 EAL,..
1980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f to
1990: 6c 20 52 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 l REAL,.
19a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
19b0: 20 20 20 20 20 20 20 20 75 6e 69 74 73 20 54 45 units TE
19c0: 58 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 XT,.
19d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
19e0: 20 20 20 20 63 6f 6d 6d 65 6e 74 20 54 45 58 54 comment TEXT
19f0: 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 DEFAULT '',.
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 sta
1a20: 74 75 73 20 54 45 58 54 20 44 45 46 41 55 4c 54 tus TEXT DEFAULT
1a30: 20 27 6e 2f 61 27 2c 0a 20 20 20 20 20 20 20 20 'n/a',.
1a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a50: 20 20 20 20 20 20 20 20 74 79 70 65 20 54 45 58 type TEX
1a60: 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 T DEFAULT '',.
1a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 CONS
1a90: 54 52 41 49 4e 54 20 74 65 73 74 5f 64 61 74 61 TRAINT test_data
1aa0: 5f 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 _constraint UNIQ
1ab0: 55 45 20 28 74 65 73 74 5f 69 64 2c 63 61 74 65 UE (test_id,cate
1ac0: 67 6f 72 79 2c 76 61 72 69 61 62 6c 65 29 29 3b gory,variable));
1ad0: 22 29 0a 09 20 20 3b 3b 20 4d 75 73 74 20 64 6f ").. ;; Must do
1ae0: 20 74 68 69 73 20 2a 61 66 74 65 72 2a 20 72 75 this *after* ru
1af0: 6e 6e 69 6e 67 20 70 61 74 63 68 20 64 62 20 21 nning patch db !
1b00: 21 20 4e 6f 20 6d 6f 72 65 2e 20 0a 09 20 20 28 ! No more. .. (
1b10: 64 62 3a 73 65 74 2d 76 61 72 20 64 62 20 22 4d db:set-var db "M
1b20: 45 47 41 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 EGATEST_VERSION"
1b30: 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f megatest-versio
1b40: 6e 29 0a 09 20 20 29 29 0a 20 20 20 20 64 62 29 n).. )). db)
1b50: 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d )..;;===========
1b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1b90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 54 ===========.;; T
1ba0: 4f 44 4f 3a 0a 3b 3b 20 20 20 70 75 74 20 64 65 ODO:.;; put de
1bb0: 6c 74 61 73 20 69 6e 74 6f 20 61 6e 20 61 73 73 ltas into an ass
1bc0: 6f 63 20 6c 69 73 74 20 77 69 74 68 20 76 65 72 oc list with ver
1bd0: 73 69 6f 6e 20 6e 75 6d 62 65 72 73 0a 3b 3b 20 sion numbers.;;
1be0: 20 20 61 70 70 6c 79 20 61 6c 6c 20 66 72 6f 6d apply all from
1bf0: 20 6c 61 73 74 20 74 6f 20 63 75 72 72 65 6e 74 last to current
1c00: 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;=============
1c10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 28 64 65 66 69 6e =========.(defin
1c50: 65 20 28 70 61 74 63 68 2d 64 62 20 64 62 29 0a e (patch-db db).
1c60: 20 20 28 68 61 6e 64 6c 65 2d 65 78 63 65 70 74 (handle-except
1c70: 69 6f 6e 73 0a 20 20 20 65 78 6e 0a 20 20 20 28 ions. exn. (
1c80: 62 65 67 69 6e 0a 20 20 20 20 20 28 70 72 69 6e begin. (prin
1c90: 74 20 22 45 78 63 65 70 74 69 6f 6e 3a 20 22 20 t "Exception: "
1ca0: 65 78 6e 29 0a 20 20 20 20 20 28 70 72 69 6e 74 exn). (print
1cb0: 20 22 45 52 52 4f 52 3a 20 50 6f 73 73 69 62 6c "ERROR: Possibl
1cc0: 65 20 6f 75 74 20 6f 66 20 64 61 74 65 20 73 63 e out of date sc
1cd0: 68 65 6d 61 2c 20 61 74 74 65 6d 70 74 69 6e 67 hema, attempting
1ce0: 20 74 6f 20 61 64 64 20 74 61 62 6c 65 20 6d 65 to add table me
1cf0: 74 61 64 61 74 61 2e 2e 2e 22 29 0a 20 20 20 20 tadata...").
1d00: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
1d10: 65 20 64 62 20 22 43 52 45 41 54 45 20 54 41 42 e db "CREATE TAB
1d20: 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 LE IF NOT EXISTS
1d30: 20 6d 65 74 61 64 61 74 20 28 69 64 20 49 4e 54 metadat (id INT
1d40: 45 47 45 52 2c 20 76 61 72 20 54 45 58 54 2c 20 EGER, var TEXT,
1d50: 76 61 6c 20 54 45 58 54 2c 0a 20 20 20 20 20 20 val TEXT,.
1d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d70: 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 CONST
1d80: 52 41 49 4e 54 20 6d 65 74 61 64 61 74 5f 63 6f RAINT metadat_co
1d90: 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 55 45 20 nstraint UNIQUE
1da0: 28 76 61 72 29 29 3b 22 29 0a 20 20 20 20 20 28 (var));"). (
1db0: 69 66 20 28 6e 6f 74 20 28 64 62 3a 67 65 74 2d if (not (db:get-
1dc0: 76 61 72 20 64 62 20 22 4d 45 47 41 54 45 53 54 var db "MEGATEST
1dd0: 5f 56 45 52 53 49 4f 4e 22 29 29 0a 09 20 28 64 _VERSION")).. (d
1de0: 62 3a 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 b:set-var db "ME
1df0: 47 41 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 GATEST_VERSION"
1e00: 31 2e 31 37 29 29 29 0a 20 20 20 28 6c 65 74 20 1.17))). (let
1e10: 28 28 6d 76 65 72 20 28 64 62 3a 67 65 74 2d 76 ((mver (db:get-v
1e20: 61 72 20 64 62 20 22 4d 45 47 41 54 45 53 54 5f ar db "MEGATEST_
1e30: 56 45 52 53 49 4f 4e 22 29 29 0a 09 20 28 74 65 VERSION")).. (te
1e40: 73 74 2d 6d 65 74 61 2d 64 65 66 20 22 43 52 45 st-meta-def "CRE
1e50: 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 ATE TABLE IF NOT
1e60: 20 45 58 49 53 54 53 20 74 65 73 74 5f 6d 65 74 EXISTS test_met
1e70: 61 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 a (id INTEGER PR
1e80: 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 20 20 20 IMARY KEY,.
1e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1eb0: 74 65 73 74 6e 61 6d 65 20 20 20 20 54 45 58 54 testname TEXT
1ec0: 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 DEFAULT '',.
1ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ef0: 20 20 61 75 74 68 6f 72 20 20 20 20 20 20 54 45 author TE
1f00: 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 XT DEFAULT '',.
1f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f30: 20 20 20 20 6f 77 6e 65 72 20 20 20 20 20 20 20 owner
1f40: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c TEXT DEFAULT '',
1f50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f70: 20 20 20 20 20 20 64 65 73 63 72 69 70 74 69 6f descriptio
1f80: 6e 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 n TEXT DEFAULT '
1f90: 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ',.
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 72 65 76 69 65 77 65 64 reviewed
1fc0: 20 20 20 20 54 49 4d 45 53 54 41 4d 50 2c 0a 20 TIMESTAMP,.
1fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ff0: 20 20 20 20 69 74 65 72 61 74 65 64 20 20 20 20 iterated
2000: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c TEXT DEFAULT '',
2010: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2030: 20 20 20 20 20 20 61 76 67 5f 72 75 6e 74 69 6d avg_runtim
2040: 65 20 52 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 e REAL,.
2050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2060: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 76 67 avg
2070: 5f 64 69 73 6b 20 20 20 20 52 45 41 4c 2c 0a 20 _disk REAL,.
2080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20a0: 20 20 20 20 74 61 67 73 20 20 20 20 20 20 20 20 tags
20b0: 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c TEXT DEFAULT '',
20c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
20d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20e0: 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 73 74 CONSTRAINT test
20f0: 5f 6d 65 74 61 5f 63 6f 6e 73 74 72 61 69 6e 74 _meta_constraint
2100: 20 55 4e 49 51 55 45 20 28 74 65 73 74 6e 61 6d UNIQUE (testnam
2110: 65 29 29 3b 22 29 29 0a 20 20 20 20 20 28 70 72 e));")). (pr
2120: 69 6e 74 20 22 43 75 72 72 65 6e 74 20 73 63 68 int "Current sch
2130: 65 6d 61 20 76 65 72 73 69 6f 6e 3a 20 22 20 6d ema version: " m
2140: 76 65 72 20 22 20 63 75 72 72 65 6e 74 20 6d 65 ver " current me
2150: 67 61 74 65 73 74 20 76 65 72 73 69 6f 6e 3a 20 gatest version:
2160: 22 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 " megatest-versi
2170: 6f 6e 29 0a 20 20 20 20 20 28 63 6f 6e 64 0a 20 on). (cond.
2180: 20 20 20 20 20 28 28 6e 6f 74 20 6d 76 65 72 29 ((not mver)
2190: 0a 20 20 20 20 20 20 20 28 70 72 69 6e 74 20 22 . (print "
21a0: 41 64 64 69 6e 67 20 6d 65 67 61 74 65 73 74 2d Adding megatest-
21b0: 76 65 72 73 69 6f 6e 20 74 6f 20 6d 65 74 61 64 version to metad
21c0: 61 74 61 22 29 20 3b 3b 20 4e 65 65 64 20 74 6f ata") ;; Need to
21d0: 20 72 65 63 72 65 61 74 65 20 74 68 65 20 74 61 recreate the ta
21e0: 62 6c 65 0a 20 20 20 20 20 20 20 28 73 71 6c 69 ble. (sqli
21f0: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
2200: 44 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58 DROP TABLE IF EX
2210: 49 53 54 53 20 6d 65 74 61 64 61 74 3b 22 29 0a ISTS metadat;").
2220: 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a (sqlite3:
2230: 65 78 65 63 75 74 65 20 64 62 20 22 43 52 45 41 execute db "CREA
2240: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 TE TABLE IF NOT
2250: 45 58 49 53 54 53 20 6d 65 74 61 64 61 74 20 28 EXISTS metadat (
2260: 69 64 20 49 4e 54 45 47 45 52 2c 20 76 61 72 20 id INTEGER, var
2270: 54 45 58 54 2c 20 76 61 6c 20 54 45 58 54 2c 0a TEXT, val TEXT,.
2280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22a0: 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 6d 65 74 CONSTRAINT met
22b0: 61 64 61 74 5f 63 6f 6e 73 74 72 61 69 6e 74 20 adat_constraint
22c0: 55 4e 49 51 55 45 20 28 76 61 72 29 29 3b 22 29 UNIQUE (var));")
22d0: 0a 20 20 20 20 20 20 20 28 64 62 3a 73 65 74 2d . (db:set-
22e0: 76 61 72 20 64 62 20 22 4d 45 47 41 54 45 53 54 var db "MEGATEST
22f0: 5f 56 45 52 53 49 4f 4e 22 20 31 2e 31 37 29 0a _VERSION" 1.17).
2300: 20 20 20 20 20 20 20 28 70 61 74 63 68 2d 64 62 (patch-db
2310: 29 29 0a 20 20 20 20 20 20 28 28 3c 20 6d 76 65 )). ((< mve
2320: 72 20 31 2e 32 31 29 0a 20 20 20 20 20 20 20 28 r 1.21). (
2330: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
2340: 64 62 20 22 44 52 4f 50 20 54 41 42 4c 45 20 49 db "DROP TABLE I
2350: 46 20 45 58 49 53 54 53 20 6d 65 74 61 64 61 74 F EXISTS metadat
2360: 3b 22 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 ;"). (sqli
2370: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
2380: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 CREATE TABLE IF
2390: 4e 4f 54 20 45 58 49 53 54 53 20 6d 65 74 61 64 NOT EXISTS metad
23a0: 61 74 20 28 69 64 20 49 4e 54 45 47 45 52 2c 20 at (id INTEGER,
23b0: 76 61 72 20 54 45 58 54 2c 20 76 61 6c 20 54 45 var TEXT, val TE
23c0: 58 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 XT,.
23d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
23e0: 20 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 CONSTRAINT
23f0: 20 6d 65 74 61 64 61 74 5f 63 6f 6e 73 74 72 61 metadat_constra
2400: 69 6e 74 20 55 4e 49 51 55 45 20 28 76 61 72 29 int UNIQUE (var)
2410: 29 3b 22 29 0a 20 20 20 20 20 20 20 28 64 62 3a );"). (db:
2420: 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 set-var db "MEGA
2430: 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 2e TEST_VERSION" 1.
2440: 32 31 29 20 3b 3b 20 73 65 74 20 62 65 66 6f 72 21) ;; set befor
2450: 65 2c 20 6a 75 73 74 20 69 6e 20 63 61 73 65 20 e, just in case
2460: 74 68 65 20 63 68 61 6e 67 65 73 20 61 72 65 20 the changes are
2470: 61 6c 72 65 61 64 79 20 61 70 70 6c 69 65 64 0a already applied.
2480: 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a (sqlite3:
2490: 65 78 65 63 75 74 65 20 64 62 20 74 65 73 74 2d execute db test-
24a0: 6d 65 74 61 2d 64 65 66 29 0a 09 09 09 09 09 3b meta-def)......;
24b0: 28 66 6f 72 2d 65 61 63 68 20 0a 09 09 09 09 09 (for-each ......
24c0: 3b 20 28 6c 61 6d 62 64 61 20 28 73 74 6d 74 29 ; (lambda (stmt)
24d0: 0a 09 09 09 09 09 3b 20 20 20 28 73 71 6c 69 74 ......; (sqlit
24e0: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 73 74 e3:execute db st
24f0: 6d 74 29 29 0a 09 09 09 09 09 3b 20 28 6c 69 73 mt))......; (lis
2500: 74 20 0a 09 09 09 09 09 3b 20 20 22 41 4c 54 45 t ......; "ALTE
2510: 52 20 54 41 42 4c 45 20 74 65 73 74 73 20 41 44 R TABLE tests AD
2520: 44 20 43 4f 4c 55 4d 4e 20 66 69 72 73 74 5f 65 D COLUMN first_e
2530: 72 72 20 54 45 58 54 3b 22 0a 09 09 09 09 09 3b rr TEXT;"......;
2540: 20 20 22 41 4c 54 45 52 20 54 41 42 4c 45 20 74 "ALTER TABLE t
2550: 65 73 74 73 20 41 44 44 20 43 4f 4c 55 4d 4e 20 ests ADD COLUMN
2560: 66 69 72 73 74 5f 77 61 72 6e 20 54 45 58 54 3b first_warn TEXT;
2570: 22 0a 09 09 09 09 09 3b 20 20 29 29 0a 20 20 20 "......; )).
2580: 20 20 20 20 28 70 61 74 63 68 2d 64 62 29 29 0a (patch-db)).
2590: 20 20 20 20 20 20 28 28 3c 20 6d 76 65 72 20 31 ((< mver 1
25a0: 2e 32 34 29 0a 20 20 20 20 20 20 20 28 64 62 3a .24). (db:
25b0: 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 set-var db "MEGA
25c0: 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 2e TEST_VERSION" 1.
25d0: 32 34 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 24). (sqli
25e0: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
25f0: 44 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58 DROP TABLE IF EX
2600: 49 53 54 53 20 74 65 73 74 5f 64 61 74 61 3b 22 ISTS test_data;"
2610: 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 ). (sqlite
2620: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 44 52 3:execute db "DR
2630: 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58 49 53 OP TABLE IF EXIS
2640: 54 53 20 74 65 73 74 5f 6d 65 74 61 3b 22 29 0a TS test_meta;").
2650: 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a (sqlite3:
2660: 65 78 65 63 75 74 65 20 64 62 20 74 65 73 74 2d execute db test-
2670: 6d 65 74 61 2d 64 65 66 29 0a 20 20 20 20 20 20 meta-def).
2680: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
2690: 65 20 64 62 20 22 43 52 45 41 54 45 20 54 41 42 e db "CREATE TAB
26a0: 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 LE IF NOT EXISTS
26b0: 20 74 65 73 74 5f 64 61 74 61 20 28 69 64 20 49 test_data (id I
26c0: 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b NTEGER PRIMARY K
26d0: 45 59 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 EY,.
26e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
26f0: 20 20 20 20 74 65 73 74 5f 69 64 20 49 4e 54 45 test_id INTE
2700: 47 45 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 GER,.
2710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2720: 20 20 20 20 20 63 61 74 65 67 6f 72 79 20 54 45 category TE
2730: 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 XT DEFAULT '',.
2740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 v
2760: 61 72 69 61 62 6c 65 20 54 45 58 54 2c 0a 09 20 ariable TEXT,..
2770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2780: 20 20 20 20 20 20 20 76 61 6c 75 65 20 52 45 41 value REA
2790: 4c 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 L,..
27a0: 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 65 expe
27b0: 63 74 65 64 20 52 45 41 4c 2c 0a 09 20 20 20 20 cted REAL,..
27c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
27d0: 20 20 20 20 74 6f 6c 20 52 45 41 4c 2c 0a 20 20 tol REAL,.
27e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
27f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e un
2800: 69 74 73 20 54 45 58 54 2c 0a 20 20 20 20 20 20 its TEXT,.
2810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2820: 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e commen
2830: 74 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 t TEXT DEFAULT '
2840: 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ',.
2850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2860: 20 20 20 73 74 61 74 75 73 20 54 45 58 54 20 44 status TEXT D
2870: 45 46 41 55 4c 54 20 27 6e 2f 61 27 2c 0a 20 20 EFAULT 'n/a',.
2880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2890: 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 CONS
28a0: 54 52 41 49 4e 54 20 74 65 73 74 5f 64 61 74 61 TRAINT test_data
28b0: 20 55 4e 49 51 55 45 20 28 74 65 73 74 5f 69 64 UNIQUE (test_id
28c0: 2c 63 61 74 65 67 6f 72 79 2c 76 61 72 69 61 62 ,category,variab
28d0: 6c 65 29 29 3b 22 29 0a 20 20 20 20 20 20 20 28 le));"). (
28e0: 70 72 69 6e 74 20 22 57 41 52 4e 49 4e 47 3a 20 print "WARNING:
28f0: 54 61 62 6c 65 20 74 65 73 74 5f 64 61 74 61 20 Table test_data
2900: 61 6e 64 20 74 65 73 74 5f 6d 65 74 61 20 77 68 and test_meta wh
2910: 65 72 65 20 72 65 63 72 65 61 74 65 64 2e 20 50 ere recreated. P
2920: 6c 65 61 73 65 20 64 6f 20 6d 65 67 61 74 65 73 lease do megates
2930: 74 20 2d 75 70 64 61 74 65 2d 6d 65 74 61 22 29 t -update-meta")
2940: 0a 20 20 20 20 20 20 20 28 70 61 74 63 68 2d 64 . (patch-d
2950: 62 29 29 0a 20 20 20 20 20 20 28 28 3c 20 6d 76 b)). ((< mv
2960: 65 72 20 31 2e 32 37 29 0a 20 20 20 20 20 20 20 er 1.27).
2970: 28 64 62 3a 73 65 74 2d 76 61 72 20 64 62 20 22 (db:set-var db "
2980: 4d 45 47 41 54 45 53 54 5f 56 45 52 53 49 4f 4e MEGATEST_VERSION
2990: 22 20 31 2e 32 37 29 0a 20 20 20 20 20 20 20 28 " 1.27). (
29a0: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
29b0: 64 62 20 22 41 4c 54 45 52 20 54 41 42 4c 45 20 db "ALTER TABLE
29c0: 74 65 73 74 5f 64 61 74 61 20 41 44 44 20 43 4f test_data ADD CO
29d0: 4c 55 4d 4e 20 74 79 70 65 20 54 45 58 54 20 44 LUMN type TEXT D
29e0: 45 46 41 55 4c 54 20 27 27 3b 22 29 0a 20 20 20 EFAULT '';").
29f0: 20 20 20 20 28 70 61 74 63 68 2d 64 62 29 29 0a (patch-db)).
2a00: 20 20 20 20 20 20 28 28 3c 20 6d 76 65 72 20 31 ((< mver 1
2a10: 2e 32 39 29 0a 20 20 20 20 20 20 20 28 64 62 3a .29). (db:
2a20: 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 set-var db "MEGA
2a30: 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 2e TEST_VERSION" 1.
2a40: 32 39 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 29). (sqli
2a50: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
2a60: 41 4c 54 45 52 20 54 41 42 4c 45 20 74 65 73 74 ALTER TABLE test
2a70: 5f 73 74 65 70 73 20 41 44 44 20 43 4f 4c 55 4d _steps ADD COLUM
2a80: 4e 20 6c 6f 67 66 69 6c 65 20 54 45 58 54 20 44 N logfile TEXT D
2a90: 45 46 41 55 4c 54 20 27 27 3b 22 29 0a 20 20 20 EFAULT '';").
2aa0: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 (sqlite3:exe
2ab0: 63 75 74 65 20 64 62 20 22 41 4c 54 45 52 20 54 cute db "ALTER T
2ac0: 41 42 4c 45 20 74 65 73 74 73 20 41 44 44 20 43 ABLE tests ADD C
2ad0: 4f 4c 55 4d 4e 20 73 68 6f 72 74 64 69 72 20 54 OLUMN shortdir T
2ae0: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 3b 22 EXT DEFAULT '';"
2af0: 29 29 0a 20 20 20 20 20 20 28 28 3c 20 6d 76 65 )). ((< mve
2b00: 72 20 31 2e 33 36 29 0a 20 20 20 20 20 20 20 28 r 1.36). (
2b10: 64 62 3a 73 65 74 2d 76 61 72 20 64 62 20 22 4d db:set-var db "M
2b20: 45 47 41 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 EGATEST_VERSION"
2b30: 20 31 2e 33 36 29 0a 20 20 20 20 20 20 20 28 73 1.36). (s
2b40: 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 qlite3:execute d
2b50: 62 20 22 41 4c 54 45 52 20 54 41 42 4c 45 20 74 b "ALTER TABLE t
2b60: 65 73 74 5f 6d 65 74 61 20 41 44 44 20 43 4f 4c est_meta ADD COL
2b70: 55 4d 4e 20 6a 6f 62 67 72 6f 75 70 20 54 45 58 UMN jobgroup TEX
2b80: 54 20 44 45 46 41 55 4c 54 20 27 64 65 66 61 75 T DEFAULT 'defau
2b90: 6c 74 27 3b 22 29 29 0a 20 20 20 20 20 20 28 28 lt';")). ((
2ba0: 3c 20 6d 76 65 72 20 31 2e 33 37 29 0a 20 20 20 < mver 1.37).
2bb0: 20 20 20 20 28 64 62 3a 73 65 74 2d 76 61 72 20 (db:set-var
2bc0: 64 62 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 db "MEGATEST_VER
2bd0: 53 49 4f 4e 22 20 31 2e 33 37 29 0a 20 20 20 20 SION" 1.37).
2be0: 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 (sqlite3:exec
2bf0: 75 74 65 20 64 62 20 22 41 4c 54 45 52 20 54 41 ute db "ALTER TA
2c00: 42 4c 45 20 74 65 73 74 73 20 41 44 44 20 43 4f BLE tests ADD CO
2c10: 4c 55 4d 4e 20 61 72 63 68 69 76 65 64 20 49 4e LUMN archived IN
2c20: 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 30 3b TEGER DEFAULT 0;
2c30: 22 29 29 20 0a 20 20 20 20 20 20 28 28 3c 20 6d ")) . ((< m
2c40: 76 65 72 20 6d 65 67 61 74 65 73 74 2d 76 65 72 ver megatest-ver
2c50: 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 64 62 sion). (db
2c60: 3a 73 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 :set-var db "MEG
2c70: 41 54 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 6d ATEST_VERSION" m
2c80: 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f 6e 29 egatest-version)
2c90: 29 29 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d )))))..;;=======
2ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2cc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2cd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
2ce0: 3b 3b 20 6d 65 74 61 20 67 65 74 20 61 6e 64 20 ;; meta get and
2cf0: 73 65 74 20 76 61 72 73 0a 3b 3b 3d 3d 3d 3d 3d set vars.;;=====
2d00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d40: 3d 0a 0a 3b 3b 20 72 65 74 75 72 6e 73 20 6e 75 =..;; returns nu
2d50: 6d 62 65 72 20 69 66 20 73 74 72 69 6e 67 2d 3e mber if string->
2d60: 6e 75 6d 62 65 72 20 69 73 20 73 75 63 63 65 73 number is succes
2d70: 73 66 75 6c 2c 20 73 74 72 69 6e 67 20 6f 74 68 sful, string oth
2d80: 65 72 77 69 73 65 0a 28 64 65 66 69 6e 65 20 28 erwise.(define (
2d90: 64 62 3a 67 65 74 2d 76 61 72 20 64 62 20 76 61 db:get-var db va
2da0: 72 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 r). (let ((res
2db0: 23 66 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 #f)). (sqlite
2dc0: 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 3:for-each-row.
2dd0: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 76 61 6c (lambda (val
2de0: 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 ). (set! r
2df0: 65 73 20 76 61 6c 29 29 0a 20 20 20 20 20 64 62 es val)). db
2e00: 20 22 53 45 4c 45 43 54 20 76 61 6c 20 46 52 4f "SELECT val FRO
2e10: 4d 20 6d 65 74 61 64 61 74 20 57 48 45 52 45 20 M metadat WHERE
2e20: 76 61 72 3d 3f 3b 22 20 76 61 72 29 0a 20 20 20 var=?;" var).
2e30: 20 28 69 66 20 28 73 74 72 69 6e 67 3f 20 72 65 (if (string? re
2e40: 73 29 0a 09 28 6c 65 74 20 28 28 76 61 6c 6e 75 s)..(let ((valnu
2e50: 6d 20 28 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 m (string->numbe
2e60: 72 20 72 65 73 29 29 29 0a 09 20 20 28 69 66 20 r res))).. (if
2e70: 76 61 6c 6e 75 6d 20 76 61 6c 6e 75 6d 20 72 65 valnum valnum re
2e80: 73 29 29 0a 09 72 65 73 29 29 29 0a 0a 28 64 65 s))..res)))..(de
2e90: 66 69 6e 65 20 28 64 62 3a 73 65 74 2d 76 61 72 fine (db:set-var
2ea0: 20 64 62 20 76 61 72 20 76 61 6c 29 0a 20 20 28 db var val). (
2eb0: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
2ec0: 64 62 20 22 49 4e 53 45 52 54 20 4f 52 20 52 45 db "INSERT OR RE
2ed0: 50 4c 41 43 45 20 49 4e 54 4f 20 6d 65 74 61 64 PLACE INTO metad
2ee0: 61 74 20 28 76 61 72 2c 76 61 6c 29 20 56 41 4c at (var,val) VAL
2ef0: 55 45 53 20 28 3f 2c 3f 29 3b 22 20 76 61 72 20 UES (?,?);" var
2f00: 76 61 6c 29 29 0a 0a 3b 3b 20 75 73 65 20 61 20 val))..;; use a
2f10: 67 6c 6f 62 61 6c 20 66 6f 72 20 73 6f 6d 65 20 global for some
2f20: 70 72 69 6d 69 74 69 76 65 20 63 61 63 68 69 6e primitive cachin
2f30: 67 2c 20 69 74 20 69 73 20 6a 75 73 74 20 73 69 g, it is just si
2f40: 6c 6c 79 20 74 6f 20 72 65 2d 72 65 61 64 20 74 lly to re-read t
2f50: 68 65 20 64 62 20 0a 3b 3b 20 6f 76 65 72 20 61 he db .;; over a
2f60: 6e 64 20 6f 76 65 72 20 61 67 61 69 6e 20 66 6f nd over again fo
2f70: 72 20 74 68 65 20 6b 65 79 73 20 73 69 6e 63 65 r the keys since
2f80: 20 74 68 65 79 20 6e 65 76 65 72 20 63 68 61 6e they never chan
2f90: 67 65 0a 0a 28 64 65 66 69 6e 65 20 2a 64 62 2d ge..(define *db-
2fa0: 6b 65 79 73 2a 20 23 66 29 0a 0a 28 64 65 66 69 keys* #f)..(defi
2fb0: 6e 65 20 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 ne (db-get-keys
2fc0: 64 62 29 0a 20 20 28 69 66 20 2a 64 62 2d 6b 65 db). (if *db-ke
2fd0: 79 73 2a 20 2a 64 62 2d 6b 65 79 73 2a 20 0a 20 ys* *db-keys* .
2fe0: 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 20 (let ((res
2ff0: 27 28 29 29 29 0a 09 28 73 71 6c 69 74 65 33 3a '()))..(sqlite3:
3000: 66 6f 72 2d 65 61 63 68 2d 72 6f 77 20 0a 09 20 for-each-row ..
3010: 28 6c 61 6d 62 64 61 20 28 6b 65 79 20 6b 65 79 (lambda (key key
3020: 74 79 70 65 29 0a 09 20 20 20 28 73 65 74 21 20 type).. (set!
3030: 72 65 73 20 28 63 6f 6e 73 20 28 76 65 63 74 6f res (cons (vecto
3040: 72 20 6b 65 79 20 6b 65 79 74 79 70 65 29 20 72 r key keytype) r
3050: 65 73 29 29 29 0a 09 20 64 62 0a 09 20 22 53 45 es))).. db.. "SE
3060: 4c 45 43 54 20 66 69 65 6c 64 6e 61 6d 65 2c 66 LECT fieldname,f
3070: 69 65 6c 64 74 79 70 65 20 46 52 4f 4d 20 6b 65 ieldtype FROM ke
3080: 79 73 20 4f 52 44 45 52 20 42 59 20 69 64 20 44 ys ORDER BY id D
3090: 45 53 43 3b 22 29 0a 09 28 73 65 74 21 20 2a 64 ESC;")..(set! *d
30a0: 62 2d 6b 65 79 73 2a 20 72 65 73 29 0a 09 72 65 b-keys* res)..re
30b0: 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 64 62 s)))..(define db
30c0: 3a 67 65 74 2d 6b 65 79 73 20 64 62 2d 67 65 74 :get-keys db-get
30d0: 2d 6b 65 79 73 29 0a 0a 28 64 65 66 69 6e 65 20 -keys)..(define
30e0: 28 64 62 3a 67 65 74 2d 76 61 6c 75 65 2d 62 79 (db:get-value-by
30f0: 2d 68 65 61 64 65 72 20 72 6f 77 20 68 65 61 64 -header row head
3100: 65 72 20 66 69 65 6c 64 29 0a 20 20 3b 3b 20 28 er field). ;; (
3110: 64 65 62 75 67 3a 70 72 69 6e 74 20 32 20 22 64 debug:print 2 "d
3120: 62 3a 67 65 74 2d 76 61 6c 75 65 2d 62 79 2d 68 b:get-value-by-h
3130: 65 61 64 65 72 20 72 6f 77 3a 20 22 20 72 6f 77 eader row: " row
3140: 20 22 20 68 65 61 64 65 72 3a 20 22 20 68 65 61 " header: " hea
3150: 64 65 72 20 22 20 66 69 65 6c 64 3a 20 22 20 66 der " field: " f
3160: 69 65 6c 64 29 0a 20 20 28 69 66 20 28 6e 75 6c ield). (if (nul
3170: 6c 3f 20 68 65 61 64 65 72 29 20 23 66 0a 20 20 l? header) #f.
3180: 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 (let loop ((
3190: 68 65 64 20 28 63 61 72 20 68 65 61 64 65 72 29 hed (car header)
31a0: 29 0a 09 09 20 28 74 61 6c 20 28 63 64 72 20 68 )... (tal (cdr h
31b0: 65 61 64 65 72 29 29 0a 09 09 20 28 6e 20 20 20 eader))... (n
31c0: 30 29 29 0a 09 28 69 66 20 28 65 71 75 61 6c 3f 0))..(if (equal?
31d0: 20 68 65 64 20 66 69 65 6c 64 29 0a 09 20 20 20 hed field)..
31e0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 6f 77 (vector-ref row
31f0: 20 6e 29 0a 09 20 20 20 20 28 69 66 20 28 6e 75 n).. (if (nu
3200: 6c 6c 3f 20 74 61 6c 29 20 23 66 20 28 6c 6f 6f ll? tal) #f (loo
3210: 70 20 28 63 61 72 20 74 61 6c 29 28 63 64 72 20 p (car tal)(cdr
3220: 74 61 6c 29 28 2b 20 6e 20 31 29 29 29 29 29 29 tal)(+ n 1))))))
3230: 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d )..;;===========
3240: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3270: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 20 ===========.;;
3280: 52 20 55 20 4e 20 53 0a 3b 3b 3d 3d 3d 3d 3d 3d R U N S.;;======
3290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
32a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
32b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
32c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
32d0: 0a 0a 28 64 65 66 69 6e 65 20 28 72 75 6e 73 3a ..(define (runs:
32e0: 67 65 74 2d 73 74 64 2d 72 75 6e 2d 66 69 65 6c get-std-run-fiel
32f0: 64 73 20 6b 65 79 73 20 72 65 6d 66 69 65 6c 64 ds keys remfield
3300: 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 68 65 61 s). (let* ((hea
3310: 64 65 72 20 20 20 20 28 61 70 70 65 6e 64 20 28 der (append (
3320: 6d 61 70 20 6b 65 79 3a 67 65 74 2d 66 69 65 6c map key:get-fiel
3330: 64 6e 61 6d 65 20 6b 65 79 73 29 0a 09 09 09 20 dname keys)....
3340: 20 20 20 72 65 6d 66 69 65 6c 64 73 29 29 0a 09 remfields))..
3350: 20 28 6b 65 79 73 74 72 20 20 20 20 28 63 6f 6e (keystr (con
3360: 63 20 28 6b 65 79 73 2d 3e 6b 65 79 73 74 72 20 c (keys->keystr
3370: 6b 65 79 73 29 20 22 2c 22 0a 09 09 09 20 20 28 keys) ",".... (
3380: 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 string-intersper
3390: 73 65 20 72 65 6d 66 69 65 6c 64 73 20 22 2c 22 se remfields ","
33a0: 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 6b )))). (list k
33b0: 65 79 73 74 72 20 68 65 61 64 65 72 29 29 29 0a eystr header))).
33c0: 0a 3b 3b 20 57 41 53 20 64 62 2d 67 65 74 2d 72 .;; WAS db-get-r
33d0: 75 6e 73 20 46 49 58 4d 45 20 49 4e 20 52 45 4d uns FIXME IN REM
33e0: 41 49 4e 49 4e 47 20 43 4f 44 45 0a 3b 3b 0a 3b AINING CODE.;;.;
33f0: 3b 20 4d 45 52 47 45 20 54 48 49 53 20 57 49 54 ; MERGE THIS WIT
3400: 48 20 64 62 3a 67 65 74 2d 72 75 6e 73 2c 20 61 H db:get-runs, a
3410: 63 63 69 64 65 6e 74 6c 79 20 77 72 6f 74 65 20 ccidently wrote
3420: 69 74 20 74 77 69 63 65 0a 3b 3b 0a 3b 3b 20 72 it twice.;;.;; r
3430: 65 70 6c 61 63 65 20 68 65 61 64 65 72 20 61 6e eplace header an
3440: 64 20 6b 65 79 73 74 72 20 77 69 74 68 20 61 20 d keystr with a
3450: 63 61 6c 6c 20 74 6f 20 72 75 6e 73 3a 67 65 74 call to runs:get
3460: 2d 73 74 64 2d 72 75 6e 2d 66 69 65 6c 64 73 0a -std-run-fields.
3470: 3b 3b 0a 3b 3b 20 6b 65 79 70 61 74 74 73 3a 20 ;;.;; keypatts:
3480: 28 20 28 4b 45 59 31 20 22 61 62 63 25 64 65 66 ( (KEY1 "abc%def
3490: 22 29 28 4b 45 59 32 20 22 25 22 29 20 29 0a 3b ")(KEY2 "%") ).;
34a0: 3b 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 ;.(define (db:ge
34b0: 74 2d 72 75 6e 73 20 64 62 20 72 75 6e 70 61 74 t-runs db runpat
34c0: 74 20 63 6f 75 6e 74 20 6f 66 66 73 65 74 20 6b t count offset k
34d0: 65 79 70 61 74 74 73 29 0a 20 20 28 6c 65 74 2a eypatts). (let*
34e0: 20 28 28 72 65 73 20 20 20 20 20 20 27 28 29 29 ((res '())
34f0: 0a 09 20 28 6b 65 79 73 20 20 20 20 20 20 28 64 .. (keys (d
3500: 62 2d 67 65 74 2d 6b 65 79 73 20 64 62 29 29 0a b-get-keys db)).
3510: 09 20 28 72 65 6d 66 69 65 6c 64 73 20 28 6c 69 . (remfields (li
3520: 73 74 20 22 69 64 22 20 22 72 75 6e 6e 61 6d 65 st "id" "runname
3530: 22 20 22 73 74 61 74 65 22 20 22 73 74 61 74 75 " "state" "statu
3540: 73 22 20 22 6f 77 6e 65 72 22 20 22 65 76 65 6e s" "owner" "even
3550: 74 5f 74 69 6d 65 22 29 29 0a 09 20 28 68 65 61 t_time")).. (hea
3560: 64 65 72 20 20 20 20 28 61 70 70 65 6e 64 20 28 der (append (
3570: 6d 61 70 20 6b 65 79 3a 67 65 74 2d 66 69 65 6c map key:get-fiel
3580: 64 6e 61 6d 65 20 6b 65 79 73 29 0a 09 09 09 20 dname keys)....
3590: 20 20 20 72 65 6d 66 69 65 6c 64 73 29 29 0a 09 remfields))..
35a0: 20 28 6b 65 79 73 74 72 20 20 20 20 28 63 6f 6e (keystr (con
35b0: 63 20 28 6b 65 79 73 2d 3e 6b 65 79 73 74 72 20 c (keys->keystr
35c0: 6b 65 79 73 29 20 22 2c 22 0a 09 09 09 20 20 28 keys) ",".... (
35d0: 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 string-intersper
35e0: 73 65 20 72 65 6d 66 69 65 6c 64 73 20 22 2c 22 se remfields ","
35f0: 29 29 29 0a 09 20 28 71 72 79 73 74 72 20 20 20 ))).. (qrystr
3600: 20 28 63 6f 6e 63 20 22 53 45 4c 45 43 54 20 22 (conc "SELECT "
3610: 20 6b 65 79 73 74 72 20 22 20 46 52 4f 4d 20 72 keystr " FROM r
3620: 75 6e 73 20 57 48 45 52 45 20 72 75 6e 6e 61 6d uns WHERE runnam
3630: 65 20 4c 49 4b 45 20 3f 20 22 0a 09 09 09 20 20 e LIKE ? "....
3640: 3b 3b 20 47 65 6e 65 72 61 74 65 3a 20 22 20 41 ;; Generate: " A
3650: 4e 44 20 78 20 4c 49 4b 45 20 27 6b 65 79 70 61 ND x LIKE 'keypa
3660: 74 74 27 20 2e 2e 2e 22 0a 09 09 09 20 20 28 69 tt' ...".... (i
3670: 66 20 28 6e 75 6c 6c 3f 20 6b 65 79 70 61 74 74 f (null? keypatt
3680: 73 29 20 22 22 0a 09 09 09 20 20 20 20 20 20 28 s) "".... (
3690: 63 6f 6e 63 20 22 20 41 4e 44 20 22 0a 09 09 09 conc " AND "....
36a0: 09 20 20 20 20 28 73 74 72 69 6e 67 2d 6a 6f 69 . (string-joi
36b0: 6e 20 0a 09 09 09 09 20 20 20 20 20 28 6d 61 70 n ..... (map
36c0: 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 70 61 74 (lambda (keypat
36d0: 74 29 0a 09 09 09 09 09 20 20 20 20 28 6c 65 74 t)...... (let
36e0: 20 28 28 6b 65 79 20 20 28 63 61 72 20 6b 65 79 ((key (car key
36f0: 70 61 74 74 29 29 0a 09 09 09 09 09 09 20 20 28 patt))....... (
3700: 70 61 74 74 20 28 63 61 64 72 20 6b 65 79 70 61 patt (cadr keypa
3710: 74 74 29 29 29 0a 09 09 09 09 09 20 20 20 20 20 tt)))......
3720: 20 28 63 6f 6e 63 20 6b 65 79 20 22 20 4c 49 4b (conc key " LIK
3730: 45 20 27 22 20 70 61 74 74 20 22 27 22 29 29 29 E '" patt "'")))
3740: 0a 09 09 09 09 09 20 20 6b 65 79 70 61 74 74 73 ...... keypatts
3750: 29 0a 09 09 09 09 20 20 20 20 20 22 20 41 4e 44 )..... " AND
3760: 20 22 29 29 29 0a 09 09 09 20 20 22 20 4f 52 44 "))).... " ORD
3770: 45 52 20 42 59 20 65 76 65 6e 74 5f 74 69 6d 65 ER BY event_time
3780: 20 44 45 53 43 20 22 0a 09 09 09 20 20 28 69 66 DESC ".... (if
3790: 20 28 6e 75 6d 62 65 72 3f 20 63 6f 75 6e 74 29 (number? count)
37a0: 0a 09 09 09 20 20 20 20 20 20 28 63 6f 6e 63 20 .... (conc
37b0: 22 20 4c 49 4d 49 54 20 22 20 63 6f 75 6e 74 29 " LIMIT " count)
37c0: 0a 09 09 09 20 20 20 20 20 20 22 22 29 0a 09 09 .... "")...
37d0: 09 20 20 28 69 66 20 28 6e 75 6d 62 65 72 3f 20 . (if (number?
37e0: 6f 66 66 73 65 74 29 0a 09 09 09 20 20 20 20 20 offset)....
37f0: 20 28 63 6f 6e 63 20 22 20 4f 46 46 53 45 54 20 (conc " OFFSET
3800: 22 20 6f 66 66 73 65 74 29 0a 09 09 09 20 20 20 " offset)....
3810: 20 20 20 22 22 29 29 29 29 0a 20 20 20 20 28 64 "")))). (d
3820: 65 62 75 67 3a 70 72 69 6e 74 20 34 20 22 64 62 ebug:print 4 "db
3830: 3a 67 65 74 2d 72 75 6e 73 20 71 72 79 73 74 72 :get-runs qrystr
3840: 3a 20 22 20 71 72 79 73 74 72 20 22 5c 6e 6b 65 : " qrystr "\nke
3850: 79 70 61 74 74 73 3a 20 22 20 6b 65 79 70 61 74 ypatts: " keypat
3860: 74 73 20 22 5c 6e 20 20 6f 66 66 73 65 74 3a 20 ts "\n offset:
3870: 22 20 6f 66 66 73 65 74 20 22 20 6c 69 6d 69 74 " offset " limit
3880: 3a 20 22 20 63 6f 75 6e 74 29 0a 20 20 20 20 28 : " count). (
3890: 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 sqlite3:for-each
38a0: 2d 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 -row. (lambd
38b0: 61 20 28 61 20 2e 20 78 29 0a 20 20 20 20 20 20 a (a . x).
38c0: 20 28 73 65 74 21 20 72 65 73 20 28 63 6f 6e 73 (set! res (cons
38d0: 20 28 61 70 70 6c 79 20 76 65 63 74 6f 72 20 61 (apply vector a
38e0: 20 78 29 20 72 65 73 29 29 29 0a 20 20 20 20 20 x) res))).
38f0: 64 62 0a 20 20 20 20 20 71 72 79 73 74 72 0a 20 db. qrystr.
3900: 20 20 20 20 72 75 6e 70 61 74 74 29 0a 20 20 20 runpatt).
3910: 20 28 76 65 63 74 6f 72 20 68 65 61 64 65 72 20 (vector header
3920: 72 65 73 29 29 29 0a 0a 3b 3b 20 6a 75 73 74 20 res)))..;; just
3930: 67 65 74 20 63 6f 75 6e 74 20 6f 66 20 72 75 6e get count of run
3940: 73 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 s.(define (db:ge
3950: 74 2d 6e 75 6d 2d 72 75 6e 73 20 64 62 20 72 75 t-num-runs db ru
3960: 6e 70 61 74 74 29 0a 20 20 28 6c 65 74 20 28 28 npatt). (let ((
3970: 6e 75 6d 72 75 6e 73 20 30 29 29 0a 20 20 20 20 numruns 0)).
3980: 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 (sqlite3:for-eac
3990: 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d h-row . (lam
39a0: 62 64 61 20 28 63 6f 75 6e 74 29 0a 20 20 20 20 bda (count).
39b0: 20 20 20 28 73 65 74 21 20 6e 75 6d 72 75 6e 73 (set! numruns
39c0: 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 64 62 count)). db
39d0: 0a 20 20 20 20 20 22 53 45 4c 45 43 54 20 43 4f . "SELECT CO
39e0: 55 4e 54 28 69 64 29 20 46 52 4f 4d 20 72 75 6e UNT(id) FROM run
39f0: 73 20 57 48 45 52 45 20 72 75 6e 6e 61 6d 65 20 s WHERE runname
3a00: 4c 49 4b 45 20 3f 3b 22 20 72 75 6e 70 61 74 74 LIKE ?;" runpatt
3a10: 29 0a 20 20 20 20 6e 75 6d 72 75 6e 73 29 29 0a ). numruns)).
3a20: 0a 0a 3b 3b 20 75 73 65 20 28 67 65 74 2d 76 61 ..;; use (get-va
3a30: 6c 75 65 2d 62 79 2d 68 65 61 64 65 72 20 28 64 lue-by-header (d
3a40: 62 3a 67 65 74 2d 68 65 61 64 65 72 20 72 75 6e b:get-header run
3a50: 69 6e 66 6f 29 28 64 62 3a 67 65 74 2d 72 6f 77 info)(db:get-row
3a60: 20 72 75 6e 69 6e 66 6f 29 29 0a 28 64 65 66 69 runinfo)).(defi
3a70: 6e 65 20 28 64 62 3a 67 65 74 2d 72 75 6e 2d 69 ne (db:get-run-i
3a80: 6e 66 6f 20 64 62 20 72 75 6e 2d 69 64 29 0a 20 nfo db run-id).
3a90: 20 28 6c 65 74 2a 20 28 28 72 65 73 20 20 20 20 (let* ((res
3aa0: 20 20 23 66 29 0a 09 20 28 6b 65 79 73 20 20 20 #f).. (keys
3ab0: 20 20 20 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 (db-get-keys
3ac0: 64 62 29 29 0a 09 20 28 72 65 6d 66 69 65 6c 64 db)).. (remfield
3ad0: 73 20 28 6c 69 73 74 20 22 69 64 22 20 22 72 75 s (list "id" "ru
3ae0: 6e 6e 61 6d 65 22 20 22 73 74 61 74 65 22 20 22 nname" "state" "
3af0: 73 74 61 74 75 73 22 20 22 6f 77 6e 65 72 22 20 status" "owner"
3b00: 22 65 76 65 6e 74 5f 74 69 6d 65 22 29 29 0a 09 "event_time"))..
3b10: 20 28 68 65 61 64 65 72 20 20 20 20 28 61 70 70 (header (app
3b20: 65 6e 64 20 28 6d 61 70 20 6b 65 79 3a 67 65 74 end (map key:get
3b30: 2d 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 29 -fieldname keys)
3b40: 0a 09 09 09 20 20 20 20 72 65 6d 66 69 65 6c 64 .... remfield
3b50: 73 29 29 0a 09 20 28 6b 65 79 73 74 72 20 20 20 s)).. (keystr
3b60: 20 28 63 6f 6e 63 20 28 6b 65 79 73 2d 3e 6b 65 (conc (keys->ke
3b70: 79 73 74 72 20 6b 65 79 73 29 20 22 2c 22 0a 09 ystr keys) ","..
3b80: 09 09 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 .. (string-inte
3b90: 72 73 70 65 72 73 65 20 72 65 6d 66 69 65 6c 64 rsperse remfield
3ba0: 73 20 22 2c 22 29 29 29 29 0a 20 20 20 20 3b 3b s ",")))). ;;
3bb0: 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 (debug:print 0
3bc0: 22 64 62 3a 67 65 74 2d 72 75 6e 2d 69 6e 66 6f "db:get-run-info
3bd0: 20 72 75 6e 2d 69 64 3a 20 22 20 72 75 6e 2d 69 run-id: " run-i
3be0: 64 20 22 20 68 65 61 64 65 72 3a 20 22 20 68 65 d " header: " he
3bf0: 61 64 65 72 20 22 20 6b 65 79 73 74 72 3a 20 22 ader " keystr: "
3c00: 20 6b 65 79 73 74 72 29 0a 20 20 20 20 28 73 71 keystr). (sq
3c10: 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 lite3:for-each-r
3c20: 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 ow. (lambda
3c30: 28 61 20 2e 20 78 29 0a 20 20 20 20 20 20 20 28 (a . x). (
3c40: 73 65 74 21 20 72 65 73 20 28 61 70 70 6c 79 20 set! res (apply
3c50: 76 65 63 74 6f 72 20 61 20 78 29 29 29 0a 20 20 vector a x))).
3c60: 20 20 20 64 62 0a 20 20 20 20 20 28 63 6f 6e 63 db. (conc
3c70: 20 22 53 45 4c 45 43 54 20 22 20 6b 65 79 73 74 "SELECT " keyst
3c80: 72 20 22 20 46 52 4f 4d 20 72 75 6e 73 20 57 48 r " FROM runs WH
3c90: 45 52 45 20 69 64 3d 3f 3b 22 29 0a 20 20 20 20 ERE id=?;").
3ca0: 20 72 75 6e 2d 69 64 29 0a 20 20 20 20 28 76 65 run-id). (ve
3cb0: 63 74 6f 72 20 68 65 61 64 65 72 20 72 65 73 29 ctor header res)
3cc0: 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ))..(define (db:
3cd0: 73 65 74 2d 63 6f 6d 6d 65 6e 74 2d 66 6f 72 2d set-comment-for-
3ce0: 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 20 63 6f run db run-id co
3cf0: 6d 6d 65 6e 74 29 0a 20 20 28 73 71 6c 69 74 65 mment). (sqlite
3d00: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 50 3:execute db "UP
3d10: 44 41 54 45 20 72 75 6e 73 20 53 45 54 20 63 6f DATE runs SET co
3d20: 6d 6d 65 6e 74 3d 3f 20 57 48 45 52 45 20 69 64 mment=? WHERE id
3d30: 3d 3f 3b 22 20 63 6f 6d 6d 65 6e 74 20 72 75 6e =?;" comment run
3d40: 2d 69 64 29 29 0a 0a 3b 3b 20 64 6f 65 73 20 6e -id))..;; does n
3d50: 6f 74 20 28 6f 62 76 69 6f 75 73 6c 79 21 29 20 ot (obviously!)
3d60: 72 65 6d 6f 76 65 64 20 64 65 70 65 6e 64 65 6e removed dependen
3d70: 74 20 64 61 74 61 2e 20 0a 28 64 65 66 69 6e 65 t data. .(define
3d80: 20 28 64 62 3a 64 65 6c 65 74 65 2d 72 75 6e 20 (db:delete-run
3d90: 64 62 20 72 75 6e 2d 69 64 29 0a 20 20 28 73 71 db run-id). (sq
3da0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
3db0: 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 72 75 "DELETE FROM ru
3dc0: 6e 73 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 ns WHERE id=?;"
3dd0: 72 75 6e 2d 69 64 29 29 0a 0a 28 64 65 66 69 6e run-id))..(defin
3de0: 65 20 28 64 62 3a 75 70 64 61 74 65 2d 72 75 6e e (db:update-run
3df0: 2d 65 76 65 6e 74 5f 74 69 6d 65 20 64 62 20 72 -event_time db r
3e00: 75 6e 2d 69 64 29 0a 20 20 28 73 71 6c 69 74 65 un-id). (sqlite
3e10: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 50 3:execute db "UP
3e20: 44 41 54 45 20 72 75 6e 73 20 53 45 54 20 65 76 DATE runs SET ev
3e30: 65 6e 74 5f 74 69 6d 65 3d 73 74 72 66 74 69 6d ent_time=strftim
3e40: 65 28 27 25 73 27 2c 27 6e 6f 77 27 29 20 57 48 e('%s','now') WH
3e50: 45 52 45 20 69 64 3d 3f 3b 22 20 72 75 6e 2d 69 ERE id=?;" run-i
3e60: 64 29 29 20 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d d)) ..;;========
3e70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3e80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3e90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ea0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b ==============.;
3eb0: 3b 20 20 54 20 45 20 53 20 54 20 53 0a 3b 3b 3d ; T E S T S.;;=
3ec0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ed0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ee0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ef0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f00: 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 73 74 61 74 65 73 =====..;; states
3f10: 20 61 6e 64 20 73 74 61 74 75 73 65 73 20 61 72 and statuses ar
3f20: 65 20 6c 69 73 74 73 2c 20 74 75 72 6e 20 74 68 e lists, turn th
3f30: 65 6d 20 69 6e 74 6f 20 28 22 50 41 53 53 22 2c em into ("PASS",
3f40: 22 46 41 49 4c 22 2e 2e 2e 29 20 61 6e 64 20 75 "FAIL"...) and u
3f50: 73 65 20 4e 4f 54 20 49 4e 0a 3b 3b 20 69 2e 65 se NOT IN.;; i.e
3f60: 2e 20 74 68 65 73 65 20 6c 69 73 74 73 20 64 65 . these lists de
3f70: 66 69 6e 65 20 77 68 61 74 20 74 6f 20 4e 4f 54 fine what to NOT
3f80: 20 73 68 6f 77 2e 0a 3b 3b 20 73 74 61 74 65 73 show..;; states
3f90: 20 61 6e 64 20 73 74 61 74 75 73 65 73 20 61 72 and statuses ar
3fa0: 65 20 72 65 71 75 69 72 65 64 20 74 6f 20 62 65 e required to be
3fb0: 20 6c 69 73 74 73 2c 20 65 6d 70 74 79 20 69 73 lists, empty is
3fc0: 20 6f 6b 0a 28 64 65 66 69 6e 65 20 28 64 62 2d ok.(define (db-
3fd0: 67 65 74 2d 74 65 73 74 73 2d 66 6f 72 2d 72 75 get-tests-for-ru
3fe0: 6e 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 n db run-id test
3ff0: 70 61 74 74 20 69 74 65 6d 70 61 74 74 20 73 74 patt itempatt st
4000: 61 74 65 73 20 73 74 61 74 75 73 65 73 29 0a 20 ates statuses).
4010: 20 28 6c 65 74 20 28 28 72 65 73 20 27 28 29 29 (let ((res '())
4020: 0a 09 28 73 74 61 74 65 73 2d 73 74 72 20 20 20 ..(states-str
4030: 20 28 63 6f 6e 63 20 22 28 27 22 20 28 73 74 72 (conc "('" (str
4040: 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 20 ing-intersperse
4050: 73 74 61 74 65 73 20 20 20 22 27 2c 27 22 29 20 states "','")
4060: 22 27 29 22 29 29 0a 09 28 73 74 61 74 75 73 65 "')"))..(statuse
4070: 73 2d 73 74 72 20 20 28 63 6f 6e 63 20 22 28 27 s-str (conc "('
4080: 22 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 " (string-inters
4090: 70 65 72 73 65 20 73 74 61 74 75 73 65 73 20 22 perse statuses "
40a0: 27 2c 27 22 29 20 22 27 29 22 29 29 0a 09 29 0a ','") "')"))..).
40b0: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 (sqlite3:for
40c0: 2d 65 61 63 68 2d 72 6f 77 20 0a 20 20 20 20 20 -each-row .
40d0: 28 6c 61 6d 62 64 61 20 28 61 20 2e 20 62 29 20 (lambda (a . b)
40e0: 3b 3b 20 69 64 20 72 75 6e 2d 69 64 20 74 65 73 ;; id run-id tes
40f0: 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 tname state stat
4100: 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f us event-time ho
4110: 73 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 st cpuload diskf
4120: 72 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 ree uname rundir
4130: 20 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 2d 64 item-path run-d
4140: 75 72 61 74 69 6f 6e 20 66 69 6e 61 6c 2d 6c 6f uration final-lo
4150: 67 66 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 gf comment).
4160: 20 20 20 28 73 65 74 21 20 72 65 73 20 28 63 6f (set! res (co
4170: 6e 73 20 28 61 70 70 6c 79 20 76 65 63 74 6f 72 ns (apply vector
4180: 20 61 20 62 29 20 72 65 73 29 29 29 20 3b 3b 20 a b) res))) ;;
4190: 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 id run-id testna
41a0: 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 73 20 me state status
41b0: 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 74 20 event-time host
41c0: 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 65 65 cpuload diskfree
41d0: 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 69 74 uname rundir it
41e0: 65 6d 2d 70 61 74 68 20 72 75 6e 2d 64 75 72 61 em-path run-dura
41f0: 74 69 6f 6e 20 66 69 6e 61 6c 2d 6c 6f 67 66 20 tion final-logf
4200: 63 6f 6d 6d 65 6e 74 29 20 72 65 73 29 29 29 0a comment) res))).
4210: 20 20 20 20 20 64 62 20 0a 20 20 20 20 20 28 63 db . (c
4220: 6f 6e 63 20 22 53 45 4c 45 43 54 20 69 64 2c 72 onc "SELECT id,r
4230: 75 6e 5f 69 64 2c 74 65 73 74 6e 61 6d 65 2c 73 un_id,testname,s
4240: 74 61 74 65 2c 73 74 61 74 75 73 2c 65 76 65 6e tate,status,even
4250: 74 5f 74 69 6d 65 2c 68 6f 73 74 2c 63 70 75 6c t_time,host,cpul
4260: 6f 61 64 2c 64 69 73 6b 66 72 65 65 2c 75 6e 61 oad,diskfree,una
4270: 6d 65 2c 72 75 6e 64 69 72 2c 69 74 65 6d 5f 70 me,rundir,item_p
4280: 61 74 68 2c 72 75 6e 5f 64 75 72 61 74 69 6f 6e ath,run_duration
4290: 2c 66 69 6e 61 6c 5f 6c 6f 67 66 2c 63 6f 6d 6d ,final_logf,comm
42a0: 65 6e 74 20 22 0a 09 20 20 20 22 20 46 52 4f 4d ent ".. " FROM
42b0: 20 74 65 73 74 73 20 57 48 45 52 45 20 72 75 6e tests WHERE run
42c0: 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e 61 _id=? AND testna
42d0: 6d 65 20 6c 69 6b 65 20 3f 20 41 4e 44 20 69 74 me like ? AND it
42e0: 65 6d 5f 70 61 74 68 20 4c 49 4b 45 20 3f 20 22 em_path LIKE ? "
42f0: 20 0a 09 20 20 20 22 20 41 4e 44 20 4e 4f 54 20 .. " AND NOT
4300: 28 73 74 61 74 65 20 69 6e 20 22 20 73 74 61 74 (state in " stat
4310: 65 73 2d 73 74 72 20 22 20 41 4e 44 20 73 74 61 es-str " AND sta
4320: 74 75 73 20 49 4e 20 22 20 73 74 61 74 75 73 65 tus IN " statuse
4330: 73 2d 73 74 72 20 22 29 20 22 0a 09 20 20 20 3b s-str ") ".. ;
4340: 3b 20 22 20 4f 52 44 45 52 20 42 59 20 69 64 20 ; " ORDER BY id
4350: 44 45 53 43 3b 22 0a 09 20 20 20 22 20 4f 52 44 DESC;".. " ORD
4360: 45 52 20 42 59 20 65 76 65 6e 74 5f 74 69 6d 65 ER BY event_time
4370: 20 41 53 43 3b 22 20 3b 3b 20 50 4f 54 45 4e 54 ASC;" ;; POTENT
4380: 49 41 4c 20 49 53 53 55 45 21 20 43 48 45 43 4b IAL ISSUE! CHECK
4390: 20 4d 45 21 20 44 6f 65 73 20 61 6e 79 74 69 6e ME! Does anytin
43a0: 67 20 64 65 70 65 6e 64 20 6f 6e 20 74 68 69 73 g depend on this
43b0: 20 62 65 69 6e 67 20 73 6f 72 74 65 64 20 62 79 being sorted by
43c0: 20 69 64 3f 0a 09 20 20 20 29 0a 20 20 20 20 20 id?.. ).
43d0: 72 75 6e 2d 69 64 0a 20 20 20 20 20 28 69 66 20 run-id. (if
43e0: 74 65 73 74 70 61 74 74 20 74 65 73 74 70 61 74 testpatt testpat
43f0: 74 20 22 25 22 29 0a 20 20 20 20 20 28 69 66 20 t "%"). (if
4400: 69 74 65 6d 70 61 74 74 20 69 74 65 6d 70 61 74 itempatt itempat
4410: 74 20 22 25 22 29 29 0a 20 20 20 20 72 65 73 29 t "%")). res)
4420: 29 0a 0a 3b 3b 20 74 68 69 73 20 6f 6e 65 20 69 )..;; this one i
4430: 73 20 61 20 62 69 74 20 62 72 6f 6b 65 6e 20 42 s a bit broken B
4440: 55 47 20 46 49 58 4d 45 0a 28 64 65 66 69 6e 65 UG FIXME.(define
4450: 20 28 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 (db:delete-test
4460: 2d 73 74 65 70 2d 72 65 63 6f 72 64 73 20 64 62 -step-records db
4470: 20 72 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 6d run-id test-nam
4480: 65 20 69 74 65 6d 64 61 74 29 0a 20 20 28 73 71 e itemdat). (sq
4490: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
44a0: 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 65 "DELETE FROM te
44b0: 73 74 5f 73 74 65 70 73 20 57 48 45 52 45 20 74 st_steps WHERE t
44c0: 65 73 74 5f 69 64 20 69 6e 20 28 53 45 4c 45 43 est_id in (SELEC
44d0: 54 20 69 64 20 46 52 4f 4d 20 74 65 73 74 73 20 T id FROM tests
44e0: 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 41 WHERE run_id=? A
44f0: 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 4e ND testname=? AN
4500: 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 29 3b 22 D item_path=?);"
4510: 20 0a 09 09 20 20 20 72 75 6e 2d 69 64 20 74 65 ... run-id te
4520: 73 74 2d 6e 61 6d 65 20 28 69 74 65 6d 2d 6c 69 st-name (item-li
4530: 73 74 2d 3e 70 61 74 68 20 69 74 65 6d 64 61 74 st->path itemdat
4540: 29 29 29 0a 3b 3b 20 0a 28 64 65 66 69 6e 65 20 ))).;; .(define
4550: 28 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 2d (db:delete-test-
4560: 72 65 63 6f 72 64 73 20 64 62 20 74 65 73 74 2d records db test-
4570: 69 64 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 id). (sqlite3:e
4580: 78 65 63 75 74 65 20 64 62 20 22 44 45 4c 45 54 xecute db "DELET
4590: 45 20 46 52 4f 4d 20 74 65 73 74 5f 73 74 65 70 E FROM test_step
45a0: 73 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 3d s WHERE test_id=
45b0: 3f 3b 22 20 74 65 73 74 2d 69 64 29 0a 20 20 28 ?;" test-id). (
45c0: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
45d0: 64 62 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 db "DELETE FROM
45e0: 74 65 73 74 5f 64 61 74 61 20 20 57 48 45 52 45 test_data WHERE
45f0: 20 74 65 73 74 5f 69 64 3d 3f 3b 22 20 74 65 73 test_id=?;" tes
4600: 74 2d 69 64 29 0a 20 20 28 73 71 6c 69 74 65 33 t-id). (sqlite3
4610: 3a 65 78 65 63 75 74 65 20 64 62 20 22 44 45 4c :execute db "DEL
4620: 45 54 45 20 46 52 4f 4d 20 74 65 73 74 73 20 57 ETE FROM tests W
4630: 48 45 52 45 20 69 64 3d 3f 3b 22 20 74 65 73 74 HERE id=?;" test
4640: 2d 69 64 29 29 0a 0a 3b 3b 20 73 65 74 20 74 65 -id))..;; set te
4650: 73 74 73 20 77 69 74 68 20 73 74 61 74 65 20 63 sts with state c
4660: 75 72 72 73 74 61 74 65 20 61 6e 64 20 73 74 61 urrstate and sta
4670: 74 75 73 20 63 75 72 72 73 74 61 74 75 73 20 74 tus currstatus t
4680: 6f 20 6e 65 77 73 74 61 74 65 20 61 6e 64 20 6e o newstate and n
4690: 65 77 73 74 61 74 75 73 0a 3b 3b 20 75 73 65 20 ewstatus.;; use
46a0: 63 75 72 72 73 74 61 74 65 20 3d 20 23 66 20 61 currstate = #f a
46b0: 6e 64 20 6f 72 20 63 75 72 72 73 74 61 74 75 73 nd or currstatus
46c0: 20 3d 20 23 66 20 74 6f 20 61 70 70 6c 79 20 74 = #f to apply t
46d0: 6f 20 61 6e 79 20 73 74 61 74 65 20 6f 72 20 73 o any state or s
46e0: 74 61 74 75 73 20 72 65 73 70 65 63 74 69 76 65 tatus respective
46f0: 6c 79 0a 3b 3b 20 57 41 52 4e 49 4e 47 3a 20 53 ly.;; WARNING: S
4700: 51 4c 20 69 6e 6a 65 63 74 69 6f 6e 20 72 69 73 QL injection ris
4710: 6b 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 73 65 k.(define (db:se
4720: 74 2d 74 65 73 74 73 2d 73 74 61 74 65 2d 73 74 t-tests-state-st
4730: 61 74 75 73 20 64 62 20 72 75 6e 2d 69 64 20 74 atus db run-id t
4740: 65 73 74 6e 61 6d 65 73 20 63 75 72 72 73 74 61 estnames currsta
4750: 74 65 20 63 75 72 72 73 74 61 74 75 73 20 6e 65 te currstatus ne
4760: 77 73 74 61 74 65 20 6e 65 77 73 74 61 74 75 73 wstate newstatus
4770: 29 0a 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c ). (for-each (l
4780: 61 6d 62 64 61 20 28 74 65 73 74 6e 61 6d 65 29 ambda (testname)
4790: 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 71 .. (let ((q
47a0: 72 79 20 28 63 6f 6e 63 20 22 55 50 44 41 54 45 ry (conc "UPDATE
47b0: 20 74 65 73 74 73 20 53 45 54 20 73 74 61 74 65 tests SET state
47c0: 3d 3f 2c 73 74 61 74 75 73 3d 3f 20 57 48 45 52 =?,status=? WHER
47d0: 45 20 22 0a 09 09 09 20 20 20 20 20 20 20 28 69 E ".... (i
47e0: 66 20 63 75 72 72 73 74 61 74 65 20 20 28 63 6f f currstate (co
47f0: 6e 63 20 22 73 74 61 74 65 3d 27 22 20 63 75 72 nc "state='" cur
4800: 72 73 74 61 74 65 20 22 27 20 41 4e 44 20 22 29 rstate "' AND ")
4810: 20 22 22 29 0a 09 09 09 20 20 20 20 20 20 20 28 "").... (
4820: 69 66 20 63 75 72 72 73 74 61 74 75 73 20 28 63 if currstatus (c
4830: 6f 6e 63 20 22 73 74 61 74 75 73 3d 27 22 20 63 onc "status='" c
4840: 75 72 72 73 74 61 74 75 73 20 22 27 20 41 4e 44 urrstatus "' AND
4850: 20 22 29 20 22 22 29 0a 09 09 09 20 20 20 20 20 ") "")....
4860: 20 20 22 20 72 75 6e 5f 69 64 3d 3f 20 41 4e 44 " run_id=? AND
4870: 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 4e 44 20 testname=? AND
4880: 4e 4f 54 20 28 69 74 65 6d 5f 70 61 74 68 3d 27 NOT (item_path='
4890: 27 20 41 4e 44 20 74 65 73 74 6e 61 6d 65 20 69 ' AND testname i
48a0: 6e 20 28 53 45 4c 45 43 54 20 44 49 53 54 49 4e n (SELECT DISTIN
48b0: 43 54 20 74 65 73 74 6e 61 6d 65 20 46 52 4f 4d CT testname FROM
48c0: 20 74 65 73 74 73 20 57 48 45 52 45 20 74 65 73 tests WHERE tes
48d0: 74 6e 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d tname=? AND item
48e0: 5f 70 61 74 68 20 21 3d 20 27 27 29 29 3b 22 29 _path != ''));")
48f0: 29 29 0a 09 09 3b 3b 28 64 65 62 75 67 3a 70 72 ))...;;(debug:pr
4900: 69 6e 74 20 30 20 22 51 52 59 3a 20 22 20 71 72 int 0 "QRY: " qr
4910: 79 29 0a 09 09 28 73 71 6c 69 74 65 33 3a 65 78 y)...(sqlite3:ex
4920: 65 63 75 74 65 20 64 62 20 71 72 79 20 72 75 6e ecute db qry run
4930: 2d 69 64 20 6e 65 77 73 74 61 74 65 20 6e 65 77 -id newstate new
4940: 73 74 61 74 75 73 20 74 65 73 74 6e 61 6d 65 20 status testname
4950: 74 65 73 74 6e 61 6d 65 29 29 29 0a 09 20 20 20 testname)))..
4960: 20 74 65 73 74 6e 61 6d 65 73 29 29 0a 0a 28 64 testnames))..(d
4970: 65 66 69 6e 65 20 28 64 62 3a 64 65 6c 65 74 65 efine (db:delete
4980: 2d 74 65 73 74 73 2d 69 6e 2d 73 74 61 74 65 20 -tests-in-state
4990: 64 62 20 72 75 6e 2d 69 64 20 73 74 61 74 65 29 db run-id state)
49a0: 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
49b0: 75 74 65 20 64 62 20 22 44 45 4c 45 54 45 20 46 ute db "DELETE F
49c0: 52 4f 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 ROM tests WHERE
49d0: 73 74 61 74 65 3d 3f 20 41 4e 44 20 72 75 6e 5f state=? AND run_
49e0: 69 64 3d 3f 3b 22 20 73 74 61 74 65 20 72 75 6e id=?;" state run
49f0: 2d 69 64 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 -id))..(define (
4a00: 64 62 3a 74 65 73 74 2d 73 65 74 2d 73 74 61 74 db:test-set-stat
4a10: 65 2d 73 74 61 74 75 73 2d 62 79 2d 69 64 20 64 e-status-by-id d
4a20: 62 20 74 65 73 74 2d 69 64 20 6e 65 77 73 74 61 b test-id newsta
4a30: 74 65 20 6e 65 77 73 74 61 74 75 73 20 6e 65 77 te newstatus new
4a40: 63 6f 6d 6d 65 6e 74 29 0a 20 20 28 69 66 20 6e comment). (if n
4a50: 65 77 73 74 61 74 65 20 20 20 28 73 71 6c 69 74 ewstate (sqlit
4a60: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 e3:execute db "U
4a70: 50 44 41 54 45 20 74 65 73 74 73 20 53 45 54 20 PDATE tests SET
4a80: 73 74 61 74 65 3d 3f 20 20 20 57 48 45 52 45 20 state=? WHERE
4a90: 69 64 3d 3f 3b 22 20 6e 65 77 73 74 61 74 65 20 id=?;" newstate
4aa0: 20 20 74 65 73 74 2d 69 64 29 29 0a 20 20 28 69 test-id)). (i
4ab0: 66 20 6e 65 77 73 74 61 74 75 73 20 20 28 73 71 f newstatus (sq
4ac0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
4ad0: 20 22 55 50 44 41 54 45 20 74 65 73 74 73 20 53 "UPDATE tests S
4ae0: 45 54 20 73 74 61 74 75 73 3d 3f 20 20 57 48 45 ET status=? WHE
4af0: 52 45 20 69 64 3d 3f 3b 22 20 6e 65 77 73 74 61 RE id=?;" newsta
4b00: 74 75 73 20 20 74 65 73 74 2d 69 64 29 29 0a 20 tus test-id)).
4b10: 20 28 69 66 20 6e 65 77 63 6f 6d 6d 65 6e 74 20 (if newcomment
4b20: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
4b30: 20 64 62 20 22 55 50 44 41 54 45 20 74 65 73 74 db "UPDATE test
4b40: 73 20 53 45 54 20 63 6f 6d 6d 65 6e 74 3d 3f 20 s SET comment=?
4b50: 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 6e 65 77 WHERE id=?;" new
4b60: 63 6f 6d 6d 65 6e 74 20 74 65 73 74 2d 69 64 29 comment test-id)
4b70: 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ))..(define (db:
4b80: 67 65 74 2d 63 6f 75 6e 74 2d 74 65 73 74 73 2d get-count-tests-
4b90: 72 75 6e 6e 69 6e 67 20 64 62 29 0a 20 20 28 6c running db). (l
4ba0: 65 74 20 28 28 72 65 73 20 30 29 29 0a 20 20 20 et ((res 0)).
4bb0: 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 (sqlite3:for-ea
4bc0: 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d ch-row. (lam
4bd0: 62 64 61 20 28 63 6f 75 6e 74 29 0a 20 20 20 20 bda (count).
4be0: 20 20 20 28 73 65 74 21 20 72 65 73 20 63 6f 75 (set! res cou
4bf0: 6e 74 29 29 0a 20 20 20 20 20 64 62 0a 20 20 20 nt)). db.
4c00: 20 20 22 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 "SELECT count(
4c10: 69 64 29 20 46 52 4f 4d 20 74 65 73 74 73 20 57 id) FROM tests W
4c20: 48 45 52 45 20 73 74 61 74 65 20 3d 20 27 52 55 HERE state = 'RU
4c30: 4e 4e 49 4e 47 27 20 4f 52 20 73 74 61 74 65 20 NNING' OR state
4c40: 3d 20 27 4c 41 55 4e 43 48 45 44 27 20 4f 52 20 = 'LAUNCHED' OR
4c50: 73 74 61 74 65 20 3d 20 27 52 45 4d 4f 54 45 48 state = 'REMOTEH
4c60: 4f 53 54 53 54 41 52 54 27 3b 22 29 0a 20 20 20 OSTSTART';").
4c70: 20 72 65 73 29 29 0a 0a 28 64 65 66 69 6e 65 20 res))..(define
4c80: 28 64 62 3a 67 65 74 2d 63 6f 75 6e 74 2d 74 65 (db:get-count-te
4c90: 73 74 73 2d 72 75 6e 6e 69 6e 67 2d 69 6e 2d 6a sts-running-in-j
4ca0: 6f 62 67 72 6f 75 70 20 64 62 20 6a 6f 62 67 72 obgroup db jobgr
4cb0: 6f 75 70 29 0a 20 20 28 69 66 20 28 6e 6f 74 20 oup). (if (not
4cc0: 6a 6f 62 67 72 6f 75 70 29 0a 20 20 20 20 20 20 jobgroup).
4cd0: 30 20 3b 3b 20 0a 20 20 20 20 20 20 28 6c 65 74 0 ;; . (let
4ce0: 20 28 28 72 65 73 20 30 29 29 0a 09 28 73 71 6c ((res 0))..(sql
4cf0: 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f ite3:for-each-ro
4d00: 77 0a 09 20 28 6c 61 6d 62 64 61 20 28 63 6f 75 w.. (lambda (cou
4d10: 6e 74 29 0a 09 20 20 20 28 73 65 74 21 20 72 65 nt).. (set! re
4d20: 73 20 63 6f 75 6e 74 29 29 0a 09 20 64 62 0a 09 s count)).. db..
4d30: 20 22 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 69 "SELECT count(i
4d40: 64 29 20 46 52 4f 4d 20 74 65 73 74 73 20 57 48 d) FROM tests WH
4d50: 45 52 45 20 73 74 61 74 65 20 3d 20 27 52 55 4e ERE state = 'RUN
4d60: 4e 49 4e 47 27 20 4f 52 20 73 74 61 74 65 20 3d NING' OR state =
4d70: 20 27 4c 41 55 4e 43 48 45 44 27 20 4f 52 20 73 'LAUNCHED' OR s
4d80: 74 61 74 65 20 3d 20 27 52 45 4d 4f 54 45 48 4f tate = 'REMOTEHO
4d90: 53 54 53 54 41 52 54 27 0a 20 20 20 20 20 20 20 STSTART'.
4da0: 20 20 20 20 20 20 41 4e 44 20 74 65 73 74 6e 61 AND testna
4db0: 6d 65 20 69 6e 20 28 53 45 4c 45 43 54 20 74 65 me in (SELECT te
4dc0: 73 74 6e 61 6d 65 20 46 52 4f 4d 20 74 65 73 74 stname FROM test
4dd0: 5f 6d 65 74 61 20 57 48 45 52 45 20 6a 6f 62 67 _meta WHERE jobg
4de0: 72 6f 75 70 3d 3f 3b 22 0a 09 20 6a 6f 62 67 72 roup=?;".. jobgr
4df0: 6f 75 70 29 0a 09 72 65 73 29 29 29 0a 0a 3b 3b oup)..res)))..;;
4e00: 20 64 6f 6e 65 20 77 69 74 68 20 72 75 6e 20 77 done with run w
4e10: 68 65 6e 3a 0a 3b 3b 20 20 20 30 20 74 65 73 74 hen:.;; 0 test
4e20: 73 20 69 6e 20 4c 41 55 4e 43 48 45 44 2c 20 4e s in LAUNCHED, N
4e30: 4f 54 5f 53 54 41 52 54 45 44 2c 20 52 45 4d 4f OT_STARTED, REMO
4e40: 54 45 48 4f 53 54 53 54 41 52 54 2c 20 52 55 4e TEHOSTSTART, RUN
4e50: 4e 49 4e 47 0a 28 64 65 66 69 6e 65 20 28 64 62 NING.(define (db
4e60: 3a 65 73 74 69 6d 61 74 65 64 2d 74 65 73 74 73 :estimated-tests
4e70: 2d 72 65 6d 61 69 6e 69 6e 67 20 64 62 20 72 75 -remaining db ru
4e80: 6e 2d 69 64 29 0a 20 20 28 6c 65 74 20 28 28 72 n-id). (let ((r
4e90: 65 73 20 30 29 29 0a 20 20 20 20 28 73 71 6c 69 es 0)). (sqli
4ea0: 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 te3:for-each-row
4eb0: 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 . (lambda (c
4ec0: 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 28 73 65 ount). (se
4ed0: 74 21 20 72 65 73 20 63 6f 75 6e 74 29 29 0a 20 t! res count)).
4ee0: 20 20 20 20 64 62 20 3b 3b 20 4e 42 2f 2f 20 4b db ;; NB// K
4ef0: 49 4c 4c 52 45 51 20 6d 65 61 6e 73 20 74 68 65 ILLREQ means the
4f00: 20 6a 6f 62 73 20 69 73 20 73 74 69 6c 6c 20 70 jobs is still p
4f10: 72 6f 62 61 62 6c 79 20 72 75 6e 6e 69 6e 67 0a robably running.
4f20: 20 20 20 20 20 22 53 45 4c 45 43 54 20 63 6f 75 "SELECT cou
4f30: 6e 74 28 69 64 29 20 46 52 4f 4d 20 74 65 73 74 nt(id) FROM test
4f40: 73 20 57 48 45 52 45 20 73 74 61 74 65 20 69 6e s WHERE state in
4f50: 20 28 27 4c 41 55 4e 43 48 45 44 27 2c 27 4e 4f ('LAUNCHED','NO
4f60: 54 5f 53 54 41 52 54 45 44 27 2c 27 52 45 4d 4f T_STARTED','REMO
4f70: 54 45 48 4f 53 54 53 54 41 52 54 27 2c 27 52 55 TEHOSTSTART','RU
4f80: 4e 4e 49 4e 47 27 2c 27 4b 49 4c 4c 52 45 51 27 NNING','KILLREQ'
4f90: 29 20 41 4e 44 20 72 75 6e 5f 69 64 3d 3f 3b 22 ) AND run_id=?;"
4fa0: 20 72 75 6e 2d 69 64 29 0a 20 20 20 20 72 65 73 run-id). res
4fb0: 29 29 0a 0a 3b 3b 20 4e 42 2f 2f 20 53 79 6e 63 ))..;; NB// Sync
4fc0: 20 74 68 69 73 20 77 69 74 68 20 72 75 6e 73 3a this with runs:
4fd0: 67 65 74 2d 74 65 73 74 2d 69 6e 66 6f 0a 28 64 get-test-info.(d
4fe0: 65 66 69 6e 65 20 28 64 62 3a 67 65 74 2d 74 65 efine (db:get-te
4ff0: 73 74 2d 69 6e 66 6f 20 64 62 20 72 75 6e 2d 69 st-info db run-i
5000: 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 6d 2d d testname item-
5010: 70 61 74 68 29 0a 20 20 28 6c 65 74 20 28 28 72 path). (let ((r
5020: 65 73 20 23 66 29 29 0a 20 20 20 20 28 73 71 6c es #f)). (sql
5030: 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f ite3:for-each-ro
5040: 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 w. (lambda (
5050: 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 id run-id testna
5060: 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 73 20 me state status
5070: 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 74 20 event-time host
5080: 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 65 65 cpuload diskfree
5090: 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 69 74 uname rundir it
50a0: 65 6d 2d 70 61 74 68 20 72 75 6e 5f 64 75 72 61 em-path run_dura
50b0: 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f 67 66 20 tion final_logf
50c0: 63 6f 6d 6d 65 6e 74 20 29 0a 20 20 20 20 20 20 comment ).
50d0: 20 28 73 65 74 21 20 72 65 73 20 28 76 65 63 74 (set! res (vect
50e0: 6f 72 20 69 64 20 72 75 6e 2d 69 64 20 74 65 73 or id run-id tes
50f0: 74 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 tname state stat
5100: 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f us event-time ho
5110: 73 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 st cpuload diskf
5120: 72 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 ree uname rundir
5130: 20 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 5f 64 item-path run_d
5140: 75 72 61 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f uration final_lo
5150: 67 66 20 63 6f 6d 6d 65 6e 74 20 29 29 29 0a 20 gf comment ))).
5160: 20 20 20 20 64 62 20 0a 20 20 20 20 20 22 53 45 db . "SE
5170: 4c 45 43 54 20 69 64 2c 72 75 6e 5f 69 64 2c 74 LECT id,run_id,t
5180: 65 73 74 6e 61 6d 65 2c 73 74 61 74 65 2c 73 74 estname,state,st
5190: 61 74 75 73 2c 65 76 65 6e 74 5f 74 69 6d 65 2c atus,event_time,
51a0: 68 6f 73 74 2c 63 70 75 6c 6f 61 64 2c 64 69 73 host,cpuload,dis
51b0: 6b 66 72 65 65 2c 75 6e 61 6d 65 2c 72 75 6e 64 kfree,uname,rund
51c0: 69 72 2c 69 74 65 6d 5f 70 61 74 68 2c 72 75 6e ir,item_path,run
51d0: 5f 64 75 72 61 74 69 6f 6e 2c 66 69 6e 61 6c 5f _duration,final_
51e0: 6c 6f 67 66 2c 63 6f 6d 6d 65 6e 74 20 46 52 4f logf,comment FRO
51f0: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 72 75 M tests WHERE ru
5200: 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e n_id=? AND testn
5210: 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f 70 ame=? AND item_p
5220: 61 74 68 3d 3f 3b 22 0a 20 20 20 20 20 72 75 6e ath=?;". run
5230: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
5240: 6d 2d 70 61 74 68 29 0a 20 20 20 20 72 65 73 29 m-path). res)
5250: 29 0a 0a 3b 3b 20 47 65 74 20 74 65 73 74 20 64 )..;; Get test d
5260: 61 74 61 20 75 73 69 6e 67 20 74 65 73 74 5f 69 ata using test_i
5270: 64 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 d.(define (db:ge
5280: 74 2d 74 65 73 74 2d 64 61 74 61 2d 62 79 2d 69 t-test-data-by-i
5290: 64 20 64 62 20 74 65 73 74 2d 69 64 29 0a 20 20 d db test-id).
52a0: 28 6c 65 74 20 28 28 72 65 73 20 23 66 29 29 0a (let ((res #f)).
52b0: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 (sqlite3:for
52c0: 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 -each-row. (
52d0: 6c 61 6d 62 64 61 20 28 69 64 20 72 75 6e 2d 69 lambda (id run-i
52e0: 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 74 65 d testname state
52f0: 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 status event-ti
5300: 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 64 20 me host cpuload
5310: 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 20 72 diskfree uname r
5320: 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 68 20 undir item-path
5330: 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 69 6e run_duration fin
5340: 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e 74 29 al_logf comment)
5350: 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 . (set! re
5360: 73 20 28 76 65 63 74 6f 72 20 69 64 20 72 75 6e s (vector id run
5370: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 73 74 61 -id testname sta
5380: 74 65 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d te status event-
5390: 74 69 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 time host cpuloa
53a0: 64 20 64 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 d diskfree uname
53b0: 20 72 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 rundir item-pat
53c0: 68 20 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 h run_duration f
53d0: 69 6e 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e inal_logf commen
53e0: 74 29 29 29 0a 20 20 20 20 20 64 62 20 0a 20 20 t))). db .
53f0: 20 20 20 22 53 45 4c 45 43 54 20 69 64 2c 72 75 "SELECT id,ru
5400: 6e 5f 69 64 2c 74 65 73 74 6e 61 6d 65 2c 73 74 n_id,testname,st
5410: 61 74 65 2c 73 74 61 74 75 73 2c 65 76 65 6e 74 ate,status,event
5420: 5f 74 69 6d 65 2c 68 6f 73 74 2c 63 70 75 6c 6f _time,host,cpulo
5430: 61 64 2c 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d ad,diskfree,unam
5440: 65 2c 72 75 6e 64 69 72 2c 69 74 65 6d 5f 70 61 e,rundir,item_pa
5450: 74 68 2c 72 75 6e 5f 64 75 72 61 74 69 6f 6e 2c th,run_duration,
5460: 66 69 6e 61 6c 5f 6c 6f 67 66 2c 63 6f 6d 6d 65 final_logf,comme
5470: 6e 74 20 46 52 4f 4d 20 74 65 73 74 73 20 57 48 nt FROM tests WH
5480: 45 52 45 20 69 64 3d 3f 3b 22 0a 20 20 20 20 20 ERE id=?;".
5490: 74 65 73 74 2d 69 64 29 0a 20 20 20 20 72 65 73 test-id). res
54a0: 29 29 0a 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 ))...(define (db
54b0: 3a 74 65 73 74 2d 73 65 74 2d 63 6f 6d 6d 65 6e :test-set-commen
54c0: 74 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 t db run-id test
54d0: 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 63 name item-path c
54e0: 6f 6d 6d 65 6e 74 29 0a 20 20 28 73 71 6c 69 74 omment). (sqlit
54f0: 65 33 3a 65 78 65 63 75 74 65 20 0a 20 20 20 64 e3:execute . d
5500: 62 20 0a 20 20 20 22 55 50 44 41 54 45 20 74 65 b . "UPDATE te
5510: 73 74 73 20 53 45 54 20 63 6f 6d 6d 65 6e 74 3d sts SET comment=
5520: 3f 20 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f ? WHERE run_id=?
5530: 20 41 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 AND testname=?
5540: 41 4e 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 3b AND item_path=?;
5550: 22 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 72 75 6e ". comment run
5560: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
5570: 6d 2d 70 61 74 68 29 29 0a 0a 3b 3b 0a 28 64 65 m-path))..;;.(de
5580: 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 65 fine (db:test-se
5590: 74 2d 72 75 6e 64 69 72 21 20 64 62 20 72 75 6e t-rundir! db run
55a0: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
55b0: 6d 2d 70 61 74 68 20 72 75 6e 64 69 72 29 0a 20 m-path rundir).
55c0: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
55d0: 65 20 0a 20 20 20 64 62 20 0a 20 20 20 22 55 50 e . db . "UP
55e0: 44 41 54 45 20 74 65 73 74 73 20 53 45 54 20 72 DATE tests SET r
55f0: 75 6e 64 69 72 3d 3f 20 57 48 45 52 45 20 72 75 undir=? WHERE ru
5600: 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 6e n_id=? AND testn
5610: 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f 70 ame=? AND item_p
5620: 61 74 68 3d 3f 3b 22 0a 20 20 20 72 75 6e 64 69 ath=?;". rundi
5630: 72 20 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d r run-id testnam
5640: 65 20 69 74 65 6d 2d 70 61 74 68 29 29 0a 0a 3b e item-path))..;
5650: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;===============
5660: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5670: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5690: 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 4d 69 73 63 2e =======.;; Misc.
56a0: 20 74 65 73 74 20 72 65 6c 61 74 65 64 20 71 75 test related qu
56b0: 65 72 69 65 73 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d eries.;;========
56c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
56d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
56e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
56f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a ==============..
5700: 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 (define (db:test
5710: 2d 67 65 74 2d 70 61 74 68 73 2d 6d 61 74 63 68 -get-paths-match
5720: 69 6e 67 20 64 62 20 6b 65 79 6e 61 6d 65 73 20 ing db keynames
5730: 74 61 72 67 65 74 29 0a 20 20 28 6c 65 74 2a 20 target). (let*
5740: 28 28 72 65 73 20 27 28 29 29 0a 09 20 28 69 74 ((res '()).. (it
5750: 65 6d 70 61 74 74 20 20 20 28 69 66 20 28 61 72 empatt (if (ar
5760: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 69 74 65 gs:get-arg "-ite
5770: 6d 70 61 74 74 22 29 28 61 72 67 73 3a 67 65 74 mpatt")(args:get
5780: 2d 61 72 67 20 22 2d 69 74 65 6d 70 61 74 74 22 -arg "-itempatt"
5790: 29 20 22 25 22 29 29 0a 09 20 28 74 65 73 74 70 ) "%")).. (testp
57a0: 61 74 74 20 20 20 28 69 66 20 28 61 72 67 73 3a att (if (args:
57b0: 67 65 74 2d 61 72 67 20 22 2d 74 65 73 74 70 61 get-arg "-testpa
57c0: 74 74 22 29 28 61 72 67 73 3a 67 65 74 2d 61 72 tt")(args:get-ar
57d0: 67 20 22 2d 74 65 73 74 70 61 74 74 22 29 20 22 g "-testpatt") "
57e0: 25 22 29 29 0a 09 20 28 73 74 61 74 65 70 61 74 %")).. (statepat
57f0: 74 20 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 t (if (args:get
5800: 2d 61 72 67 20 22 3a 73 74 61 74 65 22 29 20 20 -arg ":state")
5810: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
5820: 3a 73 74 61 74 65 22 29 20 20 20 20 22 25 22 29 :state") "%")
5830: 29 0a 09 20 28 73 74 61 74 75 73 70 61 74 74 20 ).. (statuspatt
5840: 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (if (args:get-ar
5850: 67 20 22 3a 73 74 61 74 75 73 22 29 20 20 28 61 g ":status") (a
5860: 72 67 73 3a 67 65 74 2d 61 72 67 20 22 3a 73 74 rgs:get-arg ":st
5870: 61 74 75 73 22 29 20 20 20 22 25 22 29 29 0a 09 atus") "%"))..
5880: 20 28 72 75 6e 6e 61 6d 65 20 20 20 20 28 69 66 (runname (if
5890: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
58a0: 3a 72 75 6e 6e 61 6d 65 22 29 20 28 61 72 67 73 :runname") (args
58b0: 3a 67 65 74 2d 61 72 67 20 22 3a 72 75 6e 6e 61 :get-arg ":runna
58c0: 6d 65 22 29 20 20 22 25 22 29 29 0a 09 20 28 6b me") "%")).. (k
58d0: 65 79 73 74 72 20 28 73 74 72 69 6e 67 2d 69 6e eystr (string-in
58e0: 74 65 72 73 70 65 72 73 65 20 0a 09 09 20 20 28 tersperse ... (
58f0: 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 map (lambda (key
5900: 20 76 61 6c 29 0a 09 09 09 20 28 63 6f 6e 63 20 val).... (conc
5910: 22 72 2e 22 20 6b 65 79 20 22 20 6c 69 6b 65 20 "r." key " like
5920: 27 22 20 76 61 6c 20 22 27 22 29 29 0a 09 09 20 '" val "'"))...
5930: 20 20 20 20 20 20 6b 65 79 6e 61 6d 65 73 20 0a keynames .
5940: 09 09 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 .. (string
5950: 2d 73 70 6c 69 74 20 74 61 72 67 65 74 20 22 2f -split target "/
5960: 22 29 29 0a 09 09 20 20 22 20 41 4e 44 20 22 29 "))... " AND ")
5970: 29 0a 09 20 28 71 72 79 73 74 72 20 28 63 6f 6e ).. (qrystr (con
5980: 63 20 22 53 45 4c 45 43 54 20 74 2e 72 75 6e 64 c "SELECT t.rund
5990: 69 72 20 46 52 4f 4d 20 74 65 73 74 73 20 41 53 ir FROM tests AS
59a0: 20 74 20 49 4e 4e 45 52 20 4a 4f 49 4e 20 72 75 t INNER JOIN ru
59b0: 6e 73 20 41 53 20 72 20 4f 4e 20 74 2e 72 75 6e ns AS r ON t.run
59c0: 5f 69 64 3d 72 2e 69 64 20 57 48 45 52 45 20 22 _id=r.id WHERE "
59d0: 0a 09 09 20 20 20 20 20 20 20 6b 65 79 73 74 72 ... keystr
59e0: 20 22 20 41 4e 44 20 72 2e 72 75 6e 6e 61 6d 65 " AND r.runname
59f0: 20 4c 49 4b 45 20 27 22 20 72 75 6e 6e 61 6d 65 LIKE '" runname
5a00: 20 22 27 20 41 4e 44 20 69 74 65 6d 5f 70 61 74 "' AND item_pat
5a10: 68 20 4c 49 4b 45 20 27 22 20 69 74 65 6d 70 61 h LIKE '" itempa
5a20: 74 74 20 22 27 20 41 4e 44 20 74 65 73 74 6e 61 tt "' AND testna
5a30: 6d 65 20 4c 49 4b 45 20 27 22 0a 09 09 20 20 20 me LIKE '"...
5a40: 20 20 20 20 74 65 73 74 70 61 74 74 20 22 27 20 testpatt "'
5a50: 41 4e 44 20 74 2e 73 74 61 74 65 20 4c 49 4b 45 AND t.state LIKE
5a60: 20 27 22 20 73 74 61 74 65 70 61 74 74 20 22 27 '" statepatt "'
5a70: 20 41 4e 44 20 74 2e 73 74 61 74 75 73 20 4c 49 AND t.status LI
5a80: 4b 45 20 27 22 20 73 74 61 74 75 73 70 61 74 74 KE '" statuspatt
5a90: 20 0a 09 09 20 20 20 20 20 20 20 22 27 4f 52 44 ... "'ORD
5aa0: 45 52 20 42 59 20 74 2e 65 76 65 6e 74 5f 74 69 ER BY t.event_ti
5ab0: 6d 65 20 41 53 43 3b 22 29 29 29 0a 20 20 20 20 me ASC;"))).
5ac0: 28 64 65 62 75 67 3a 70 72 69 6e 74 20 33 20 22 (debug:print 3 "
5ad0: 71 72 79 73 74 72 3a 20 22 20 71 72 79 73 74 72 qrystr: " qrystr
5ae0: 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 ). (sqlite3:f
5af0: 6f 72 2d 65 61 63 68 2d 72 6f 77 20 0a 20 20 20 or-each-row .
5b00: 20 20 28 6c 61 6d 62 64 61 20 28 70 29 0a 20 20 (lambda (p).
5b10: 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 28 (set! res (
5b20: 63 6f 6e 73 20 70 20 72 65 73 29 29 29 0a 20 20 cons p res))).
5b30: 20 20 20 64 62 20 0a 20 20 20 20 20 71 72 79 73 db . qrys
5b40: 74 72 29 0a 20 20 20 20 72 65 73 29 29 0a 0a 28 tr). res))..(
5b50: 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 2d define (db:test-
5b60: 67 65 74 2d 74 65 73 74 2d 72 65 63 6f 72 64 73 get-test-records
5b70: 2d 6d 61 74 63 68 69 6e 67 20 64 62 20 6b 65 79 -matching db key
5b80: 6e 61 6d 65 73 20 74 61 72 67 65 74 29 0a 20 20 names target).
5b90: 28 6c 65 74 2a 20 28 28 72 65 73 20 27 28 29 29 (let* ((res '())
5ba0: 0a 09 20 28 69 74 65 6d 70 61 74 74 20 20 20 28 .. (itempatt (
5bb0: 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 if (args:get-arg
5bc0: 20 22 2d 69 74 65 6d 70 61 74 74 22 29 28 61 72 "-itempatt")(ar
5bd0: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 69 74 65 gs:get-arg "-ite
5be0: 6d 70 61 74 74 22 29 20 22 25 22 29 29 0a 09 20 mpatt") "%"))..
5bf0: 28 74 65 73 74 70 61 74 74 20 20 20 28 69 66 20 (testpatt (if
5c00: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d (args:get-arg "-
5c10: 74 65 73 74 70 61 74 74 22 29 28 61 72 67 73 3a testpatt")(args:
5c20: 67 65 74 2d 61 72 67 20 22 2d 74 65 73 74 70 61 get-arg "-testpa
5c30: 74 74 22 29 20 22 25 22 29 29 0a 09 20 28 73 74 tt") "%")).. (st
5c40: 61 74 65 70 61 74 74 20 20 28 69 66 20 28 61 72 atepatt (if (ar
5c50: 67 73 3a 67 65 74 2d 61 72 67 20 22 3a 73 74 61 gs:get-arg ":sta
5c60: 74 65 22 29 20 20 20 28 61 72 67 73 3a 67 65 74 te") (args:get
5c70: 2d 61 72 67 20 22 3a 73 74 61 74 65 22 29 20 20 -arg ":state")
5c80: 20 20 22 25 22 29 29 0a 09 20 28 73 74 61 74 75 "%")).. (statu
5c90: 73 70 61 74 74 20 28 69 66 20 28 61 72 67 73 3a spatt (if (args:
5ca0: 67 65 74 2d 61 72 67 20 22 3a 73 74 61 74 75 73 get-arg ":status
5cb0: 22 29 20 20 28 61 72 67 73 3a 67 65 74 2d 61 72 ") (args:get-ar
5cc0: 67 20 22 3a 73 74 61 74 75 73 22 29 20 20 20 22 g ":status") "
5cd0: 25 22 29 29 0a 09 20 28 72 75 6e 6e 61 6d 65 20 %")).. (runname
5ce0: 20 20 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 (if (args:get
5cf0: 2d 61 72 67 20 22 3a 72 75 6e 6e 61 6d 65 22 29 -arg ":runname")
5d00: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
5d10: 3a 72 75 6e 6e 61 6d 65 22 29 20 20 22 25 22 29 :runname") "%")
5d20: 29 0a 09 20 28 6b 65 79 73 74 72 20 28 73 74 72 ).. (keystr (str
5d30: 69 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 20 ing-intersperse
5d40: 0a 09 09 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 ... (map (lambd
5d50: 61 20 28 6b 65 79 20 76 61 6c 29 0a 09 09 09 20 a (key val)....
5d60: 28 63 6f 6e 63 20 22 72 2e 22 20 6b 65 79 20 22 (conc "r." key "
5d70: 20 6c 69 6b 65 20 27 22 20 76 61 6c 20 22 27 22 like '" val "'"
5d80: 29 29 0a 09 09 20 20 20 20 20 20 20 6b 65 79 6e ))... keyn
5d90: 61 6d 65 73 20 0a 09 09 20 20 20 20 20 20 20 28 ames ... (
5da0: 73 74 72 69 6e 67 2d 73 70 6c 69 74 20 74 61 72 string-split tar
5db0: 67 65 74 20 22 2f 22 29 29 0a 09 09 20 20 22 20 get "/"))... "
5dc0: 41 4e 44 20 22 29 29 0a 09 20 28 71 72 79 73 74 AND ")).. (qryst
5dd0: 72 20 28 63 6f 6e 63 20 22 53 45 4c 45 43 54 20 r (conc "SELECT
5de0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 2e 69 t.i
5e00: 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d.
5e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 2e t.
5e20: 72 75 6e 5f 69 64 20 20 20 20 20 0a 20 20 20 20 run_id .
5e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5e40: 20 20 20 20 20 20 20 20 74 2e 74 65 73 74 6e 61 t.testna
5e50: 6d 65 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 me .
5e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5e70: 20 20 74 2e 68 6f 73 74 20 20 20 20 20 20 20 0a t.host .
5e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5e90: 20 20 20 20 20 20 20 20 20 20 20 20 74 2e 63 70 t.cp
5ea0: 75 6c 6f 61 64 20 20 20 20 0a 20 20 20 20 20 20 uload .
5eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5ec0: 20 20 20 20 20 20 74 2e 64 69 73 6b 66 72 65 65 t.diskfree
5ed0: 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 .
5ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5ef0: 74 2e 75 6e 61 6d 65 20 20 20 20 20 20 0a 20 20 t.uname .
5f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f10: 20 20 20 20 20 20 20 20 20 20 74 2e 72 75 6e 64 t.rund
5f20: 69 72 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 ir .
5f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f40: 20 20 20 20 74 2e 73 68 6f 72 74 64 69 72 20 20 t.shortdir
5f50: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 2e t.
5f70: 69 74 65 6d 5f 70 61 74 68 20 20 0a 20 20 20 20 item_path .
5f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f90: 20 20 20 20 20 20 20 20 74 2e 73 74 61 74 65 20 t.state
5fa0: 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 .
5fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5fc0: 20 20 74 2e 73 74 61 74 75 73 20 20 20 20 20 0a t.status .
5fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5fe0: 20 20 20 20 20 20 20 20 20 20 20 20 74 2e 61 74 t.at
5ff0: 74 65 6d 70 74 6e 75 6d 20 0a 20 20 20 20 20 20 temptnum .
6000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6010: 20 20 20 20 20 20 74 2e 66 69 6e 61 6c 5f 6c 6f t.final_lo
6020: 67 66 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 gf .
6030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6040: 74 2e 6c 6f 67 64 61 74 20 20 20 20 20 0a 20 20 t.logdat .
6050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6060: 20 20 20 20 20 20 20 20 20 20 74 2e 72 75 6e 5f t.run_
6070: 64 75 72 61 74 69 6f 0a 20 20 20 20 20 20 20 20 duratio.
6080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6090: 20 20 20 20 74 2e 63 6f 6d 6d 65 6e 74 20 20 20 t.comment
60a0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
60b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 2e t.
60c0: 65 76 65 6e 74 5f 74 69 6d 65 20 0a 20 20 20 20 event_time .
60d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60e0: 20 20 20 20 20 20 20 20 74 2e 66 61 69 6c 5f 63 t.fail_c
60f0: 6f 75 6e 74 20 0a 20 20 20 20 20 20 20 20 20 20 ount .
6100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6110: 20 20 74 2e 70 61 73 73 5f 63 6f 75 6e 74 20 0a t.pass_count .
6120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6130: 20 20 20 20 20 20 20 20 20 20 20 20 74 2e 61 72 t.ar
6140: 63 68 69 76 65 64 20 20 20 0a 0a 0a 0a 20 46 52 chived .... FR
6150: 4f 4d 20 74 65 73 74 73 20 41 53 20 74 20 49 4e OM tests AS t IN
6160: 4e 45 52 20 4a 4f 49 4e 20 72 75 6e 73 20 41 53 NER JOIN runs AS
6170: 20 72 20 4f 4e 20 74 2e 72 75 6e 5f 69 64 3d 72 r ON t.run_id=r
6180: 2e 69 64 20 57 48 45 52 45 20 22 0a 09 09 20 20 .id WHERE "...
6190: 20 20 20 20 20 6b 65 79 73 74 72 20 22 20 41 4e keystr " AN
61a0: 44 20 72 2e 72 75 6e 6e 61 6d 65 20 4c 49 4b 45 D r.runname LIKE
61b0: 20 27 22 20 72 75 6e 6e 61 6d 65 20 22 27 20 41 '" runname "' A
61c0: 4e 44 20 69 74 65 6d 5f 70 61 74 68 20 4c 49 4b ND item_path LIK
61d0: 45 20 27 22 20 69 74 65 6d 70 61 74 74 20 22 27 E '" itempatt "'
61e0: 20 41 4e 44 20 74 65 73 74 6e 61 6d 65 20 4c 49 AND testname LI
61f0: 4b 45 20 27 22 0a 09 09 20 20 20 20 20 20 20 74 KE '"... t
6200: 65 73 74 70 61 74 74 20 22 27 20 41 4e 44 20 74 estpatt "' AND t
6210: 2e 73 74 61 74 65 20 4c 49 4b 45 20 27 22 20 73 .state LIKE '" s
6220: 74 61 74 65 70 61 74 74 20 22 27 20 41 4e 44 20 tatepatt "' AND
6230: 74 2e 73 74 61 74 75 73 20 4c 49 4b 45 20 27 22 t.status LIKE '"
6240: 20 73 74 61 74 75 73 70 61 74 74 20 0a 09 09 20 statuspatt ...
6250: 20 20 20 20 20 20 22 27 4f 52 44 45 52 20 42 59 "'ORDER BY
6260: 20 74 2e 65 76 65 6e 74 5f 74 69 6d 65 20 41 53 t.event_time AS
6270: 43 3b 22 29 29 29 0a 20 20 20 20 28 64 65 62 75 C;"))). (debu
6280: 67 3a 70 72 69 6e 74 20 33 20 22 71 72 79 73 74 g:print 3 "qryst
6290: 72 3a 20 22 20 71 72 79 73 74 72 29 0a 20 20 20 r: " qrystr).
62a0: 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 (sqlite3:for-ea
62b0: 63 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 ch-row . (la
62c0: 6d 62 64 61 20 28 70 29 0a 20 20 20 20 20 20 20 mbda (p).
62d0: 28 73 65 74 21 20 72 65 73 20 28 63 6f 6e 73 20 (set! res (cons
62e0: 70 20 72 65 73 29 29 29 0a 20 20 20 20 20 64 62 p res))). db
62f0: 20 0a 20 20 20 20 20 71 72 79 73 74 72 29 0a 20 . qrystr).
6300: 20 20 20 72 65 73 29 29 0a 0a 0a 3b 3b 3d 3d 3d res))...;;===
6310: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6320: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6330: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6340: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6350: 3d 3d 3d 0a 3b 3b 20 54 65 73 74 73 20 6d 65 74 ===.;; Tests met
6360: 61 20 64 61 74 61 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d a data.;;=======
6370: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6380: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6390: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
63a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
63b0: 0a 3b 3b 20 72 65 61 64 20 74 68 65 20 72 65 63 .;; read the rec
63c0: 6f 72 64 20 67 69 76 65 6e 20 61 20 74 65 73 74 ord given a test
63d0: 6e 61 6d 65 0a 28 64 65 66 69 6e 65 20 28 64 62 name.(define (db
63e0: 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 72 65 :testmeta-get-re
63f0: 63 6f 72 64 20 64 62 20 74 65 73 74 6e 61 6d 65 cord db testname
6400: 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 23 ). (let ((res #
6410: 66 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 f)). (sqlite3
6420: 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 :for-each-row.
6430: 20 20 20 28 6c 61 6d 62 64 61 20 28 69 64 20 74 (lambda (id t
6440: 65 73 74 6e 61 6d 65 20 61 75 74 68 6f 72 20 6f estname author o
6450: 77 6e 65 72 20 64 65 73 63 72 69 70 74 69 6f 6e wner description
6460: 20 72 65 76 69 65 77 65 64 20 69 74 65 72 61 74 reviewed iterat
6470: 65 64 20 61 76 67 5f 72 75 6e 74 69 6d 65 20 61 ed avg_runtime a
6480: 76 67 5f 64 69 73 6b 20 74 61 67 73 29 0a 20 20 vg_disk tags).
6490: 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 28 (set! res (
64a0: 76 65 63 74 6f 72 20 69 64 20 74 65 73 74 6e 61 vector id testna
64b0: 6d 65 20 61 75 74 68 6f 72 20 6f 77 6e 65 72 20 me author owner
64c0: 64 65 73 63 72 69 70 74 69 6f 6e 20 72 65 76 69 description revi
64d0: 65 77 65 64 20 69 74 65 72 61 74 65 64 20 61 76 ewed iterated av
64e0: 67 5f 72 75 6e 74 69 6d 65 20 61 76 67 5f 64 69 g_runtime avg_di
64f0: 73 6b 20 74 61 67 73 29 29 29 0a 20 20 20 20 20 sk tags))).
6500: 64 62 20 22 53 45 4c 45 43 54 20 69 64 2c 74 65 db "SELECT id,te
6510: 73 74 6e 61 6d 65 2c 61 75 74 68 6f 72 2c 6f 77 stname,author,ow
6520: 6e 65 72 2c 64 65 73 63 72 69 70 74 69 6f 6e 2c ner,description,
6530: 72 65 76 69 65 77 65 64 2c 69 74 65 72 61 74 65 reviewed,iterate
6540: 64 2c 61 76 67 5f 72 75 6e 74 69 6d 65 2c 61 76 d,avg_runtime,av
6550: 67 5f 64 69 73 6b 2c 74 61 67 73 20 46 52 4f 4d g_disk,tags FROM
6560: 20 74 65 73 74 5f 6d 65 74 61 20 57 48 45 52 45 test_meta WHERE
6570: 20 74 65 73 74 6e 61 6d 65 3d 3f 3b 22 0a 20 20 testname=?;".
6580: 20 20 20 74 65 73 74 6e 61 6d 65 29 0a 20 20 20 testname).
6590: 20 72 65 73 29 29 0a 0a 3b 3b 20 63 72 65 61 74 res))..;; creat
65a0: 65 20 61 20 6e 65 77 20 72 65 63 6f 72 64 20 66 e a new record f
65b0: 6f 72 20 61 20 67 69 76 65 6e 20 74 65 73 74 6e or a given testn
65c0: 61 6d 65 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ame.(define (db:
65d0: 74 65 73 74 6d 65 74 61 2d 61 64 64 2d 72 65 63 testmeta-add-rec
65e0: 6f 72 64 20 64 62 20 74 65 73 74 6e 61 6d 65 29 ord db testname)
65f0: 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 . (sqlite3:exec
6600: 75 74 65 20 64 62 20 22 49 4e 53 45 52 54 20 4f ute db "INSERT O
6610: 52 20 49 47 4e 4f 52 45 20 49 4e 54 4f 20 74 65 R IGNORE INTO te
6620: 73 74 5f 6d 65 74 61 20 28 74 65 73 74 6e 61 6d st_meta (testnam
6630: 65 2c 61 75 74 68 6f 72 2c 6f 77 6e 65 72 2c 64 e,author,owner,d
6640: 65 73 63 72 69 70 74 69 6f 6e 2c 72 65 76 69 65 escription,revie
6650: 77 65 64 2c 69 74 65 72 61 74 65 64 2c 61 76 67 wed,iterated,avg
6660: 5f 72 75 6e 74 69 6d 65 2c 61 76 67 5f 64 69 73 _runtime,avg_dis
6670: 6b 2c 74 61 67 73 29 20 56 41 4c 55 45 53 20 28 k,tags) VALUES (
6680: 3f 2c 27 27 2c 27 27 2c 27 27 2c 27 27 2c 27 27 ?,'','','','',''
6690: 2c 27 27 2c 27 27 2c 27 27 29 3b 22 20 74 65 73 ,'','','');" tes
66a0: 74 6e 61 6d 65 29 29 0a 0a 3b 3b 20 75 70 64 61 tname))..;; upda
66b0: 74 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 74 65 te one of the te
66c0: 73 74 6d 65 74 61 20 66 69 65 6c 64 73 0a 28 64 stmeta fields.(d
66d0: 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 efine (db:testme
66e0: 74 61 2d 75 70 64 61 74 65 2d 66 69 65 6c 64 20 ta-update-field
66f0: 64 62 20 74 65 73 74 6e 61 6d 65 20 66 69 65 6c db testname fiel
6700: 64 20 76 61 6c 75 65 29 0a 20 20 28 73 71 6c 69 d value). (sqli
6710: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 28 te3:execute db (
6720: 63 6f 6e 63 20 22 55 50 44 41 54 45 20 74 65 73 conc "UPDATE tes
6730: 74 5f 6d 65 74 61 20 53 45 54 20 22 20 66 69 65 t_meta SET " fie
6740: 6c 64 20 22 3d 3f 20 57 48 45 52 45 20 74 65 73 ld "=? WHERE tes
6750: 74 6e 61 6d 65 3d 3f 3b 22 29 20 76 61 6c 75 65 tname=?;") value
6760: 20 74 65 73 74 6e 61 6d 65 29 29 0a 0a 3b 3b 3d testname))..;;=
6770: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6780: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6790: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67b0: 3d 3d 3d 3d 3d 0a 3b 3b 20 54 20 45 20 53 20 54 =====.;; T E S T
67c0: 20 20 20 44 20 41 20 54 20 41 20 0a 3b 3b 3d 3d D A T A .;;==
67d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6800: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6810: 3d 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 20 28 64 ====..(define (d
6820: 62 3a 63 73 76 2d 3e 74 65 73 74 2d 64 61 74 61 b:csv->test-data
6830: 20 64 62 20 74 65 73 74 2d 69 64 20 63 73 76 64 db test-id csvd
6840: 61 74 61 29 0a 20 20 28 64 65 62 75 67 3a 70 72 ata). (debug:pr
6850: 69 6e 74 20 34 20 22 74 65 73 74 2d 69 64 20 22 int 4 "test-id "
6860: 20 74 65 73 74 2d 69 64 20 22 2c 20 63 73 76 64 test-id ", csvd
6870: 61 74 61 3a 20 22 20 63 73 76 64 61 74 61 29 0a ata: " csvdata).
6880: 20 20 28 6c 65 74 20 28 28 63 73 76 6c 69 73 74 (let ((csvlist
6890: 20 28 63 73 76 2d 3e 6c 69 73 74 20 28 6d 61 6b (csv->list (mak
68a0: 65 2d 63 73 76 2d 72 65 61 64 65 72 0a 09 09 09 e-csv-reader....
68b0: 20 20 20 20 20 28 6f 70 65 6e 2d 69 6e 70 75 74 (open-input
68c0: 2d 73 74 72 69 6e 67 20 63 73 76 64 61 74 61 29 -string csvdata)
68d0: 0a 09 09 09 20 20 20 20 20 27 28 28 73 74 72 69 .... '((stri
68e0: 70 2d 6c 65 61 64 69 6e 67 2d 77 68 69 74 65 73 p-leading-whites
68f0: 70 61 63 65 3f 20 23 74 29 0a 09 09 09 20 20 20 pace? #t)....
6900: 20 20 20 20 28 73 74 72 69 70 2d 74 72 61 69 6c (strip-trail
6910: 69 6e 67 2d 77 68 69 74 65 73 70 61 63 65 3f 20 ing-whitespace?
6920: 23 74 29 29 20 29 29 29 29 20 3b 3b 20 28 63 73 #t)) )))) ;; (cs
6930: 76 2d 3e 6c 69 73 74 20 63 73 76 64 61 74 61 29 v->list csvdata)
6940: 29 29 0a 20 20 20 20 28 66 6f 72 2d 65 61 63 68 )). (for-each
6950: 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 . (lambda (
6960: 63 73 76 72 6f 77 29 0a 20 20 20 20 20 20 20 28 csvrow). (
6970: 6c 65 74 2a 20 28 28 70 61 64 64 65 64 2d 72 6f let* ((padded-ro
6980: 77 20 20 28 74 61 6b 65 20 28 61 70 70 65 6e 64 w (take (append
6990: 20 63 73 76 72 6f 77 20 28 6c 69 73 74 20 23 66 csvrow (list #f
69a0: 20 23 66 20 23 66 20 23 66 20 23 66 20 23 66 20 #f #f #f #f #f
69b0: 23 66 20 23 66 20 23 66 29 29 20 39 29 29 0a 09 #f #f #f)) 9))..
69c0: 20 20 20 20 20 20 28 63 61 74 65 67 6f 72 79 20 (category
69d0: 20 20 20 28 6c 69 73 74 2d 72 65 66 20 70 61 64 (list-ref pad
69e0: 64 65 64 2d 72 6f 77 20 30 29 29 0a 09 20 20 20 ded-row 0))..
69f0: 20 20 20 28 76 61 72 69 61 62 6c 65 20 20 20 20 (variable
6a00: 28 6c 69 73 74 2d 72 65 66 20 70 61 64 64 65 64 (list-ref padded
6a10: 2d 72 6f 77 20 31 29 29 0a 09 20 20 20 20 20 20 -row 1))..
6a20: 28 76 61 6c 75 65 20 20 20 20 20 20 20 28 61 6e (value (an
6a30: 79 2d 3e 6e 75 6d 62 65 72 2d 69 66 2d 70 6f 73 y->number-if-pos
6a40: 73 69 62 6c 65 20 28 6c 69 73 74 2d 72 65 66 20 sible (list-ref
6a50: 70 61 64 64 65 64 2d 72 6f 77 20 32 29 29 29 0a padded-row 2))).
6a60: 09 20 20 20 20 20 20 28 65 78 70 65 63 74 65 64 . (expected
6a70: 20 20 20 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 (any->number
6a80: 2d 69 66 2d 70 6f 73 73 69 62 6c 65 20 28 6c 69 -if-possible (li
6a90: 73 74 2d 72 65 66 20 70 61 64 64 65 64 2d 72 6f st-ref padded-ro
6aa0: 77 20 33 29 29 29 0a 09 20 20 20 20 20 20 28 74 w 3))).. (t
6ab0: 6f 6c 20 20 20 20 20 20 20 20 20 28 61 6e 79 2d ol (any-
6ac0: 3e 6e 75 6d 62 65 72 2d 69 66 2d 70 6f 73 73 69 >number-if-possi
6ad0: 62 6c 65 20 28 6c 69 73 74 2d 72 65 66 20 70 61 ble (list-ref pa
6ae0: 64 64 65 64 2d 72 6f 77 20 34 29 29 29 20 3b 3b dded-row 4))) ;;
6af0: 20 3e 2c 20 3c 2c 20 3e 3d 2c 20 3c 3d 2c 20 6f >, <, >=, <=, o
6b00: 72 20 61 20 6e 75 6d 62 65 72 0a 09 20 20 20 20 r a number..
6b10: 20 20 28 75 6e 69 74 73 20 20 20 20 20 20 20 28 (units (
6b20: 6c 69 73 74 2d 72 65 66 20 70 61 64 64 65 64 2d list-ref padded-
6b30: 72 6f 77 20 35 29 29 0a 09 20 20 20 20 20 20 28 row 5)).. (
6b40: 63 6f 6d 6d 65 6e 74 20 20 20 20 20 28 6c 69 73 comment (lis
6b50: 74 2d 72 65 66 20 70 61 64 64 65 64 2d 72 6f 77 t-ref padded-row
6b60: 20 36 29 29 0a 09 20 20 20 20 20 20 28 73 74 61 6)).. (sta
6b70: 74 75 73 20 20 20 20 20 20 28 6c 65 74 20 28 28 tus (let ((
6b80: 73 20 28 6c 69 73 74 2d 72 65 66 20 70 61 64 64 s (list-ref padd
6b90: 65 64 2d 72 6f 77 20 37 29 29 29 0a 09 09 09 20 ed-row 7)))....
6ba0: 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 73 74 (if (and (st
6bb0: 72 69 6e 67 3f 20 73 29 28 6f 72 20 28 73 74 72 ring? s)(or (str
6bc0: 69 6e 67 2d 6d 61 74 63 68 20 28 72 65 67 65 78 ing-match (regex
6bd0: 70 20 22 5e 5c 5c 73 2a 24 22 29 20 73 29 0a 09 p "^\\s*$") s)..
6be0: 09 09 09 09 09 20 20 20 20 20 28 73 74 72 69 6e ..... (strin
6bf0: 67 2d 6d 61 74 63 68 20 28 72 65 67 65 78 70 20 g-match (regexp
6c00: 22 5e 6e 2f 61 24 22 29 20 73 29 29 29 0a 09 09 "^n/a$") s)))...
6c10: 09 09 20 23 66 0a 09 09 09 09 20 73 29 29 29 20 .. #f..... s)))
6c20: 3b 3b 20 69 66 20 73 70 65 63 69 66 69 65 64 20 ;; if specified
6c30: 6f 6e 20 74 68 65 20 69 6e 70 75 74 20 74 68 65 on the input the
6c40: 6e 20 75 73 65 2c 20 65 6c 73 65 20 63 61 6c 63 n use, else calc
6c50: 75 6c 61 74 65 0a 09 20 20 20 20 20 20 28 74 79 ulate.. (ty
6c60: 70 65 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d pe (list-
6c70: 72 65 66 20 70 61 64 64 65 64 2d 72 6f 77 20 38 ref padded-row 8
6c80: 29 29 29 0a 09 20 3b 3b 20 6c 6f 6f 6b 20 75 70 ))).. ;; look up
6c90: 20 65 78 70 65 63 74 65 64 2c 74 6f 6c 2c 75 6e expected,tol,un
6ca0: 69 74 73 20 66 72 6f 6d 20 70 72 65 76 69 6f 75 its from previou
6cb0: 73 20 62 65 73 74 20 66 69 74 20 74 65 73 74 20 s best fit test
6cc0: 69 66 20 74 68 65 79 20 61 72 65 20 61 6c 6c 20 if they are all
6cd0: 65 69 74 68 65 72 20 23 66 20 6f 72 20 27 27 0a either #f or ''.
6ce0: 09 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 34 . (debug:print 4
6cf0: 20 22 42 45 46 4f 52 45 3a 20 63 61 74 65 67 6f "BEFORE: catego
6d00: 72 79 3a 20 22 20 63 61 74 65 67 6f 72 79 20 22 ry: " category "
6d10: 20 76 61 72 69 61 62 6c 65 3a 20 22 20 76 61 72 variable: " var
6d20: 69 61 62 6c 65 20 22 20 76 61 6c 75 65 3a 20 22 iable " value: "
6d30: 20 76 61 6c 75 65 20 0a 09 09 20 20 20 20 20 20 value ...
6d40: 22 2c 20 65 78 70 65 63 74 65 64 3a 20 22 20 65 ", expected: " e
6d50: 78 70 65 63 74 65 64 20 22 20 74 6f 6c 3a 20 22 xpected " tol: "
6d60: 20 74 6f 6c 20 22 20 75 6e 69 74 73 3a 20 22 20 tol " units: "
6d70: 75 6e 69 74 73 20 22 20 73 74 61 74 75 73 3a 20 units " status:
6d80: 22 20 73 74 61 74 75 73 20 22 20 63 6f 6d 6d 65 " status " comme
6d90: 6e 74 3a 20 22 20 63 6f 6d 6d 65 6e 74 20 22 20 nt: " comment "
6da0: 74 79 70 65 3a 20 22 20 74 79 70 65 29 0a 0a 09 type: " type)...
6db0: 20 28 69 66 20 28 61 6e 64 20 28 6f 72 20 28 6e (if (and (or (n
6dc0: 6f 74 20 65 78 70 65 63 74 65 64 29 28 65 71 75 ot expected)(equ
6dd0: 61 6c 3f 20 65 78 70 65 63 74 65 64 20 22 22 29 al? expected "")
6de0: 29 0a 09 09 20 20 28 6f 72 20 28 6e 6f 74 20 74 )... (or (not t
6df0: 6f 6c 29 20 20 20 20 20 28 65 71 75 61 6c 3f 20 ol) (equal?
6e00: 65 78 70 65 63 74 65 64 20 22 22 29 29 0a 09 09 expected ""))...
6e10: 20 20 28 6f 72 20 28 6e 6f 74 20 75 6e 69 74 73 (or (not units
6e20: 29 20 20 20 28 65 71 75 61 6c 3f 20 65 78 70 65 ) (equal? expe
6e30: 63 74 65 64 20 22 22 29 29 29 0a 09 20 20 20 20 cted "")))..
6e40: 20 28 6c 65 74 2d 76 61 6c 75 65 73 20 28 28 28 (let-values (((
6e50: 6e 65 77 2d 65 78 70 65 63 74 65 64 20 6e 65 77 new-expected new
6e60: 2d 74 6f 6c 20 6e 65 77 2d 75 6e 69 74 73 29 28 -tol new-units)(
6e70: 64 62 3a 67 65 74 2d 70 72 65 76 2d 74 6f 6c 2d db:get-prev-tol-
6e80: 66 6f 72 2d 74 65 73 74 20 64 62 20 74 65 73 74 for-test db test
6e90: 2d 69 64 20 63 61 74 65 67 6f 72 79 20 76 61 72 -id category var
6ea0: 69 61 62 6c 65 29 29 29 0a 09 09 09 20 28 73 65 iable))).... (se
6eb0: 74 21 20 65 78 70 65 63 74 65 64 20 6e 65 77 2d t! expected new-
6ec0: 65 78 70 65 63 74 65 64 29 0a 09 09 09 20 28 73 expected).... (s
6ed0: 65 74 21 20 74 6f 6c 20 20 20 20 20 20 6e 65 77 et! tol new
6ee0: 2d 74 6f 6c 29 0a 09 09 09 20 28 73 65 74 21 20 -tol).... (set!
6ef0: 75 6e 69 74 73 20 20 20 20 6e 65 77 2d 75 6e 69 units new-uni
6f00: 74 73 29 29 29 0a 0a 09 20 28 64 65 62 75 67 3a ts)))... (debug:
6f10: 70 72 69 6e 74 20 34 20 22 41 46 54 45 52 3a 20 print 4 "AFTER:
6f20: 20 63 61 74 65 67 6f 72 79 3a 20 22 20 63 61 74 category: " cat
6f30: 65 67 6f 72 79 20 22 20 76 61 72 69 61 62 6c 65 egory " variable
6f40: 3a 20 22 20 76 61 72 69 61 62 6c 65 20 22 20 76 : " variable " v
6f50: 61 6c 75 65 3a 20 22 20 76 61 6c 75 65 20 0a 09 alue: " value ..
6f60: 09 20 20 20 20 20 20 22 2c 20 65 78 70 65 63 74 . ", expect
6f70: 65 64 3a 20 22 20 65 78 70 65 63 74 65 64 20 22 ed: " expected "
6f80: 20 74 6f 6c 3a 20 22 20 74 6f 6c 20 22 20 75 6e tol: " tol " un
6f90: 69 74 73 3a 20 22 20 75 6e 69 74 73 20 22 20 73 its: " units " s
6fa0: 74 61 74 75 73 3a 20 22 20 73 74 61 74 75 73 20 tatus: " status
6fb0: 22 20 63 6f 6d 6d 65 6e 74 3a 20 22 20 63 6f 6d " comment: " com
6fc0: 6d 65 6e 74 29 0a 09 20 3b 3b 20 63 61 6c 63 75 ment).. ;; calcu
6fd0: 6c 61 74 65 20 73 74 61 74 75 73 20 69 66 20 4e late status if N
6fe0: 4f 54 20 73 70 65 63 69 66 69 65 64 0a 09 20 28 OT specified.. (
6ff0: 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 73 74 61 if (and (not sta
7000: 74 75 73 29 28 6e 75 6d 62 65 72 3f 20 65 78 70 tus)(number? exp
7010: 65 63 74 65 64 29 28 6e 75 6d 62 65 72 3f 20 76 ected)(number? v
7020: 61 6c 75 65 29 29 20 3b 3b 20 6e 65 65 64 20 65 alue)) ;; need e
7030: 78 70 65 63 74 65 64 20 61 6e 64 20 76 61 6c 75 xpected and valu
7040: 65 20 74 6f 20 62 65 20 6e 75 6d 62 65 72 73 0a e to be numbers.
7050: 09 20 20 20 20 20 28 69 66 20 28 6e 75 6d 62 65 . (if (numbe
7060: 72 3f 20 74 6f 6c 29 20 3b 3b 20 69 66 20 74 6f r? tol) ;; if to
7070: 6c 20 69 73 20 61 20 6e 75 6d 62 65 72 20 74 68 l is a number th
7080: 65 6e 20 77 65 20 64 6f 20 74 68 65 20 73 74 61 en we do the sta
7090: 6e 64 61 72 64 20 63 6f 6d 70 61 72 69 73 6f 6e ndard comparison
70a0: 0a 09 09 20 28 6c 65 74 2a 20 28 28 6d 61 78 2d ... (let* ((max-
70b0: 76 61 6c 20 28 2b 20 65 78 70 65 63 74 65 64 20 val (+ expected
70c0: 74 6f 6c 29 29 0a 09 09 09 28 6d 69 6e 2d 76 61 tol))....(min-va
70d0: 6c 20 28 2d 20 65 78 70 65 63 74 65 64 20 74 6f l (- expected to
70e0: 6c 29 29 0a 09 09 09 28 72 65 73 75 6c 74 20 20 l))....(result
70f0: 28 61 6e 64 20 28 3e 3d 20 20 76 61 6c 75 65 20 (and (>= value
7100: 6d 69 6e 2d 76 61 6c 29 28 3c 3d 20 76 61 6c 75 min-val)(<= valu
7110: 65 20 6d 61 78 2d 76 61 6c 29 29 29 29 0a 09 09 e max-val))))...
7120: 20 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 (debug:print
7130: 34 20 22 6d 61 78 2d 76 61 6c 3a 20 22 20 6d 61 4 "max-val: " ma
7140: 78 2d 76 61 6c 20 22 20 6d 69 6e 2d 76 61 6c 3a x-val " min-val:
7150: 20 22 20 6d 69 6e 2d 76 61 6c 20 22 20 72 65 73 " min-val " res
7160: 75 6c 74 3a 20 22 20 72 65 73 75 6c 74 29 0a 09 ult: " result)..
7170: 09 20 20 20 28 73 65 74 21 20 73 74 61 74 75 73 . (set! status
7180: 20 28 69 66 20 72 65 73 75 6c 74 20 22 70 61 73 (if result "pas
7190: 73 22 20 22 66 61 69 6c 22 29 29 29 0a 09 09 20 s" "fail")))...
71a0: 28 73 65 74 21 20 73 74 61 74 75 73 20 3b 3b 20 (set! status ;;
71b0: 4e 42 2f 2f 20 6e 65 65 64 20 74 6f 20 61 73 73 NB// need to ass
71c0: 65 73 73 20 65 61 63 68 20 6f 6e 65 20 28 69 2e ess each one (i.
71d0: 65 2e 20 6e 6f 74 20 72 65 74 75 72 6e 20 6f 70 e. not return op
71e0: 65 72 61 74 6f 72 20 73 69 6e 63 65 20 6e 65 65 erator since nee
71f0: 64 20 74 6f 20 61 63 74 20 69 66 20 6e 6f 74 20 d to act if not
7200: 76 61 6c 69 64 20 6f 70 2e 0a 09 09 20 20 20 20 valid op....
7210: 20 20 20 28 63 61 73 65 20 28 73 74 72 69 6e 67 (case (string
7220: 2d 3e 73 79 6d 62 6f 6c 20 74 6f 6c 29 20 3b 3b ->symbol tol) ;;
7230: 20 74 6f 6c 20 73 68 6f 75 6c 64 20 62 65 20 3e tol should be >
7240: 2c 20 3c 2c 20 3e 3d 2c 20 3c 3d 0a 09 09 09 20 , <, >=, <=....
7250: 28 28 3e 29 20 20 28 69 66 20 28 3e 20 20 76 61 ((>) (if (> va
7260: 6c 75 65 20 65 78 70 65 63 74 65 64 29 20 22 70 lue expected) "p
7270: 61 73 73 22 20 22 66 61 69 6c 22 29 29 0a 09 09 ass" "fail"))...
7280: 09 20 28 28 3c 29 20 20 28 69 66 20 28 3c 20 20 . ((<) (if (<
7290: 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 29 20 value expected)
72a0: 22 70 61 73 73 22 20 22 66 61 69 6c 22 29 29 0a "pass" "fail")).
72b0: 09 09 09 20 28 28 3e 3d 29 20 28 69 66 20 28 3e ... ((>=) (if (>
72c0: 3d 20 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 = value expected
72d0: 29 20 22 70 61 73 73 22 20 22 66 61 69 6c 22 29 ) "pass" "fail")
72e0: 29 0a 09 09 09 20 28 28 3c 3d 29 20 28 69 66 20 ).... ((<=) (if
72f0: 28 3c 3d 20 76 61 6c 75 65 20 65 78 70 65 63 74 (<= value expect
7300: 65 64 29 20 22 70 61 73 73 22 20 22 66 61 69 6c ed) "pass" "fail
7310: 22 29 29 0a 09 09 09 20 28 65 6c 73 65 20 28 63 ")).... (else (c
7320: 6f 6e 63 20 22 45 52 52 4f 52 3a 20 62 61 64 20 onc "ERROR: bad
7330: 74 6f 6c 20 63 6f 6d 70 61 72 61 74 6f 72 20 22 tol comparator "
7340: 20 74 6f 6c 29 29 29 29 29 29 0a 09 20 28 64 65 tol)))))).. (de
7350: 62 75 67 3a 70 72 69 6e 74 20 34 20 22 41 46 54 bug:print 4 "AFT
7360: 45 52 32 3a 20 63 61 74 65 67 6f 72 79 3a 20 22 ER2: category: "
7370: 20 63 61 74 65 67 6f 72 79 20 22 20 76 61 72 69 category " vari
7380: 61 62 6c 65 3a 20 22 20 76 61 72 69 61 62 6c 65 able: " variable
7390: 20 22 20 76 61 6c 75 65 3a 20 22 20 76 61 6c 75 " value: " valu
73a0: 65 20 0a 09 09 20 20 20 20 20 20 22 2c 20 65 78 e ... ", ex
73b0: 70 65 63 74 65 64 3a 20 22 20 65 78 70 65 63 74 pected: " expect
73c0: 65 64 20 22 20 74 6f 6c 3a 20 22 20 74 6f 6c 20 ed " tol: " tol
73d0: 22 20 75 6e 69 74 73 3a 20 22 20 75 6e 69 74 73 " units: " units
73e0: 20 22 20 73 74 61 74 75 73 3a 20 22 20 73 74 61 " status: " sta
73f0: 74 75 73 20 22 20 63 6f 6d 6d 65 6e 74 3a 20 22 tus " comment: "
7400: 20 63 6f 6d 6d 65 6e 74 29 0a 09 20 28 73 71 6c comment).. (sql
7410: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
7420: 22 49 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 "INSERT OR REPLA
7430: 43 45 20 49 4e 54 4f 20 74 65 73 74 5f 64 61 74 CE INTO test_dat
7440: 61 20 28 74 65 73 74 5f 69 64 2c 63 61 74 65 67 a (test_id,categ
7450: 6f 72 79 2c 76 61 72 69 61 62 6c 65 2c 76 61 6c ory,variable,val
7460: 75 65 2c 65 78 70 65 63 74 65 64 2c 74 6f 6c 2c ue,expected,tol,
7470: 75 6e 69 74 73 2c 63 6f 6d 6d 65 6e 74 2c 73 74 units,comment,st
7480: 61 74 75 73 2c 74 79 70 65 29 20 56 41 4c 55 45 atus,type) VALUE
7490: 53 20 28 3f 2c 3f 2c 3f 2c 3f 2c 3f 2c 3f 2c 3f S (?,?,?,?,?,?,?
74a0: 2c 3f 2c 3f 2c 3f 29 3b 22 0a 09 09 09 20 20 74 ,?,?,?);".... t
74b0: 65 73 74 2d 69 64 20 63 61 74 65 67 6f 72 79 20 est-id category
74c0: 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 65 variable value e
74d0: 78 70 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 74 xpected tol unit
74e0: 73 20 28 69 66 20 63 6f 6d 6d 65 6e 74 20 63 6f s (if comment co
74f0: 6d 6d 65 6e 74 20 22 22 29 20 73 74 61 74 75 73 mment "") status
7500: 20 74 79 70 65 29 29 29 0a 20 20 20 20 20 63 73 type))). cs
7510: 76 6c 69 73 74 29 29 29 0a 0a 3b 3b 20 67 65 74 vlist)))..;; get
7520: 20 61 20 6c 69 73 74 20 6f 66 20 74 65 73 74 5f a list of test_
7530: 64 61 74 61 20 72 65 63 6f 72 64 73 20 6d 61 74 data records mat
7540: 63 68 69 6e 67 20 63 61 74 65 67 6f 72 79 70 61 ching categorypa
7550: 74 74 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 72 tt.(define (db:r
7560: 65 61 64 2d 74 65 73 74 2d 64 61 74 61 20 64 62 ead-test-data db
7570: 20 74 65 73 74 2d 69 64 20 63 61 74 65 67 6f 72 test-id categor
7580: 79 70 61 74 74 29 0a 20 20 28 6c 65 74 20 28 28 ypatt). (let ((
7590: 72 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 73 res '())). (s
75a0: 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d qlite3:for-each-
75b0: 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 row . (lambd
75c0: 61 20 28 69 64 20 74 65 73 74 5f 69 64 20 63 61 a (id test_id ca
75d0: 74 65 67 6f 72 79 20 76 61 72 69 61 62 6c 65 20 tegory variable
75e0: 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 20 74 value expected t
75f0: 6f 6c 20 75 6e 69 74 73 20 63 6f 6d 6d 65 6e 74 ol units comment
7600: 20 73 74 61 74 75 73 20 74 79 70 65 29 0a 20 20 status type).
7610: 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 28 (set! res (
7620: 63 6f 6e 73 20 28 76 65 63 74 6f 72 20 69 64 20 cons (vector id
7630: 74 65 73 74 5f 69 64 20 63 61 74 65 67 6f 72 79 test_id category
7640: 20 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 variable value
7650: 65 78 70 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 expected tol uni
7660: 74 73 20 63 6f 6d 6d 65 6e 74 20 73 74 61 74 75 ts comment statu
7670: 73 20 74 79 70 65 29 20 72 65 73 29 29 29 0a 20 s type) res))).
7680: 20 20 20 20 64 62 0a 20 20 20 20 20 22 53 45 4c db. "SEL
7690: 45 43 54 20 69 64 2c 74 65 73 74 5f 69 64 2c 63 ECT id,test_id,c
76a0: 61 74 65 67 6f 72 79 2c 76 61 72 69 61 62 6c 65 ategory,variable
76b0: 2c 76 61 6c 75 65 2c 65 78 70 65 63 74 65 64 2c ,value,expected,
76c0: 74 6f 6c 2c 75 6e 69 74 73 2c 63 6f 6d 6d 65 6e tol,units,commen
76d0: 74 2c 73 74 61 74 75 73 2c 74 79 70 65 20 46 52 t,status,type FR
76e0: 4f 4d 20 74 65 73 74 5f 64 61 74 61 20 57 48 45 OM test_data WHE
76f0: 52 45 20 74 65 73 74 5f 69 64 3d 3f 20 41 4e 44 RE test_id=? AND
7700: 20 63 61 74 65 67 6f 72 79 20 4c 49 4b 45 20 3f category LIKE ?
7710: 20 4f 52 44 45 52 20 42 59 20 63 61 74 65 67 6f ORDER BY catego
7720: 72 79 2c 76 61 72 69 61 62 6c 65 3b 22 20 74 65 ry,variable;" te
7730: 73 74 2d 69 64 20 63 61 74 65 67 6f 72 79 70 61 st-id categorypa
7740: 74 74 29 0a 20 20 20 20 28 72 65 76 65 72 73 65 tt). (reverse
7750: 20 72 65 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 res)))..(define
7760: 20 28 64 62 3a 6c 6f 61 64 2d 74 65 73 74 2d 64 (db:load-test-d
7770: 61 74 61 20 64 62 20 72 75 6e 2d 69 64 20 74 65 ata db run-id te
7780: 73 74 2d 6e 61 6d 65 20 69 74 65 6d 64 61 74 29 st-name itemdat)
7790: 0a 20 20 28 6c 65 74 2a 20 28 28 69 74 65 6d 2d . (let* ((item-
77a0: 70 61 74 68 20 28 69 74 65 6d 2d 6c 69 73 74 2d path (item-list-
77b0: 3e 70 61 74 68 20 69 74 65 6d 64 61 74 29 29 0a >path itemdat)).
77c0: 09 20 28 74 65 73 74 64 61 74 20 28 64 62 3a 67 . (testdat (db:g
77d0: 65 74 2d 74 65 73 74 2d 69 6e 66 6f 20 64 62 20 et-test-info db
77e0: 72 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 6d 65 run-id test-name
77f0: 20 69 74 65 6d 2d 70 61 74 68 29 29 0a 09 20 28 item-path)).. (
7800: 74 65 73 74 2d 69 64 20 28 69 66 20 74 65 73 74 test-id (if test
7810: 64 61 74 20 28 64 62 3a 74 65 73 74 2d 67 65 74 dat (db:test-get
7820: 2d 69 64 20 74 65 73 74 64 61 74 29 20 23 66 29 -id testdat) #f)
7830: 29 29 0a 20 20 20 20 3b 3b 20 28 64 65 62 75 67 )). ;; (debug
7840: 3a 70 72 69 6e 74 20 31 20 22 45 6e 74 65 72 20 :print 1 "Enter
7850: 72 65 63 6f 72 64 73 20 74 6f 20 69 6e 73 65 72 records to inser
7860: 74 20 69 6e 20 74 68 65 20 74 65 73 74 5f 64 61 t in the test_da
7870: 74 61 20 74 61 62 6c 65 2c 20 73 65 76 65 6e 20 ta table, seven
7880: 66 69 65 6c 64 73 2c 20 63 6f 6d 6d 61 20 73 65 fields, comma se
7890: 70 61 72 61 74 65 64 20 70 65 72 20 6c 69 6e 65 parated per line
78a0: 22 29 0a 20 20 20 20 28 64 65 62 75 67 3a 70 72 "). (debug:pr
78b0: 69 6e 74 20 34 20 22 69 74 65 6d 64 61 74 3a 20 int 4 "itemdat:
78c0: 22 20 69 74 65 6d 64 61 74 20 22 2c 20 74 65 73 " itemdat ", tes
78d0: 74 2d 6e 61 6d 65 3a 20 22 20 74 65 73 74 2d 6e t-name: " test-n
78e0: 61 6d 65 20 22 2c 20 74 65 73 74 2d 69 64 3a 20 ame ", test-id:
78f0: 22 20 74 65 73 74 2d 69 64 29 0a 20 20 20 20 28 " test-id). (
7900: 69 66 20 74 65 73 74 2d 69 64 0a 09 28 6c 65 74 if test-id..(let
7910: 20 6c 6f 6f 70 20 28 28 6c 69 6e 20 28 72 65 61 loop ((lin (rea
7920: 64 2d 6c 69 6e 65 29 29 29 0a 09 20 20 28 69 66 d-line))).. (if
7930: 20 28 6e 6f 74 20 28 65 6f 66 2d 6f 62 6a 65 63 (not (eof-objec
7940: 74 3f 20 6c 69 6e 29 29 0a 09 20 20 20 20 20 20 t? lin))..
7950: 28 62 65 67 69 6e 0a 09 09 28 64 65 62 75 67 3a (begin...(debug:
7960: 70 72 69 6e 74 20 34 20 6c 69 6e 29 0a 09 09 28 print 4 lin)...(
7970: 64 62 3a 63 73 76 2d 3e 74 65 73 74 2d 64 61 74 db:csv->test-dat
7980: 61 20 64 62 20 74 65 73 74 2d 69 64 20 6c 69 6e a db test-id lin
7990: 29 0a 09 09 28 6c 6f 6f 70 20 28 72 65 61 64 2d )...(loop (read-
79a0: 6c 69 6e 65 29 29 29 29 29 29 0a 20 20 20 20 3b line)))))). ;
79b0: 3b 20 72 6f 6c 6c 20 75 70 20 74 68 65 20 63 75 ; roll up the cu
79c0: 72 72 65 6e 74 20 72 65 73 75 6c 74 73 2e 0a 20 rrent results..
79d0: 20 20 20 3b 3b 20 46 49 58 4d 45 3a 20 41 64 64 ;; FIXME: Add
79e0: 20 74 68 65 20 73 74 61 74 75 73 20 74 6f 20 0a the status to .
79f0: 20 20 20 20 28 64 62 3a 74 65 73 74 2d 64 61 74 (db:test-dat
7a00: 61 2d 72 6f 6c 6c 75 70 20 64 62 20 74 65 73 74 a-rollup db test
7a10: 2d 69 64 20 23 66 29 29 29 0a 0a 3b 3b 20 57 41 -id #f)))..;; WA
7a20: 52 4e 49 4e 47 3a 20 44 6f 20 4e 4f 54 20 63 61 RNING: Do NOT ca
7a30: 6c 6c 20 74 68 69 73 20 66 6f 72 20 74 68 65 20 ll this for the
7a40: 70 61 72 65 6e 74 20 74 65 73 74 20 6f 6e 20 61 parent test on a
7a50: 6e 20 69 74 65 72 61 74 65 64 20 74 65 73 74 0a n iterated test.
7a60: 3b 3b 20 52 6f 6c 6c 20 75 70 20 74 65 73 74 5f ;; Roll up test_
7a70: 64 61 74 61 20 70 61 73 73 2f 66 61 69 6c 20 72 data pass/fail r
7a80: 65 73 75 6c 74 73 0a 3b 3b 20 6c 6f 6f 6b 20 61 esults.;; look a
7a90: 74 20 74 68 65 20 74 65 73 74 5f 64 61 74 61 20 t the test_data
7aa0: 73 74 61 74 75 73 20 66 69 65 6c 64 2c 20 0a 3b status field, .;
7ab0: 3b 20 20 20 20 69 66 20 61 6c 6c 20 61 72 65 20 ; if all are
7ac0: 70 61 73 73 20 28 61 6e 79 20 63 61 73 65 29 20 pass (any case)
7ad0: 61 6e 64 20 74 68 65 20 74 65 73 74 20 73 74 61 and the test sta
7ae0: 74 75 73 20 69 73 20 50 41 53 53 20 6f 72 20 4e tus is PASS or N
7af0: 55 4c 4c 20 6f 72 20 27 27 20 74 68 65 6e 20 73 ULL or '' then s
7b00: 65 74 20 74 65 73 74 20 73 74 61 74 75 73 20 74 et test status t
7b10: 6f 20 50 41 53 53 2e 0a 3b 3b 20 20 20 20 69 66 o PASS..;; if
7b20: 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 61 72 65 one or more are
7b30: 20 66 61 69 6c 20 28 61 6e 79 20 63 61 73 65 29 fail (any case)
7b40: 20 74 68 65 6e 20 73 65 74 20 74 65 73 74 20 73 then set test s
7b50: 74 61 74 75 73 20 74 6f 20 50 41 53 53 2c 20 6e tatus to PASS, n
7b60: 6f 6e 20 22 70 61 73 73 22 20 6f 72 20 22 66 61 on "pass" or "fa
7b70: 69 6c 22 20 61 72 65 20 69 67 6e 6f 72 65 64 0a il" are ignored.
7b80: 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 74 (define (db:test
7b90: 2d 64 61 74 61 2d 72 6f 6c 6c 75 70 20 64 62 20 -data-rollup db
7ba0: 74 65 73 74 2d 69 64 20 73 74 61 74 75 73 29 0a test-id status).
7bb0: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
7bc0: 74 65 20 0a 20 20 20 64 62 20 0a 20 20 20 22 55 te . db . "U
7bd0: 50 44 41 54 45 20 74 65 73 74 73 20 0a 20 20 20 PDATE tests .
7be0: 20 20 20 53 45 54 20 66 61 69 6c 5f 63 6f 75 6e SET fail_coun
7bf0: 74 3d 28 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 t=(SELECT count(
7c00: 69 64 29 20 46 52 4f 4d 20 74 65 73 74 5f 64 61 id) FROM test_da
7c10: 74 61 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 ta WHERE test_id
7c20: 3d 3f 20 41 4e 44 20 73 74 61 74 75 73 20 6c 69 =? AND status li
7c30: 6b 65 20 27 66 61 69 6c 27 29 2c 0a 20 20 20 20 ke 'fail'),.
7c40: 20 20 20 20 20 20 70 61 73 73 5f 63 6f 75 6e 74 pass_count
7c50: 3d 28 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 69 =(SELECT count(i
7c60: 64 29 20 46 52 4f 4d 20 74 65 73 74 5f 64 61 74 d) FROM test_dat
7c70: 61 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 3d a WHERE test_id=
7c80: 3f 20 41 4e 44 20 73 74 61 74 75 73 20 6c 69 6b ? AND status lik
7c90: 65 20 27 70 61 73 73 27 29 0a 20 20 20 20 20 20 e 'pass').
7ca0: 57 48 45 52 45 20 69 64 3d 3f 3b 22 0a 20 20 20 WHERE id=?;".
7cb0: 74 65 73 74 2d 69 64 20 74 65 73 74 2d 69 64 20 test-id test-id
7cc0: 74 65 73 74 2d 69 64 29 0a 20 20 3b 3b 20 69 66 test-id). ;; if
7cd0: 20 74 68 65 20 74 65 73 74 20 69 73 20 6e 6f 74 the test is not
7ce0: 20 46 41 49 4c 20 74 68 65 6e 20 73 65 74 20 73 FAIL then set s
7cf0: 74 61 74 75 73 20 62 61 73 65 64 20 6f 6e 20 74 tatus based on t
7d00: 68 65 20 66 61 69 6c 20 61 6e 64 20 70 61 73 73 he fail and pass
7d10: 20 63 6f 75 6e 74 73 2e 0a 20 20 28 74 68 72 65 counts.. (thre
7d20: 61 64 2d 73 6c 65 65 70 21 20 31 29 0a 20 20 28 ad-sleep! 1). (
7d30: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 0a sqlite3:execute.
7d40: 20 20 20 64 62 20 20 20 3b 3b 3b 20 4e 4f 54 45 db ;;; NOTE
7d50: 3a 20 53 68 6f 75 6c 64 20 74 68 69 73 20 62 65 : Should this be
7d60: 20 57 41 52 4e 2c 46 41 49 4c 3f 20 41 20 57 41 WARN,FAIL? A WA
7d70: 52 4e 20 69 73 20 6e 6f 74 20 61 20 46 41 49 4c RN is not a FAIL
7d80: 3f 3f 3f 3f 3f 20 42 55 47 20 46 49 58 4d 45 0a ????? BUG FIXME.
7d90: 20 20 20 22 55 50 44 41 54 45 20 74 65 73 74 73 "UPDATE tests
7da0: 0a 20 20 20 20 20 20 53 45 54 20 73 74 61 74 75 . SET statu
7db0: 73 3d 43 41 53 45 20 57 48 45 4e 20 28 53 45 4c s=CASE WHEN (SEL
7dc0: 45 43 54 20 66 61 69 6c 5f 63 6f 75 6e 74 20 46 ECT fail_count F
7dd0: 52 4f 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 ROM tests WHERE
7de0: 69 64 3d 3f 29 20 3e 20 30 20 0a 20 20 20 20 20 id=?) > 0 .
7df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e00: 20 20 20 20 54 48 45 4e 20 27 46 41 49 4c 27 0a THEN 'FAIL'.
7e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e20: 20 20 20 20 20 20 57 48 45 4e 20 28 53 45 4c 45 WHEN (SELE
7e30: 43 54 20 70 61 73 73 5f 63 6f 75 6e 74 20 46 52 CT pass_count FR
7e40: 4f 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 69 OM tests WHERE i
7e50: 64 3d 3f 29 20 3e 20 30 20 41 4e 44 20 0a 20 20 d=?) > 0 AND .
7e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e70: 20 20 20 20 20 20 20 20 20 28 53 45 4c 45 43 54 (SELECT
7e80: 20 73 74 61 74 75 73 20 46 52 4f 4d 20 74 65 73 status FROM tes
7e90: 74 73 20 57 48 45 52 45 20 69 64 3d 3f 29 20 4e ts WHERE id=?) N
7ea0: 4f 54 20 49 4e 20 28 27 57 41 52 4e 27 2c 27 46 OT IN ('WARN','F
7eb0: 41 49 4c 27 29 0a 20 20 20 20 20 20 20 20 20 20 AIL').
7ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
7ed0: 48 45 4e 20 27 50 41 53 53 27 0a 20 20 20 20 20 HEN 'PASS'.
7ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7ef0: 20 45 4c 53 45 20 73 74 61 74 75 73 0a 20 20 20 ELSE status.
7f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
7f10: 4e 44 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 0a ND WHERE id=?;".
7f20: 20 20 20 74 65 73 74 2d 69 64 20 74 65 73 74 2d test-id test-
7f30: 69 64 20 74 65 73 74 2d 69 64 20 74 65 73 74 2d id test-id test-
7f40: 69 64 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 id))..(define (d
7f50: 62 3a 67 65 74 2d 70 72 65 76 2d 74 6f 6c 2d 66 b:get-prev-tol-f
7f60: 6f 72 2d 74 65 73 74 20 64 62 20 74 65 73 74 2d or-test db test-
7f70: 69 64 20 63 61 74 65 67 6f 72 79 20 76 61 72 69 id category vari
7f80: 61 62 6c 65 29 0a 20 20 3b 3b 20 46 69 6e 69 73 able). ;; Finis
7f90: 68 20 6d 65 3f 0a 20 20 28 76 61 6c 75 65 73 20 h me?. (values
7fa0: 23 66 20 23 66 20 23 66 29 29 0a 0a 3b 3b 3d 3d #f #f #f))..;;==
7fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7ff0: 3d 3d 3d 3d 0a 3b 3b 20 53 20 54 20 45 20 50 20 ====.;; S T E P
8000: 53 20 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d S .;;===========
8010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
8040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 ===========..(de
8050: 66 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 67 65 fine (db:step-ge
8060: 74 2d 74 69 6d 65 2d 61 73 2d 73 74 72 69 6e 67 t-time-as-string
8070: 20 76 65 63 29 0a 20 20 28 73 65 63 6f 6e 64 73 vec). (seconds
8080: 2d 3e 74 69 6d 65 2d 73 74 72 69 6e 67 20 28 64 ->time-string (d
8090: 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 b:step-get-event
80a0: 5f 74 69 6d 65 20 76 65 63 29 29 29 0a 0a 3b 3b _time vec)))..;;
80b0: 20 64 62 2d 67 65 74 2d 74 65 73 74 2d 73 74 65 db-get-test-ste
80c0: 70 73 2d 66 6f 72 2d 72 75 6e 0a 28 64 65 66 69 ps-for-run.(defi
80d0: 6e 65 20 28 64 62 3a 67 65 74 2d 73 74 65 70 73 ne (db:get-steps
80e0: 2d 66 6f 72 2d 74 65 73 74 20 64 62 20 74 65 73 -for-test db tes
80f0: 74 2d 69 64 29 0a 20 20 28 6c 65 74 20 28 28 72 t-id). (let ((r
8100: 65 73 20 27 28 29 29 29 0a 20 20 20 20 28 73 71 es '())). (sq
8110: 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 lite3:for-each-r
8120: 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 ow . (lambda
8130: 20 28 69 64 20 74 65 73 74 2d 69 64 20 73 74 65 (id test-id ste
8140: 70 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 pname state stat
8150: 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 6c 6f us event-time lo
8160: 67 66 69 6c 65 29 0a 20 20 20 20 20 20 20 28 73 gfile). (s
8170: 65 74 21 20 72 65 73 20 28 63 6f 6e 73 20 28 76 et! res (cons (v
8180: 65 63 74 6f 72 20 69 64 20 74 65 73 74 2d 69 64 ector id test-id
8190: 20 73 74 65 70 6e 61 6d 65 20 73 74 61 74 65 20 stepname state
81a0: 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 6d status event-tim
81b0: 65 20 28 69 66 20 28 73 74 72 69 6e 67 3f 20 6c e (if (string? l
81c0: 6f 67 66 69 6c 65 29 20 6c 6f 67 66 69 6c 65 20 ogfile) logfile
81d0: 22 22 29 29 20 72 65 73 29 29 29 0a 20 20 20 20 "")) res))).
81e0: 20 64 62 0a 20 20 20 20 20 22 53 45 4c 45 43 54 db. "SELECT
81f0: 20 69 64 2c 74 65 73 74 5f 69 64 2c 73 74 65 70 id,test_id,step
8200: 6e 61 6d 65 2c 73 74 61 74 65 2c 73 74 61 74 75 name,state,statu
8210: 73 2c 65 76 65 6e 74 5f 74 69 6d 65 2c 6c 6f 67 s,event_time,log
8220: 66 69 6c 65 20 46 52 4f 4d 20 74 65 73 74 5f 73 file FROM test_s
8230: 74 65 70 73 20 57 48 45 52 45 20 74 65 73 74 5f teps WHERE test_
8240: 69 64 3d 3f 20 4f 52 44 45 52 20 42 59 20 69 64 id=? ORDER BY id
8250: 20 41 53 43 3b 22 20 3b 3b 20 65 76 65 6e 74 5f ASC;" ;; event_
8260: 74 69 6d 65 20 44 45 53 43 2c 69 64 20 41 53 43 time DESC,id ASC
8270: 3b 0a 20 20 20 20 20 74 65 73 74 2d 69 64 29 0a ;. test-id).
8280: 20 20 20 20 28 72 65 76 65 72 73 65 20 72 65 73 (reverse res
8290: 29 29 29 0a 0a 3b 3b 20 67 65 74 20 61 20 70 72 )))..;; get a pr
82a0: 65 74 74 79 20 74 61 62 6c 65 20 74 6f 20 73 75 etty table to su
82b0: 6d 6d 61 72 69 7a 65 20 73 74 65 70 73 0a 3b 3b mmarize steps.;;
82c0: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 .(define (db:get
82d0: 2d 73 74 65 70 73 2d 74 61 62 6c 65 20 64 62 20 -steps-table db
82e0: 74 65 73 74 2d 69 64 29 0a 20 20 28 6c 65 74 20 test-id). (let
82f0: 28 28 73 74 65 70 73 20 20 20 28 64 62 3a 67 65 ((steps (db:ge
8300: 74 2d 73 74 65 70 73 2d 66 6f 72 2d 74 65 73 74 t-steps-for-test
8310: 20 64 62 20 74 65 73 74 2d 69 64 29 29 29 0a 20 db test-id))).
8320: 20 20 20 3b 3b 20 6f 72 67 61 6e 69 73 65 20 74 ;; organise t
8330: 68 65 20 73 74 65 70 73 20 66 6f 72 20 62 65 74 he steps for bet
8340: 74 65 72 20 72 65 61 64 61 62 69 6c 69 74 79 0a ter readability.
8350: 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 20 28 (let ((res (
8360: 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 make-hash-table)
8370: 29 29 0a 20 20 20 20 20 20 28 66 6f 72 2d 65 61 )). (for-ea
8380: 63 68 20 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 ch . (lamb
8390: 64 61 20 28 73 74 65 70 29 0a 09 20 28 64 65 62 da (step).. (deb
83a0: 75 67 3a 70 72 69 6e 74 20 36 20 22 73 74 65 70 ug:print 6 "step
83b0: 3d 22 20 73 74 65 70 29 0a 09 20 28 6c 65 74 20 =" step).. (let
83c0: 28 28 72 65 63 6f 72 64 20 28 68 61 73 68 2d 74 ((record (hash-t
83d0: 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 75 6c 74 able-ref/default
83e0: 20 0a 09 09 09 72 65 73 20 0a 09 09 09 28 64 62 ....res ....(db
83f0: 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 :step-get-stepna
8400: 6d 65 20 73 74 65 70 29 20 0a 09 09 09 3b 3b 20 me step) ....;;
8410: 20 20 20 20 20 20 20 73 74 65 70 6e 61 6d 65 20 stepname
8420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
8430: 74 61 72 74 20 65 6e 64 20 73 74 61 74 75 73 20 tart end status
8440: 20 20 20 0a 09 09 09 28 76 65 63 74 6f 72 20 28 ....(vector (
8450: 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 db:step-get-step
8460: 6e 61 6d 65 20 73 74 65 70 29 20 22 22 20 20 20 name step) ""
8470: 22 22 20 22 22 20 20 20 20 20 22 22 20 22 22 29 "" "" "" "")
8480: 29 29 29 0a 09 20 20 20 28 64 65 62 75 67 3a 70 ))).. (debug:p
8490: 72 69 6e 74 20 36 20 22 72 65 63 6f 72 64 28 62 rint 6 "record(b
84a0: 65 66 6f 72 65 29 20 3d 20 22 20 72 65 63 6f 72 efore) = " recor
84b0: 64 20 0a 09 09 09 22 5c 6e 69 64 3a 20 20 20 20 d ...."\nid:
84c0: 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 " (db:step-ge
84d0: 74 2d 69 64 20 73 74 65 70 29 0a 09 09 09 22 5c t-id step)...."\
84e0: 6e 73 74 65 70 6e 61 6d 65 3a 20 22 20 28 64 62 nstepname: " (db
84f0: 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 :step-get-stepna
8500: 6d 65 20 73 74 65 70 29 0a 09 09 09 22 5c 6e 73 me step)...."\ns
8510: 74 61 74 65 3a 20 20 20 20 22 20 28 64 62 3a 73 tate: " (db:s
8520: 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 74 tep-get-state st
8530: 65 70 29 0a 09 09 09 22 5c 6e 73 74 61 74 75 73 ep)...."\nstatus
8540: 3a 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 : " (db:step-g
8550: 65 74 2d 73 74 61 74 75 73 20 73 74 65 70 29 0a et-status step).
8560: 09 09 09 22 5c 6e 74 69 6d 65 3a 20 20 20 20 20 ..."\ntime:
8570: 22 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 " (db:step-get-e
8580: 76 65 6e 74 5f 74 69 6d 65 20 73 74 65 70 29 29 vent_time step))
8590: 0a 09 20 20 20 28 63 61 73 65 20 28 73 74 72 69 .. (case (stri
85a0: 6e 67 2d 3e 73 79 6d 62 6f 6c 20 28 64 62 3a 73 ng->symbol (db:s
85b0: 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 74 tep-get-state st
85c0: 65 70 29 29 0a 09 20 20 20 20 20 28 28 73 74 61 ep)).. ((sta
85d0: 72 74 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 rt)(vector-set!
85e0: 72 65 63 6f 72 64 20 31 20 28 64 62 3a 73 74 65 record 1 (db:ste
85f0: 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 p-get-event_time
8600: 20 73 74 65 70 29 29 0a 09 20 20 20 20 20 20 28 step)).. (
8610: 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f vector-set! reco
8620: 72 64 20 33 20 28 69 66 20 28 65 71 75 61 6c 3f rd 3 (if (equal?
8630: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 65 63 (vector-ref rec
8640: 6f 72 64 20 33 29 20 22 22 29 0a 09 09 09 09 09 ord 3) "")......
8650: 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 (db:step-get-sta
8660: 74 75 73 20 73 74 65 70 29 29 29 0a 09 20 20 20 tus step)))..
8670: 20 20 20 28 69 66 20 28 3e 20 28 73 74 72 69 6e (if (> (strin
8680: 67 2d 6c 65 6e 67 74 68 20 28 64 62 3a 73 74 65 g-length (db:ste
8690: 70 2d 67 65 74 2d 6c 6f 67 66 69 6c 65 20 73 74 p-get-logfile st
86a0: 65 70 29 29 0a 09 09 20 20 20 20 20 30 29 0a 09 ep))... 0)..
86b0: 09 20 20 28 76 65 63 74 6f 72 2d 73 65 74 21 20 . (vector-set!
86c0: 72 65 63 6f 72 64 20 35 20 28 64 62 3a 73 74 65 record 5 (db:ste
86d0: 70 2d 67 65 74 2d 6c 6f 67 66 69 6c 65 20 73 74 p-get-logfile st
86e0: 65 70 29 29 29 29 0a 09 20 20 20 20 20 28 28 65 ep)))).. ((e
86f0: 6e 64 29 20 20 0a 09 20 20 20 20 20 20 28 76 65 nd) .. (ve
8700: 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 64 ctor-set! record
8710: 20 32 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 20 2 (any->number
8720: 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 (db:step-get-eve
8730: 6e 74 5f 74 69 6d 65 20 73 74 65 70 29 29 29 0a nt_time step))).
8740: 09 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 . (vector-s
8750: 65 74 21 20 72 65 63 6f 72 64 20 33 20 28 64 62 et! record 3 (db
8760: 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 :step-get-status
8770: 20 73 74 65 70 29 29 0a 09 20 20 20 20 20 20 28 step)).. (
8780: 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f vector-set! reco
8790: 72 64 20 34 20 28 6c 65 74 20 28 28 73 74 61 72 rd 4 (let ((star
87a0: 74 74 20 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 20 tt (any->number
87b0: 28 76 65 63 74 6f 72 2d 72 65 66 20 72 65 63 6f (vector-ref reco
87c0: 72 64 20 31 29 29 29 0a 09 09 09 09 09 20 20 28 rd 1)))...... (
87d0: 65 6e 64 74 20 20 20 28 61 6e 79 2d 3e 6e 75 6d endt (any->num
87e0: 62 65 72 20 28 76 65 63 74 6f 72 2d 72 65 66 20 ber (vector-ref
87f0: 72 65 63 6f 72 64 20 32 29 29 29 29 0a 09 09 09 record 2))))....
8800: 09 20 20 20 20 20 20 28 64 65 62 75 67 3a 70 72 . (debug:pr
8810: 69 6e 74 20 34 20 22 72 65 63 6f 72 64 5b 31 5d int 4 "record[1]
8820: 3d 22 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 =" (vector-ref r
8830: 65 63 6f 72 64 20 31 29 20 0a 09 09 09 09 09 09 ecord 1) .......
8840: 20 20 20 22 2c 20 73 74 61 72 74 74 3d 22 20 73 ", startt=" s
8850: 74 61 72 74 74 20 22 2c 20 65 6e 64 74 3d 22 20 tartt ", endt="
8860: 65 6e 64 74 0a 09 09 09 09 09 09 20 20 20 22 2c endt....... ",
8870: 20 67 65 74 2d 73 74 61 74 75 73 3a 20 22 20 28 get-status: " (
8880: 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 db:step-get-stat
8890: 75 73 20 73 74 65 70 29 29 0a 09 09 09 09 20 20 us step)).....
88a0: 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 6e 75 (if (and (nu
88b0: 6d 62 65 72 3f 20 73 74 61 72 74 74 29 28 6e 75 mber? startt)(nu
88c0: 6d 62 65 72 3f 20 65 6e 64 74 29 29 0a 09 09 09 mber? endt))....
88d0: 09 09 20 20 28 73 65 63 6f 6e 64 73 2d 3e 68 72 .. (seconds->hr
88e0: 2d 6d 69 6e 2d 73 65 63 20 28 2d 20 65 6e 64 74 -min-sec (- endt
88f0: 20 73 74 61 72 74 74 29 29 20 22 2d 31 22 29 29 startt)) "-1"))
8900: 29 0a 09 20 20 20 20 20 20 28 69 66 20 28 3e 20 ).. (if (>
8910: 28 73 74 72 69 6e 67 2d 6c 65 6e 67 74 68 20 28 (string-length (
8920: 64 62 3a 73 74 65 70 2d 67 65 74 2d 6c 6f 67 66 db:step-get-logf
8930: 69 6c 65 20 73 74 65 70 29 29 0a 09 09 20 20 20 ile step))...
8940: 20 20 30 29 0a 09 09 20 20 28 76 65 63 74 6f 72 0)... (vector
8950: 2d 73 65 74 21 20 72 65 63 6f 72 64 20 35 20 28 -set! record 5 (
8960: 64 62 3a 73 74 65 70 2d 67 65 74 2d 6c 6f 67 66 db:step-get-logf
8970: 69 6c 65 20 73 74 65 70 29 29 29 29 0a 09 20 20 ile step))))..
8980: 20 20 20 28 65 6c 73 65 0a 09 20 20 20 20 20 20 (else..
8990: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 (vector-set! rec
89a0: 6f 72 64 20 32 20 28 64 62 3a 73 74 65 70 2d 67 ord 2 (db:step-g
89b0: 65 74 2d 73 74 61 74 65 20 73 74 65 70 29 29 0a et-state step)).
89c0: 09 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 . (vector-s
89d0: 65 74 21 20 72 65 63 6f 72 64 20 33 20 28 64 62 et! record 3 (db
89e0: 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 :step-get-status
89f0: 20 73 74 65 70 29 29 0a 09 20 20 20 20 20 20 28 step)).. (
8a00: 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f vector-set! reco
8a10: 72 64 20 34 20 28 64 62 3a 73 74 65 70 2d 67 65 rd 4 (db:step-ge
8a20: 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 73 74 65 t-event_time ste
8a30: 70 29 29 29 29 0a 09 20 20 20 28 68 61 73 68 2d p)))).. (hash-
8a40: 74 61 62 6c 65 2d 73 65 74 21 20 72 65 73 20 28 table-set! res (
8a50: 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 db:step-get-step
8a60: 6e 61 6d 65 20 73 74 65 70 29 20 72 65 63 6f 72 name step) recor
8a70: 64 29 0a 09 20 20 20 28 64 65 62 75 67 3a 70 72 d).. (debug:pr
8a80: 69 6e 74 20 36 20 22 72 65 63 6f 72 64 28 61 66 int 6 "record(af
8a90: 74 65 72 29 20 20 3d 20 22 20 72 65 63 6f 72 64 ter) = " record
8aa0: 20 0a 09 09 09 22 5c 6e 69 64 3a 20 20 20 20 20 ...."\nid:
8ab0: 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 74 " (db:step-get
8ac0: 2d 69 64 20 73 74 65 70 29 0a 09 09 09 22 5c 6e -id step)...."\n
8ad0: 73 74 65 70 6e 61 6d 65 3a 20 22 20 28 64 62 3a stepname: " (db:
8ae0: 73 74 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 6d step-get-stepnam
8af0: 65 20 73 74 65 70 29 0a 09 09 09 22 5c 6e 73 74 e step)...."\nst
8b00: 61 74 65 3a 20 20 20 20 22 20 28 64 62 3a 73 74 ate: " (db:st
8b10: 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 74 65 ep-get-state ste
8b20: 70 29 0a 09 09 09 22 5c 6e 73 74 61 74 75 73 3a p)...."\nstatus:
8b30: 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 " (db:step-ge
8b40: 74 2d 73 74 61 74 75 73 20 73 74 65 70 29 0a 09 t-status step)..
8b50: 09 09 22 5c 6e 74 69 6d 65 3a 20 20 20 20 20 22 .."\ntime: "
8b60: 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 (db:step-get-ev
8b70: 65 6e 74 5f 74 69 6d 65 20 73 74 65 70 29 29 29 ent_time step)))
8b80: 29 0a 20 20 20 20 20 20 20 3b 3b 20 28 65 6c 73 ). ;; (els
8b90: 65 20 20 20 28 76 65 63 74 6f 72 2d 73 65 74 21 e (vector-set!
8ba0: 20 72 65 63 6f 72 64 20 31 20 28 64 62 3a 73 74 record 1 (db:st
8bb0: 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d ep-get-event_tim
8bc0: 65 20 73 74 65 70 29 29 29 0a 20 20 20 20 20 20 e step))).
8bd0: 20 28 73 6f 72 74 20 73 74 65 70 73 20 28 6c 61 (sort steps (la
8be0: 6d 62 64 61 20 28 61 20 62 29 28 3c 20 28 64 62 mbda (a b)(< (db
8bf0: 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f :step-get-event_
8c00: 74 69 6d 65 20 61 29 28 64 62 3a 73 74 65 70 2d time a)(db:step-
8c10: 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 62 get-event_time b
8c20: 29 29 29 29 29 0a 20 20 20 20 20 20 72 65 73 29 ))))). res)
8c30: 29 29 0a 0a 3b 3b 20 55 53 45 3a 20 28 6c 73 65 ))..;; USE: (lse
8c40: 74 2d 64 69 66 66 65 72 65 6e 63 65 20 73 74 72 t-difference str
8c50: 69 6e 67 3d 3f 20 27 28 22 61 22 20 22 62 22 20 ing=? '("a" "b"
8c60: 22 63 22 29 20 27 28 22 64 22 20 22 63 22 20 22 "c") '("d" "c" "
8c70: 65 22 20 22 61 22 29 29 0a 3b 3b 0a 3b 3b 20 52 e" "a")).;;.;; R
8c80: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
8c90: 70 72 65 72 65 71 73 20 74 68 61 74 20 77 65 72 prereqs that wer
8ca0: 65 20 4e 4f 54 20 6d 65 74 0a 3b 3b 20 20 54 65 e NOT met.;; Te
8cb0: 73 74 73 20 28 61 6e 64 20 61 6c 6c 20 69 74 65 sts (and all ite
8cc0: 6d 73 29 20 69 6e 20 77 61 69 74 6f 6e 20 6c 69 ms) in waiton li
8cd0: 73 74 20 6d 75 73 74 20 62 65 20 22 43 4f 4d 50 st must be "COMP
8ce0: 4c 45 54 45 44 22 20 61 6e 64 20 22 50 41 53 53 LETED" and "PASS
8cf0: 22 0a 28 64 65 66 69 6e 65 20 28 64 62 2d 67 65 ".(define (db-ge
8d00: 74 2d 70 72 65 72 65 71 73 2d 6e 6f 74 2d 6d 65 t-prereqs-not-me
8d10: 74 20 64 62 20 72 75 6e 2d 69 64 20 77 61 69 74 t db run-id wait
8d20: 6f 6e 29 0a 20 20 28 69 66 20 28 6e 75 6c 6c 3f on). (if (null?
8d30: 20 77 61 69 74 6f 6e 29 0a 20 20 20 20 20 20 27 waiton). '
8d40: 28 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 (). (let* (
8d50: 28 75 6e 6d 65 74 2d 70 72 65 2d 72 65 71 73 20 (unmet-pre-reqs
8d60: 27 28 29 29 0a 09 20 20 20 20 20 28 74 65 73 74 '()).. (test
8d70: 73 20 20 20 20 20 20 20 20 20 20 20 28 64 62 2d s (db-
8d80: 67 65 74 2d 74 65 73 74 73 2d 66 6f 72 2d 72 75 get-tests-for-ru
8d90: 6e 20 64 62 20 72 75 6e 2d 69 64 20 23 66 20 23 n db run-id #f #
8da0: 66 20 27 28 29 20 27 28 29 29 29 0a 09 20 20 20 f '() '()))..
8db0: 20 20 28 72 65 73 75 6c 74 20 20 20 20 20 20 20 (result
8dc0: 20 20 27 28 29 29 29 0a 09 28 66 6f 72 2d 65 61 '()))..(for-ea
8dd0: 63 68 20 28 6c 61 6d 62 64 61 20 28 77 61 69 74 ch (lambda (wait
8de0: 6f 6e 74 65 73 74 2d 6e 61 6d 65 29 0a 09 09 20 ontest-name)...
8df0: 20 20 20 28 6c 65 74 20 28 28 65 76 65 72 2d 73 (let ((ever-s
8e00: 65 65 6e 20 23 66 29 29 0a 09 09 20 20 20 20 20 een #f))...
8e10: 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 (for-each (lamb
8e20: 64 61 20 28 74 65 73 74 29 0a 09 09 09 09 20 20 da (test).....
8e30: 28 69 66 20 28 65 71 75 61 6c 3f 20 77 61 69 74 (if (equal? wait
8e40: 6f 6e 74 65 73 74 2d 6e 61 6d 65 20 28 64 62 3a ontest-name (db:
8e50: 74 65 73 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d test-get-testnam
8e60: 65 20 74 65 73 74 29 29 0a 09 09 09 09 20 20 20 e test)).....
8e70: 20 20 20 28 62 65 67 69 6e 0a 09 09 09 09 09 28 (begin......(
8e80: 73 65 74 21 20 65 76 65 72 2d 73 65 65 6e 20 23 set! ever-seen #
8e90: 74 29 0a 09 09 09 09 09 28 69 66 20 28 6e 6f 74 t)......(if (not
8ea0: 20 28 61 6e 64 20 28 65 71 75 61 6c 3f 20 28 64 (and (equal? (d
8eb0: 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 61 74 65 b:test-get-state
8ec0: 20 74 65 73 74 29 20 22 43 4f 4d 50 4c 45 54 45 test) "COMPLETE
8ed0: 44 22 29 0a 09 09 09 09 09 09 20 20 20 20 20 20 D").......
8ee0: 28 6d 65 6d 62 65 72 20 28 64 62 3a 74 65 73 74 (member (db:test
8ef0: 2d 67 65 74 2d 73 74 61 74 75 73 20 74 65 73 74 -get-status test
8f00: 29 20 27 28 22 50 41 53 53 22 20 22 57 41 52 4e ) '("PASS" "WARN
8f10: 22 20 22 43 48 45 43 4b 22 29 29 29 29 0a 09 09 " "CHECK"))))...
8f20: 09 09 09 20 20 20 20 28 73 65 74 21 20 72 65 73 ... (set! res
8f30: 75 6c 74 20 28 63 6f 6e 73 20 77 61 69 74 6f 6e ult (cons waiton
8f40: 74 65 73 74 2d 6e 61 6d 65 20 72 65 73 75 6c 74 test-name result
8f50: 29 29 29 29 29 29 0a 09 09 09 09 74 65 73 74 73 )))))).....tests
8f60: 29 0a 09 09 20 20 20 20 20 20 28 69 66 20 28 6e )... (if (n
8f70: 6f 74 20 65 76 65 72 2d 73 65 65 6e 29 28 73 65 ot ever-seen)(se
8f80: 74 21 20 72 65 73 75 6c 74 20 28 63 6f 6e 73 20 t! result (cons
8f90: 77 61 69 74 6f 6e 74 65 73 74 2d 6e 61 6d 65 20 waitontest-name
8fa0: 72 65 73 75 6c 74 29 29 29 29 29 0a 09 09 20 20 result)))))...
8fb0: 77 61 69 74 6f 6e 29 0a 09 28 64 65 6c 65 74 65 waiton)..(delete
8fc0: 2d 64 75 70 6c 69 63 61 74 65 73 20 72 65 73 75 -duplicates resu
8fd0: 6c 74 29 29 29 29 0a 0a 3b 3b 20 74 68 65 20 6e lt))))..;; the n
8fe0: 65 77 20 70 72 65 72 65 71 73 20 63 61 6c 63 75 ew prereqs calcu
8ff0: 6c 61 74 69 6f 6e 2c 20 6c 6f 6f 6b 73 20 61 6c lation, looks al
9000: 73 6f 20 61 74 20 69 74 65 6d 70 61 74 68 20 69 so at itempath i
9010: 66 20 73 70 65 63 69 66 69 65 64 0a 3b 3b 20 61 f specified.;; a
9020: 6c 6c 20 70 72 65 72 65 71 73 20 6d 75 73 74 20 ll prereqs must
9030: 62 65 20 6d 65 74 3a 0a 3b 3b 20 20 20 20 69 66 be met:.;; if
9040: 20 70 72 65 72 65 71 20 74 65 73 74 20 77 69 74 prereq test wit
9050: 68 20 69 74 65 6d 70 61 74 68 3d 27 27 20 69 73 h itempath='' is
9060: 20 43 4f 4d 50 4c 45 54 45 44 20 61 6e 64 20 50 COMPLETED and P
9070: 41 53 53 2c 20 57 41 52 4e 2c 20 43 48 45 43 4b ASS, WARN, CHECK
9080: 2c 20 6f 72 20 57 41 49 56 45 44 20 74 68 65 6e , or WAIVED then
9090: 20 70 72 65 72 65 71 20 69 73 20 6d 65 74 0a 3b prereq is met.;
90a0: 3b 20 20 20 20 69 66 20 70 72 65 72 65 71 20 74 ; if prereq t
90b0: 65 73 74 20 77 69 74 68 20 69 74 65 6d 70 61 74 est with itempat
90c0: 68 3d 72 65 66 2d 69 74 65 6d 2d 70 61 74 68 20 h=ref-item-path
90d0: 61 6e 64 20 43 4f 4d 50 4c 45 54 45 44 20 77 69 and COMPLETED wi
90e0: 74 68 20 50 41 53 53 2c 20 57 41 52 4e 2c 20 43 th PASS, WARN, C
90f0: 48 45 43 4b 2c 20 6f 72 20 57 41 49 56 45 44 20 HECK, or WAIVED
9100: 74 68 65 6e 20 70 72 65 72 65 71 20 69 73 20 6d then prereq is m
9110: 65 74 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 et.(define (db:g
9120: 65 74 2d 70 72 65 72 65 71 73 2d 6e 6f 74 2d 6d et-prereqs-not-m
9130: 65 74 20 64 62 20 72 75 6e 2d 69 64 20 77 61 69 et db run-id wai
9140: 74 6f 6e 73 20 72 65 66 2d 69 74 65 6d 2d 70 61 tons ref-item-pa
9150: 74 68 29 0a 20 20 28 69 66 20 28 6f 72 20 28 6e th). (if (or (n
9160: 6f 74 20 77 61 69 74 6f 6e 73 29 0a 09 20 20 28 ot waitons).. (
9170: 6e 75 6c 6c 3f 20 77 61 69 74 6f 6e 73 29 29 0a null? waitons)).
9180: 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 20 20 '().
9190: 28 6c 65 74 2a 20 28 28 75 6e 6d 65 74 2d 70 72 (let* ((unmet-pr
91a0: 65 2d 72 65 71 73 20 27 28 29 29 0a 09 20 20 20 e-reqs '())..
91b0: 20 20 28 72 65 73 75 6c 74 20 20 20 20 20 20 20 (result
91c0: 20 20 27 28 29 29 29 0a 09 28 66 6f 72 2d 65 61 '()))..(for-ea
91d0: 63 68 20 0a 09 20 28 6c 61 6d 62 64 61 20 28 77 ch .. (lambda (w
91e0: 61 69 74 6f 6e 74 65 73 74 2d 6e 61 6d 65 29 0a aitontest-name).
91f0: 09 20 20 20 3b 3b 20 62 79 20 67 65 74 74 69 6e . ;; by gettin
9200: 67 20 74 68 65 20 74 65 73 74 73 20 77 69 74 68 g the tests with
9210: 20 6d 61 74 63 68 69 6e 67 20 6e 61 6d 65 20 77 matching name w
9220: 65 20 61 72 65 20 6c 6f 6f 6b 69 6e 67 20 6f 6e e are looking on
9230: 6c 79 20 61 74 20 74 68 65 20 6d 61 74 63 68 69 ly at the matchi
9240: 6e 67 20 74 65 73 74 20 0a 09 20 20 20 3b 3b 20 ng test .. ;;
9250: 61 6e 64 20 72 65 6c 61 74 65 64 20 73 75 62 20 and related sub
9260: 69 74 65 6d 73 0a 09 20 20 20 28 6c 65 74 20 28 items.. (let (
9270: 28 74 65 73 74 73 20 20 20 20 20 20 20 20 20 20 (tests
9280: 20 20 20 28 64 62 2d 67 65 74 2d 74 65 73 74 73 (db-get-tests
9290: 2d 66 6f 72 2d 72 75 6e 20 64 62 20 72 75 6e 2d -for-run db run-
92a0: 69 64 20 77 61 69 74 6f 6e 74 65 73 74 2d 6e 61 id waitontest-na
92b0: 6d 65 20 23 66 20 27 28 29 20 27 28 29 29 29 0a me #f '() '())).
92c0: 09 09 20 28 65 76 65 72 2d 73 65 65 6e 20 20 20 .. (ever-seen
92d0: 20 20 20 20 20 20 23 66 29 0a 09 09 20 28 70 61 #f)... (pa
92e0: 72 65 6e 74 2d 77 61 69 74 6f 6e 2d 6d 65 74 20 rent-waiton-met
92f0: 23 66 29 0a 09 09 20 28 69 74 65 6d 2d 77 61 69 #f)... (item-wai
9300: 74 6f 6e 2d 6d 65 74 20 20 20 23 66 29 29 0a 09 ton-met #f))..
9310: 20 20 20 20 20 28 66 6f 72 2d 65 61 63 68 20 0a (for-each .
9320: 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 . (lambda (
9330: 74 65 73 74 29 0a 09 09 3b 3b 20 28 69 66 20 28 test)...;; (if (
9340: 65 71 75 61 6c 3f 20 77 61 69 74 6f 6e 74 65 73 equal? waitontes
9350: 74 2d 6e 61 6d 65 20 28 64 62 3a 74 65 73 74 2d t-name (db:test-
9360: 67 65 74 2d 74 65 73 74 6e 61 6d 65 20 74 65 73 get-testname tes
9370: 74 29 29 20 3b 3b 20 62 79 20 64 65 66 69 6e 74 t)) ;; by defint
9380: 69 6f 6e 20 74 68 69 73 20 68 61 64 20 62 65 74 ion this had bet
9390: 74 65 72 20 62 65 20 74 72 75 65 20 2e 2e 2e 0a ter be true ....
93a0: 09 09 28 6c 65 74 2a 20 28 28 73 74 61 74 65 20 ..(let* ((state
93b0: 20 20 20 20 20 20 20 20 20 20 20 20 28 64 62 3a (db:
93c0: 74 65 73 74 2d 67 65 74 2d 73 74 61 74 65 20 74 test-get-state t
93d0: 65 73 74 29 29 0a 09 09 20 20 20 20 20 20 20 28 est))... (
93e0: 73 74 61 74 75 73 20 20 20 20 20 20 20 20 20 20 status
93f0: 20 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 (db:test-get-s
9400: 74 61 74 75 73 20 74 65 73 74 29 29 0a 09 09 20 tatus test))...
9410: 20 20 20 20 20 20 28 69 74 65 6d 2d 70 61 74 68 (item-path
9420: 20 20 20 20 20 20 20 20 20 28 64 62 3a 74 65 73 (db:tes
9430: 74 2d 67 65 74 2d 69 74 65 6d 2d 70 61 74 68 20 t-get-item-path
9440: 74 65 73 74 29 29 0a 09 09 20 20 20 20 20 20 20 test))...
9450: 28 69 73 2d 63 6f 6d 70 6c 65 74 65 64 20 20 20 (is-completed
9460: 20 20 20 28 65 71 75 61 6c 3f 20 73 74 61 74 65 (equal? state
9470: 20 22 43 4f 4d 50 4c 45 54 45 44 22 29 29 0a 09 "COMPLETED"))..
9480: 09 20 20 20 20 20 20 20 28 69 73 2d 6f 6b 20 20 . (is-ok
9490: 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 (memb
94a0: 65 72 20 73 74 61 74 75 73 20 27 28 22 50 41 53 er status '("PAS
94b0: 53 22 20 22 57 41 52 4e 22 20 22 43 48 45 43 4b S" "WARN" "CHECK
94c0: 22 20 22 57 41 49 56 45 44 22 29 29 29 0a 09 09 " "WAIVED")))...
94d0: 20 20 20 20 20 20 20 28 73 61 6d 65 2d 69 74 65 (same-ite
94e0: 6d 70 61 74 68 20 20 20 20 20 28 65 71 75 61 6c mpath (equal
94f0: 3f 20 72 65 66 2d 69 74 65 6d 2d 70 61 74 68 20 ? ref-item-path
9500: 69 74 65 6d 2d 70 61 74 68 29 29 29 0a 09 09 20 item-path)))...
9510: 20 28 73 65 74 21 20 65 76 65 72 2d 73 65 65 6e (set! ever-seen
9520: 20 23 74 29 0a 09 09 20 20 28 63 6f 6e 64 0a 09 #t)... (cond..
9530: 09 20 20 20 3b 3b 20 63 61 73 65 20 31 2c 20 6e . ;; case 1, n
9540: 6f 6e 2d 69 74 65 6d 20 28 70 61 72 65 6e 74 20 on-item (parent
9550: 74 65 73 74 29 20 69 73 20 0a 09 09 20 20 20 28 test) is ... (
9560: 28 61 6e 64 20 28 65 71 75 61 6c 3f 20 69 74 65 (and (equal? ite
9570: 6d 2d 70 61 74 68 20 22 22 29 20 3b 3b 20 74 68 m-path "") ;; th
9580: 69 73 20 69 73 20 74 68 65 20 70 61 72 65 6e 74 is is the parent
9590: 20 74 65 73 74 0a 09 09 09 20 69 73 2d 63 6f 6d test.... is-com
95a0: 70 6c 65 74 65 64 0a 09 09 09 20 69 73 2d 6f 6b pleted.... is-ok
95b0: 29 0a 09 09 20 20 20 20 28 73 65 74 21 20 70 61 )... (set! pa
95c0: 72 65 6e 74 2d 77 61 69 74 6f 6e 2d 6d 65 74 20 rent-waiton-met
95d0: 23 74 29 29 0a 09 09 20 20 20 28 28 61 6e 64 20 #t))... ((and
95e0: 73 61 6d 65 2d 69 74 65 6d 70 61 74 68 0a 09 09 same-itempath...
95f0: 09 20 69 73 2d 63 6f 6d 70 6c 65 74 65 64 0a 09 . is-completed..
9600: 09 09 20 69 73 2d 6f 6b 29 0a 09 09 20 20 20 20 .. is-ok)...
9610: 28 73 65 74 21 20 69 74 65 6d 2d 77 61 69 74 6f (set! item-waito
9620: 6e 2d 6d 65 74 20 23 74 29 29 29 29 29 0a 09 20 n-met #t)))))..
9630: 20 20 20 20 20 74 65 73 74 73 29 0a 09 20 20 20 tests)..
9640: 20 20 28 69 66 20 28 6e 6f 74 20 28 6f 72 20 70 (if (not (or p
9650: 61 72 65 6e 74 2d 77 61 69 74 6f 6e 2d 6d 65 74 arent-waiton-met
9660: 20 69 74 65 6d 2d 77 61 69 74 6f 6e 2d 6d 65 74 item-waiton-met
9670: 29 29 0a 09 09 20 28 73 65 74 21 20 72 65 73 75 ))... (set! resu
9680: 6c 74 20 28 63 6f 6e 73 20 77 61 69 74 6f 6e 74 lt (cons waitont
9690: 65 73 74 2d 6e 61 6d 65 20 72 65 73 75 6c 74 29 est-name result)
96a0: 29 29 0a 09 20 20 20 20 20 3b 3b 20 69 66 20 74 )).. ;; if t
96b0: 68 65 20 74 65 73 74 20 69 73 20 6e 6f 74 20 66 he test is not f
96c0: 6f 75 6e 64 20 74 68 65 6e 20 63 6c 65 61 72 6c ound then clearl
96d0: 79 20 74 68 65 20 77 61 69 74 6f 6e 20 69 73 20 y the waiton is
96e0: 6e 6f 74 20 6d 65 74 2e 2e 2e 0a 09 20 20 20 20 not met.....
96f0: 20 28 69 66 20 28 6e 6f 74 20 65 76 65 72 2d 73 (if (not ever-s
9700: 65 65 6e 29 28 73 65 74 21 20 72 65 73 75 6c 74 een)(set! result
9710: 20 28 63 6f 6e 73 20 77 61 69 74 6f 6e 74 65 73 (cons waitontes
9720: 74 2d 6e 61 6d 65 20 72 65 73 75 6c 74 29 29 29 t-name result)))
9730: 29 29 0a 09 77 61 69 74 6f 6e 73 29 0a 20 20 20 ))..waitons).
9740: 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 6c 69 (delete-dupli
9750: 63 61 74 65 73 20 72 65 73 75 6c 74 29 29 29 29 cates result))))
9760: 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ..;;============
9770: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9780: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9790: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
97a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 45 78 ==========.;; Ex
97b0: 74 72 61 63 74 20 6f 64 73 20 66 69 6c 65 20 66 tract ods file f
97c0: 72 6f 6d 20 74 68 65 20 64 62 0a 3b 3b 3d 3d 3d rom the db.;;===
97d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
97e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
97f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9800: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
9810: 3d 3d 3d 0a 0a 3b 3b 20 72 75 6e 73 70 61 74 74 ===..;; runspatt
9820: 20 69 73 20 61 20 63 6f 6d 6d 61 20 64 65 6c 69 is a comma deli
9830: 6d 69 74 65 64 20 6c 69 73 74 20 6f 66 20 72 75 mited list of ru
9840: 6e 20 70 61 74 74 65 72 6e 73 0a 3b 3b 20 6b 65 n patterns.;; ke
9850: 79 70 61 74 74 2d 61 6c 69 73 74 20 6d 75 73 74 ypatt-alist must
9860: 20 63 6f 6e 74 61 69 6e 20 2a 61 6c 6c 2a 20 6b contain *all* k
9870: 65 79 73 20 77 69 74 68 20 61 6e 20 61 73 73 6f eys with an asso
9880: 63 69 61 74 65 64 20 70 61 74 74 65 72 6e 3a 20 ciated pattern:
9890: 27 28 20 28 22 4b 45 59 31 22 20 22 25 22 29 20 '( ("KEY1" "%")
98a0: 2e 2e 20 29 0a 28 64 65 66 69 6e 65 20 28 64 62 .. ).(define (db
98b0: 3a 65 78 74 72 61 63 74 2d 6f 64 73 2d 66 69 6c :extract-ods-fil
98c0: 65 20 64 62 20 6f 75 74 70 75 74 66 69 6c 65 20 e db outputfile
98d0: 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 20 72 75 keypatt-alist ru
98e0: 6e 73 70 61 74 74 20 70 61 74 68 6d 6f 64 29 0a nspatt pathmod).
98f0: 20 20 28 6c 65 74 2a 20 28 28 6b 65 79 73 73 74 (let* ((keysst
9900: 72 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 r (string-inter
9910: 73 70 65 72 73 65 20 28 6d 61 70 20 63 61 72 20 sperse (map car
9920: 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 29 20 22 keypatt-alist) "
9930: 2c 22 29 29 0a 09 20 28 6b 65 79 71 72 79 20 20 ,")).. (keyqry
9940: 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 (string-intersp
9950: 65 72 73 65 20 28 6d 61 70 20 28 6c 61 6d 62 64 erse (map (lambd
9960: 61 20 28 70 29 28 63 6f 6e 63 20 28 63 61 72 20 a (p)(conc (car
9970: 70 29 20 22 20 4c 49 4b 45 20 3f 20 22 29 29 20 p) " LIKE ? "))
9980: 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 29 20 22 keypatt-alist) "
9990: 20 41 4e 44 20 22 29 29 0a 09 20 28 6e 75 6d 6b AND ")).. (numk
99a0: 65 79 73 20 20 28 6c 65 6e 67 74 68 20 6b 65 79 eys (length key
99b0: 70 61 74 74 2d 61 6c 69 73 74 29 29 0a 09 20 28 patt-alist)).. (
99c0: 74 65 73 74 2d 69 64 73 20 27 28 29 29 0a 09 20 test-ids '())..
99d0: 28 77 69 6e 64 6f 77 73 20 20 28 61 6e 64 20 70 (windows (and p
99e0: 61 74 68 6d 6f 64 20 28 73 75 62 73 74 72 69 6e athmod (substrin
99f0: 67 2d 69 6e 64 65 78 20 22 5c 5c 22 20 70 61 74 g-index "\\" pat
9a00: 68 6d 6f 64 29 29 29 0a 09 20 28 74 65 6d 70 64 hmod))).. (tempd
9a10: 69 72 20 20 28 63 6f 6e 63 20 22 2f 74 6d 70 2f ir (conc "/tmp/
9a20: 22 20 28 63 75 72 72 65 6e 74 2d 75 73 65 72 2d " (current-user-
9a30: 6e 61 6d 65 29 20 22 2f 22 20 72 75 6e 73 70 61 name) "/" runspa
9a40: 74 74 20 22 5f 22 20 28 72 61 6e 64 6f 6d 20 31 tt "_" (random 1
9a50: 30 30 30 30 29 20 22 5f 22 20 28 63 75 72 72 65 0000) "_" (curre
9a60: 6e 74 2d 70 72 6f 63 65 73 73 2d 69 64 29 29 29 nt-process-id)))
9a70: 0a 09 20 28 72 75 6e 73 68 65 61 64 65 72 20 28 .. (runsheader (
9a80: 61 70 70 65 6e 64 20 28 6c 69 73 74 20 22 52 75 append (list "Ru
9a90: 6e 20 49 64 22 20 22 52 75 6e 6e 61 6d 65 22 29 n Id" "Runname")
9aa0: 20 3b 20 30 20 31 0a 09 09 09 20 20 20 20 20 28 ; 0 1.... (
9ab0: 6d 61 70 20 63 61 72 20 6b 65 79 70 61 74 74 2d map car keypatt-
9ac0: 61 6c 69 73 74 29 20 20 20 3b 20 2b 20 4e 20 3d alist) ; + N =
9ad0: 20 6c 65 6e 67 74 68 20 6b 65 79 70 61 74 74 2d length keypatt-
9ae0: 61 6c 69 73 74 0a 09 09 09 20 20 20 20 20 28 6c alist.... (l
9af0: 69 73 74 20 22 54 65 73 74 6e 61 6d 65 22 20 20 ist "Testname"
9b00: 20 20 20 20 20 20 20 20 3b 20 32 0a 09 09 09 09 ; 2.....
9b10: 20 20 20 22 49 74 65 6d 20 50 61 74 68 22 20 20 "Item Path"
9b20: 20 20 20 20 20 20 20 3b 20 33 20 0a 09 09 09 09 ; 3 .....
9b30: 20 20 20 22 44 65 73 63 72 69 70 74 69 6f 6e 22 "Description"
9b40: 20 20 20 20 20 20 20 3b 20 34 20 0a 09 09 09 09 ; 4 .....
9b50: 20 20 20 22 53 74 61 74 65 22 20 20 20 20 20 20 "State"
9b60: 20 20 20 20 20 20 20 3b 20 35 20 0a 09 09 09 09 ; 5 .....
9b70: 20 20 20 22 53 74 61 74 75 73 22 20 20 20 20 20 "Status"
9b80: 20 20 20 20 20 20 20 3b 20 36 20 20 0a 09 09 09 ; 6 ....
9b90: 09 20 20 20 22 46 69 6e 61 6c 20 4c 6f 67 22 20 . "Final Log"
9ba0: 20 20 20 20 20 20 20 20 3b 20 37 20 0a 09 09 09 ; 7 ....
9bb0: 09 20 20 20 22 52 75 6e 20 44 75 72 61 74 69 6f . "Run Duratio
9bc0: 6e 22 20 20 20 20 20 20 3b 20 38 20 0a 09 09 09 n" ; 8 ....
9bd0: 09 20 20 20 22 57 68 65 6e 20 52 75 6e 22 20 20 . "When Run"
9be0: 20 20 20 20 20 20 20 20 3b 20 39 20 0a 09 09 09 ; 9 ....
9bf0: 09 20 20 20 22 54 61 67 73 22 20 20 20 20 20 20 . "Tags"
9c00: 20 20 20 20 20 20 20 20 3b 20 31 30 0a 09 09 09 ; 10....
9c10: 09 20 20 20 22 52 75 6e 20 4f 77 6e 65 72 22 20 . "Run Owner"
9c20: 20 20 20 20 20 20 20 20 3b 20 31 31 0a 09 09 09 ; 11....
9c30: 09 20 20 20 22 43 6f 6d 6d 65 6e 74 22 20 20 20 . "Comment"
9c40: 20 20 20 20 20 20 20 20 3b 20 31 32 0a 09 09 09 ; 12....
9c50: 09 20 20 20 22 41 75 74 68 6f 72 22 20 20 20 20 . "Author"
9c60: 20 20 20 20 20 20 20 20 3b 20 31 33 0a 09 09 09 ; 13....
9c70: 09 20 20 20 22 54 65 73 74 20 4f 77 6e 65 72 22 . "Test Owner"
9c80: 20 20 20 20 20 20 20 20 3b 20 31 34 0a 09 09 09 ; 14....
9c90: 09 20 20 20 22 52 65 76 69 65 77 65 64 22 20 20 . "Reviewed"
9ca0: 20 20 20 20 20 20 20 20 3b 20 31 35 0a 09 09 09 ; 15....
9cb0: 09 20 20 20 22 44 69 73 6b 66 72 65 65 22 20 20 . "Diskfree"
9cc0: 20 20 20 20 20 20 20 20 3b 20 31 36 0a 09 09 09 ; 16....
9cd0: 09 20 20 20 22 55 6e 61 6d 65 22 20 20 20 20 20 . "Uname"
9ce0: 20 20 20 20 20 20 20 20 3b 20 31 37 0a 09 09 09 ; 17....
9cf0: 09 20 20 20 22 52 75 6e 64 69 72 22 20 20 20 20 . "Rundir"
9d00: 20 20 20 20 20 20 20 20 3b 20 31 38 0a 09 09 09 ; 18....
9d10: 09 20 20 20 22 48 6f 73 74 22 20 20 20 20 20 20 . "Host"
9d20: 20 20 20 20 20 20 20 20 3b 20 31 39 0a 09 09 09 ; 19....
9d30: 09 20 20 20 22 43 70 75 20 4c 6f 61 64 22 20 20 . "Cpu Load"
9d40: 20 20 20 20 20 20 20 20 3b 20 32 30 0a 09 09 09 ; 20....
9d50: 09 20 20 20 29 29 29 0a 09 20 28 72 65 73 75 6c . ))).. (resul
9d60: 74 73 20 28 6c 69 73 74 20 72 75 6e 73 68 65 61 ts (list runshea
9d70: 64 65 72 29 29 09 09 09 20 0a 09 20 28 74 65 73 der))... .. (tes
9d80: 74 64 61 74 61 2d 68 65 61 64 65 72 20 28 6c 69 tdata-header (li
9d90: 73 74 20 22 52 75 6e 20 49 64 22 20 22 54 65 73 st "Run Id" "Tes
9da0: 74 6e 61 6d 65 22 20 22 49 74 65 6d 20 50 61 74 tname" "Item Pat
9db0: 68 22 20 22 43 61 74 65 67 6f 72 79 22 20 22 56 h" "Category" "V
9dc0: 61 72 69 61 62 6c 65 22 20 22 56 61 6c 75 65 22 ariable" "Value"
9dd0: 20 22 45 78 70 65 63 74 65 64 22 20 22 54 6f 6c "Expected" "Tol
9de0: 22 20 22 55 6e 69 74 73 22 20 22 53 74 61 74 75 " "Units" "Statu
9df0: 73 22 20 22 43 6f 6d 6d 65 6e 74 22 29 29 0a 09 s" "Comment"))..
9e00: 20 28 6d 61 69 6e 71 72 79 20 28 63 6f 6e 63 20 (mainqry (conc
9e10: 22 53 45 4c 45 43 54 0a 20 20 20 20 20 20 20 20 "SELECT.
9e20: 20 20 20 20 20 20 74 2e 74 65 73 74 6e 61 6d 65 t.testname
9e30: 2c 72 2e 69 64 2c 72 75 6e 6e 61 6d 65 2c 22 20 ,r.id,runname,"
9e40: 6b 65 79 73 73 74 72 20 22 2c 74 2e 74 65 73 74 keysstr ",t.test
9e50: 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 name,.
9e60: 20 20 20 20 74 2e 69 74 65 6d 5f 70 61 74 68 2c t.item_path,
9e70: 74 6d 2e 64 65 73 63 72 69 70 74 69 6f 6e 2c 74 tm.description,t
9e80: 2e 73 74 61 74 65 2c 74 2e 73 74 61 74 75 73 2c .state,t.status,
9e90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 . f
9ea0: 69 6e 61 6c 5f 6c 6f 67 66 2c 72 75 6e 5f 64 75 inal_logf,run_du
9eb0: 72 61 74 69 6f 6e 2c 20 0a 20 20 20 20 20 20 20 ration, .
9ec0: 20 20 20 20 20 20 20 73 74 72 66 74 69 6d 65 28 strftime(
9ed0: 27 25 6d 2f 25 64 2f 25 59 20 25 48 3a 25 4d 3a '%m/%d/%Y %H:%M:
9ee0: 25 53 27 2c 64 61 74 65 74 69 6d 65 28 74 2e 65 %S',datetime(t.e
9ef0: 76 65 6e 74 5f 74 69 6d 65 2c 27 75 6e 69 78 65 vent_time,'unixe
9f00: 70 6f 63 68 27 29 2c 27 6c 6f 63 61 6c 74 69 6d poch'),'localtim
9f10: 65 27 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 e'),.
9f20: 20 20 20 74 6d 2e 74 61 67 73 2c 72 2e 6f 77 6e tm.tags,r.own
9f30: 65 72 2c 74 2e 63 6f 6d 6d 65 6e 74 2c 0a 20 20 er,t.comment,.
9f40: 20 20 20 20 20 20 20 20 20 20 20 20 61 75 74 68 auth
9f50: 6f 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 or,.
9f60: 20 20 74 6d 2e 6f 77 6e 65 72 2c 72 65 76 69 65 tm.owner,revie
9f70: 77 65 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 wed,.
9f80: 20 20 20 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d diskfree,unam
9f90: 65 2c 72 75 6e 64 69 72 2c 0a 20 20 20 20 20 20 e,rundir,.
9fa0: 20 20 20 20 20 20 20 20 68 6f 73 74 2c 63 70 75 host,cpu
9fb0: 6c 6f 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 load.
9fc0: 20 46 52 4f 4d 20 74 65 73 74 73 20 41 53 20 74 FROM tests AS t
9fd0: 20 4a 4f 49 4e 20 72 75 6e 73 20 41 53 20 72 20 JOIN runs AS r
9fe0: 4f 4e 20 74 2e 72 75 6e 5f 69 64 3d 72 2e 69 64 ON t.run_id=r.id
9ff0: 20 4a 4f 49 4e 20 74 65 73 74 5f 6d 65 74 61 20 JOIN test_meta
a000: 41 53 20 74 6d 20 4f 4e 20 74 6d 2e 74 65 73 74 AS tm ON tm.test
a010: 6e 61 6d 65 3d 74 2e 74 65 73 74 6e 61 6d 65 0a name=t.testname.
a020: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 45 52 WHER
a030: 45 20 72 75 6e 6e 61 6d 65 20 4c 49 4b 45 20 3f E runname LIKE ?
a040: 20 41 4e 44 20 22 20 6b 65 79 71 72 79 20 22 3b AND " keyqry ";
a050: 22 29 29 29 0a 20 20 20 20 28 64 65 62 75 67 3a "))). (debug:
a060: 70 72 69 6e 74 20 32 20 22 55 73 69 6e 67 20 22 print 2 "Using "
a070: 20 74 65 6d 70 64 69 72 20 22 20 66 6f 72 20 63 tempdir " for c
a080: 6f 6e 73 74 72 75 63 74 69 6e 67 20 74 68 65 20 onstructing the
a090: 6f 64 73 20 66 69 6c 65 2e 20 6b 65 79 71 72 79 ods file. keyqry
a0a0: 3a 20 22 20 6b 65 79 71 72 79 20 22 20 6b 65 79 : " keyqry " key
a0b0: 73 74 72 3a 20 22 20 6b 65 79 73 73 74 72 20 22 str: " keysstr "
a0c0: 20 77 69 74 68 20 6b 65 79 73 3a 20 22 20 28 6d with keys: " (m
a0d0: 61 70 20 63 61 64 72 20 6b 65 79 70 61 74 74 2d ap cadr keypatt-
a0e0: 61 6c 69 73 74 29 0a 09 09 20 22 5c 6e 20 20 20 alist)... "\n
a0f0: 20 20 20 6d 61 69 6e 71 72 79 3a 20 22 20 6d 61 mainqry: " ma
a100: 69 6e 71 72 79 29 0a 20 20 20 20 3b 3b 20 22 45 inqry). ;; "E
a110: 78 70 65 63 74 65 64 20 56 61 6c 75 65 22 0a 20 xpected Value".
a120: 20 20 20 3b 3b 20 22 56 61 6c 75 65 20 46 6f 75 ;; "Value Fou
a130: 6e 64 22 0a 20 20 20 20 3b 3b 20 22 54 6f 6c 65 nd". ;; "Tole
a140: 72 61 6e 63 65 22 0a 20 20 20 20 28 61 70 70 6c rance". (appl
a150: 79 20 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 y sqlite3:for-ea
a160: 63 68 2d 72 6f 77 0a 09 20 20 20 28 6c 61 6d 62 ch-row.. (lamb
a170: 64 61 20 28 74 65 73 74 2d 69 64 20 2e 20 62 29 da (test-id . b)
a180: 0a 09 20 20 20 20 20 28 73 65 74 21 20 74 65 73 .. (set! tes
a190: 74 2d 69 64 73 20 28 63 6f 6e 73 20 74 65 73 74 t-ids (cons test
a1a0: 2d 69 64 20 74 65 73 74 2d 69 64 73 29 29 20 20 -id test-ids))
a1b0: 20 3b 3b 20 74 65 73 74 2d 69 64 20 69 73 20 6e ;; test-id is n
a1c0: 6f 77 20 74 65 73 74 6e 61 6d 65 0a 09 20 20 20 ow testname..
a1d0: 20 20 28 73 65 74 21 20 72 65 73 75 6c 74 73 20 (set! results
a1e0: 28 61 70 70 65 6e 64 20 72 65 73 75 6c 74 73 20 (append results
a1f0: 3b 3b 20 6e 6f 74 65 2c 20 64 72 6f 70 20 74 68 ;; note, drop th
a200: 65 20 74 65 73 74 2d 69 64 0a 09 09 09 09 20 20 e test-id.....
a210: 20 28 6c 69 73 74 0a 09 09 09 09 20 20 20 20 28 (list..... (
a220: 69 66 20 70 61 74 68 6d 6f 64 0a 09 09 09 09 09 if pathmod......
a230: 28 6c 65 74 2a 20 28 28 76 62 20 20 20 20 20 20 (let* ((vb
a240: 20 20 28 61 70 70 6c 79 20 76 65 63 74 6f 72 20 (apply vector
a250: 62 29 29 0a 09 09 09 09 09 20 20 20 20 20 20 20 b))......
a260: 28 6b 65 79 76 61 6c 73 20 20 20 28 6c 65 74 20 (keyvals (let
a270: 6c 6f 6f 70 20 28 28 69 20 20 20 20 30 29 0a 09 loop ((i 0)..
a280: 09 09 09 09 09 09 09 20 20 20 20 20 28 72 65 73 ....... (res
a290: 20 27 28 29 29 29 0a 09 09 09 09 09 09 09 20 20 '()))........
a2a0: 20 20 28 69 66 20 28 3e 3d 20 69 20 6e 75 6d 6b (if (>= i numk
a2b0: 65 79 73 29 0a 09 09 09 09 09 09 09 09 72 65 73 eys).........res
a2c0: 0a 09 09 09 09 09 09 09 09 28 6c 6f 6f 70 20 28 .........(loop (
a2d0: 2b 20 69 20 31 29 0a 09 09 09 09 09 09 09 09 20 + i 1).........
a2e0: 20 20 20 20 20 28 61 70 70 65 6e 64 20 72 65 73 (append res
a2f0: 20 28 6c 69 73 74 20 28 76 65 63 74 6f 72 2d 72 (list (vector-r
a300: 65 66 20 76 62 20 28 2b 20 69 20 32 29 29 29 29 ef vb (+ i 2))))
a310: 29 29 29 29 0a 09 09 09 09 09 20 20 20 20 20 20 ))))......
a320: 20 28 72 75 6e 6e 61 6d 65 20 20 20 28 76 65 63 (runname (vec
a330: 74 6f 72 2d 72 65 66 20 76 62 20 31 29 29 0a 09 tor-ref vb 1))..
a340: 09 09 09 09 20 20 20 20 20 20 20 28 74 65 73 74 .... (test
a350: 6e 61 6d 65 20 20 28 76 65 63 74 6f 72 2d 72 65 name (vector-re
a360: 66 20 76 62 20 28 2b 20 20 32 20 6e 75 6d 6b 65 f vb (+ 2 numke
a370: 79 73 29 29 29 0a 09 09 09 09 09 20 20 20 20 20 ys)))......
a380: 20 20 28 69 74 65 6d 2d 70 61 74 68 20 28 76 65 (item-path (ve
a390: 63 74 6f 72 2d 72 65 66 20 76 62 20 28 2b 20 20 ctor-ref vb (+
a3a0: 33 20 6e 75 6d 6b 65 79 73 29 29 29 0a 09 09 09 3 numkeys)))....
a3b0: 09 09 20 20 20 20 20 20 20 28 66 69 6e 61 6c 2d .. (final-
a3c0: 6c 6f 67 20 28 76 65 63 74 6f 72 2d 72 65 66 20 log (vector-ref
a3d0: 76 62 20 28 2b 20 20 37 20 6e 75 6d 6b 65 79 73 vb (+ 7 numkeys
a3e0: 29 29 29 0a 09 09 09 09 09 20 20 20 20 20 20 20 )))......
a3f0: 28 72 75 6e 2d 64 69 72 20 20 20 28 76 65 63 74 (run-dir (vect
a400: 6f 72 2d 72 65 66 20 76 62 20 28 2b 20 31 38 20 or-ref vb (+ 18
a410: 6e 75 6d 6b 65 79 73 29 29 29 0a 09 09 09 09 09 numkeys)))......
a420: 20 20 20 20 20 20 20 28 6c 6f 67 2d 66 70 61 74 (log-fpat
a430: 68 20 28 63 6f 6e 63 20 72 75 6e 2d 64 69 72 20 h (conc run-dir
a440: 22 2f 22 20 20 66 69 6e 61 6c 2d 6c 6f 67 29 29 "/" final-log))
a450: 29 20 3b 3b 20 28 73 74 72 69 6e 67 2d 69 6e 74 ) ;; (string-int
a460: 65 72 73 70 65 72 73 65 20 6b 65 79 76 61 6c 73 ersperse keyvals
a470: 20 22 2f 22 29 20 22 2f 22 20 74 65 73 74 6e 61 "/") "/" testna
a480: 6d 65 20 22 2f 22 20 69 74 65 6d 2d 70 61 74 68 me "/" item-path
a490: 20 22 2f 22 0a 09 09 09 09 09 20 20 28 64 65 62 "/"...... (deb
a4a0: 75 67 3a 70 72 69 6e 74 20 34 20 22 6c 6f 67 3a ug:print 4 "log:
a4b0: 20 22 20 6c 6f 67 2d 66 70 61 74 68 20 22 20 65 " log-fpath " e
a4c0: 78 69 73 74 73 3a 20 22 20 28 66 69 6c 65 2d 65 xists: " (file-e
a4d0: 78 69 73 74 73 3f 20 6c 6f 67 2d 66 70 61 74 68 xists? log-fpath
a4e0: 29 29 0a 09 09 09 09 09 20 20 28 76 65 63 74 6f ))...... (vecto
a4f0: 72 2d 73 65 74 21 20 76 62 20 28 2b 20 37 20 6e r-set! vb (+ 7 n
a500: 75 6d 6b 65 79 73 29 20 28 69 66 20 28 66 69 6c umkeys) (if (fil
a510: 65 2d 65 78 69 73 74 73 3f 20 6c 6f 67 2d 66 70 e-exists? log-fp
a520: 61 74 68 29 0a 09 09 09 09 09 09 09 09 09 20 20 ath)..........
a530: 20 20 28 6c 65 74 20 28 28 6e 65 77 70 61 74 68 (let ((newpath
a540: 20 28 63 6f 6e 63 20 70 61 74 68 6d 6f 64 20 22 (conc pathmod "
a550: 2f 22 0a 09 09 09 09 09 09 09 09 09 09 09 09 20 /".............
a560: 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 (string-interspe
a570: 72 73 65 20 6b 65 79 76 61 6c 73 20 22 2f 22 29 rse keyvals "/")
a580: 0a 09 09 09 09 09 09 09 09 09 09 09 09 20 22 2f ............. "/
a590: 22 20 72 75 6e 6e 61 6d 65 20 22 2f 22 20 74 65 " runname "/" te
a5a0: 73 74 6e 61 6d 65 20 22 2f 22 0a 09 09 09 09 09 stname "/"......
a5b0: 09 09 09 09 09 09 09 20 28 69 66 20 28 73 74 72 ....... (if (str
a5c0: 69 6e 67 3d 3f 20 69 74 65 6d 2d 70 61 74 68 20 ing=? item-path
a5d0: 22 22 29 20 22 22 20 28 63 6f 6e 63 20 22 2f 22 "") "" (conc "/"
a5e0: 20 69 74 65 6d 2d 70 61 74 68 29 29 0a 09 09 09 item-path))....
a5f0: 09 09 09 09 09 09 09 09 09 20 66 69 6e 61 6c 2d ......... final-
a600: 6c 6f 67 29 29 29 0a 09 09 09 09 09 09 09 09 09 log)))..........
a610: 20 20 20 20 20 20 3b 3b 20 66 6f 72 20 6e 6f 77 ;; for now
a620: 20 74 68 72 6f 77 20 61 77 61 79 20 6e 65 77 70 throw away newp
a630: 61 74 68 20 61 6e 64 20 75 73 65 20 74 68 65 20 ath and use the
a640: 6c 6f 67 2d 66 70 61 74 68 20 63 6f 6e 63 27 64 log-fpath conc'd
a650: 20 77 69 74 68 20 70 61 74 68 6d 6f 64 0a 09 09 with pathmod...
a660: 09 09 09 09 09 09 09 20 20 20 20 20 20 28 73 65 ....... (se
a670: 74 21 20 6e 65 77 70 61 74 68 20 28 63 6f 6e 63 t! newpath (conc
a680: 20 70 61 74 68 6d 6f 64 20 6c 6f 67 2d 66 70 61 pathmod log-fpa
a690: 74 68 29 29 0a 09 09 09 09 09 09 09 09 09 20 20 th))..........
a6a0: 20 20 20 20 28 69 66 20 77 69 6e 64 6f 77 73 20 (if windows
a6b0: 28 73 74 72 69 6e 67 2d 74 72 61 6e 73 6c 61 74 (string-translat
a6c0: 65 20 6e 65 77 70 61 74 68 20 22 2f 22 20 22 5c e newpath "/" "\
a6d0: 5c 22 29 20 6e 65 77 70 61 74 68 29 29 0a 09 09 \") newpath))...
a6e0: 09 09 09 09 09 09 09 20 20 20 20 28 69 66 20 28 ....... (if (
a6f0: 3e 20 2a 76 65 72 62 6f 73 69 74 79 2a 20 31 29 > *verbosity* 1)
a700: 0a 09 09 09 09 09 09 09 09 09 09 28 63 6f 6e 63 ...........(conc
a710: 20 66 69 6e 61 6c 2d 6c 6f 67 20 22 20 6e 6f 74 final-log " not
a720: 2d 66 6f 75 6e 64 22 29 0a 09 09 09 09 09 09 09 -found")........
a730: 09 09 09 22 22 29 29 29 0a 09 09 09 09 09 20 20 ..."")))......
a740: 28 76 65 63 74 6f 72 2d 3e 6c 69 73 74 20 76 62 (vector->list vb
a750: 29 29 0a 09 09 09 09 09 62 29 29 29 29 29 0a 09 ))......b)))))..
a760: 20 20 20 64 62 0a 09 20 20 20 6d 61 69 6e 71 72 db.. mainqr
a770: 79 0a 09 20 20 20 72 75 6e 73 70 61 74 74 20 28 y.. runspatt (
a780: 6d 61 70 20 63 61 64 72 20 6b 65 79 70 61 74 74 map cadr keypatt
a790: 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 28 64 65 -alist)). (de
a7a0: 62 75 67 3a 70 72 69 6e 74 20 32 20 22 46 6f 75 bug:print 2 "Fou
a7b0: 6e 64 20 22 20 28 6c 65 6e 67 74 68 20 74 65 73 nd " (length tes
a7c0: 74 2d 69 64 73 29 20 22 20 72 65 63 6f 72 64 73 t-ids) " records
a7d0: 22 29 0a 20 20 20 20 28 73 65 74 21 20 72 65 73 "). (set! res
a7e0: 75 6c 74 73 20 28 6c 69 73 74 20 28 63 6f 6e 73 ults (list (cons
a7f0: 20 22 52 75 6e 73 22 20 72 65 73 75 6c 74 73 29 "Runs" results)
a800: 29 29 0a 20 20 20 20 3b 3b 20 6e 6f 77 2c 20 66 )). ;; now, f
a810: 6f 72 20 65 61 63 68 20 74 65 73 74 2c 20 63 6f or each test, co
a820: 6c 6c 65 63 74 20 74 68 65 20 74 65 73 74 5f 64 llect the test_d
a830: 61 74 61 20 69 6e 66 6f 20 61 6e 64 20 61 64 64 ata info and add
a840: 20 61 20 6e 65 77 20 73 68 65 65 74 0a 20 20 20 a new sheet.
a850: 20 28 66 6f 72 2d 65 61 63 68 0a 20 20 20 20 20 (for-each.
a860: 28 6c 61 6d 62 64 61 20 28 74 65 73 74 2d 69 64 (lambda (test-id
a870: 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 ). (let ((
a880: 74 65 73 74 2d 64 61 74 61 20 28 6c 69 73 74 20 test-data (list
a890: 74 65 73 74 64 61 74 61 2d 68 65 61 64 65 72 29 testdata-header)
a8a0: 29 0a 09 20 20 20 20 20 28 63 75 72 72 2d 74 65 ).. (curr-te
a8b0: 73 74 2d 6e 61 6d 65 20 23 66 29 29 0a 09 20 28 st-name #f)).. (
a8c0: 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 sqlite3:for-each
a8d0: 2d 72 6f 77 0a 09 20 20 28 6c 61 6d 62 64 61 20 -row.. (lambda
a8e0: 28 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 (run-id testname
a8f0: 20 69 74 65 6d 2d 70 61 74 68 20 63 61 74 65 67 item-path categ
a900: 6f 72 79 20 76 61 72 69 61 62 6c 65 20 76 61 6c ory variable val
a910: 75 65 20 65 78 70 65 63 74 65 64 20 74 6f 6c 20 ue expected tol
a920: 75 6e 69 74 73 20 73 74 61 74 75 73 20 63 6f 6d units status com
a930: 6d 65 6e 74 29 0a 09 20 20 20 20 28 73 65 74 21 ment).. (set!
a940: 20 63 75 72 72 2d 74 65 73 74 2d 6e 61 6d 65 20 curr-test-name
a950: 74 65 73 74 6e 61 6d 65 29 0a 09 20 20 20 20 28 testname).. (
a960: 73 65 74 21 20 74 65 73 74 2d 64 61 74 61 20 28 set! test-data (
a970: 61 70 70 65 6e 64 20 74 65 73 74 2d 64 61 74 61 append test-data
a980: 20 28 6c 69 73 74 20 28 6c 69 73 74 20 72 75 6e (list (list run
a990: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
a9a0: 6d 2d 70 61 74 68 20 63 61 74 65 67 6f 72 79 20 m-path category
a9b0: 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 65 variable value e
a9c0: 78 70 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 74 xpected tol unit
a9d0: 73 20 73 74 61 74 75 73 20 63 6f 6d 6d 65 6e 74 s status comment
a9e0: 29 29 29 29 29 0a 09 20 20 64 62 20 0a 09 20 20 ))))).. db ..
a9f0: 3b 3b 20 22 53 45 4c 45 43 54 20 72 75 6e 5f 69 ;; "SELECT run_i
aa00: 64 2c 74 65 73 74 6e 61 6d 65 2c 69 74 65 6d 5f d,testname,item_
aa10: 70 61 74 68 2c 63 61 74 65 67 6f 72 79 2c 76 61 path,category,va
aa20: 72 69 61 62 6c 65 2c 74 64 2e 76 61 6c 75 65 20 riable,td.value
aa30: 41 53 20 76 61 6c 75 65 2c 65 78 70 65 63 74 65 AS value,expecte
aa40: 64 2c 74 6f 6c 2c 75 6e 69 74 73 2c 74 64 2e 73 d,tol,units,td.s
aa50: 74 61 74 75 73 20 41 53 20 73 74 61 74 75 73 2c tatus AS status,
aa60: 74 64 2e 63 6f 6d 6d 65 6e 74 20 41 53 20 63 6f td.comment AS co
aa70: 6d 6d 65 6e 74 20 46 52 4f 4d 20 74 65 73 74 5f mment FROM test_
aa80: 64 61 74 61 20 41 53 20 74 64 20 49 4e 4e 45 52 data AS td INNER
aa90: 20 4a 4f 49 4e 20 74 65 73 74 73 20 4f 4e 20 74 JOIN tests ON t
aaa0: 65 73 74 73 2e 69 64 3d 74 64 2e 74 65 73 74 5f ests.id=td.test_
aab0: 69 64 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 id WHERE test_id
aac0: 3d 3f 3b 22 0a 09 20 20 22 53 45 4c 45 43 54 20 =?;".. "SELECT
aad0: 72 75 6e 5f 69 64 2c 74 65 73 74 6e 61 6d 65 2c run_id,testname,
aae0: 69 74 65 6d 5f 70 61 74 68 2c 63 61 74 65 67 6f item_path,catego
aaf0: 72 79 2c 76 61 72 69 61 62 6c 65 2c 74 64 2e 76 ry,variable,td.v
ab00: 61 6c 75 65 20 41 53 20 76 61 6c 75 65 2c 74 64 alue AS value,td
ab10: 2e 65 78 70 65 63 74 65 64 2c 74 64 2e 74 6f 6c .expected,td.tol
ab20: 2c 74 64 2e 75 6e 69 74 73 2c 74 64 2e 73 74 61 ,td.units,td.sta
ab30: 74 75 73 20 41 53 20 73 74 61 74 75 73 2c 74 64 tus AS status,td
ab40: 2e 63 6f 6d 6d 65 6e 74 20 41 53 20 63 6f 6d 6d .comment AS comm
ab50: 65 6e 74 20 46 52 4f 4d 20 74 65 73 74 5f 64 61 ent FROM test_da
ab60: 74 61 20 41 53 20 74 64 20 49 4e 4e 45 52 20 4a ta AS td INNER J
ab70: 4f 49 4e 20 74 65 73 74 73 20 4f 4e 20 74 65 73 OIN tests ON tes
ab80: 74 73 2e 69 64 3d 74 64 2e 74 65 73 74 5f 69 64 ts.id=td.test_id
ab90: 20 57 48 45 52 45 20 74 65 73 74 6e 61 6d 65 3d WHERE testname=
aba0: 3f 3b 22 0a 09 20 20 74 65 73 74 2d 69 64 29 0a ?;".. test-id).
abb0: 09 20 28 69 66 20 63 75 72 72 2d 74 65 73 74 2d . (if curr-test-
abc0: 6e 61 6d 65 0a 09 20 20 20 20 20 28 73 65 74 21 name.. (set!
abd0: 20 72 65 73 75 6c 74 73 20 28 61 70 70 65 6e 64 results (append
abe0: 20 72 65 73 75 6c 74 73 20 28 6c 69 73 74 20 28 results (list (
abf0: 63 6f 6e 73 20 63 75 72 72 2d 74 65 73 74 2d 6e cons curr-test-n
ac00: 61 6d 65 20 74 65 73 74 2d 64 61 74 61 29 29 29 ame test-data)))
ac10: 29 29 0a 09 20 29 29 0a 20 20 20 20 20 28 73 6f )).. )). (so
ac20: 72 74 20 28 64 65 6c 65 74 65 2d 64 75 70 6c 69 rt (delete-dupli
ac30: 63 61 74 65 73 20 74 65 73 74 2d 69 64 73 29 20 cates test-ids)
ac40: 73 74 72 69 6e 67 3c 3d 29 29 0a 20 20 20 20 28 string<=)). (
ac50: 73 79 73 74 65 6d 20 28 63 6f 6e 63 20 22 6d 6b system (conc "mk
ac60: 64 69 72 20 2d 70 20 22 20 74 65 6d 70 64 69 72 dir -p " tempdir
ac70: 29 29 0a 20 20 20 20 3b 3b 20 28 70 70 20 72 65 )). ;; (pp re
ac80: 73 75 6c 74 73 29 0a 20 20 20 20 28 6f 64 73 3a sults). (ods:
ac90: 6c 69 73 74 2d 3e 6f 64 73 20 0a 20 20 20 20 20 list->ods .
aca0: 74 65 6d 70 64 69 72 0a 20 20 20 20 20 28 69 66 tempdir. (if
acb0: 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 (string-match (
acc0: 72 65 67 65 78 70 20 22 5e 5b 2f 7e 5d 2b 2e 2a regexp "^[/~]+.*
acd0: 22 29 20 6f 75 74 70 75 74 66 69 6c 65 29 20 3b ") outputfile) ;
ace0: 3b 20 66 75 6c 6c 20 70 61 74 68 3f 0a 09 20 6f ; full path?.. o
acf0: 75 74 70 75 74 66 69 6c 65 0a 09 20 28 62 65 67 utputfile.. (beg
ad00: 69 6e 0a 09 20 20 20 28 64 65 62 75 67 3a 70 72 in.. (debug:pr
ad10: 69 6e 74 20 30 20 22 57 41 52 4e 49 4e 47 3a 20 int 0 "WARNING:
ad20: 70 61 74 68 20 67 69 76 65 6e 2c 20 22 20 6f 75 path given, " ou
ad30: 74 70 75 74 66 69 6c 65 20 22 20 69 73 20 72 65 tputfile " is re
ad40: 6c 61 74 69 76 65 2c 20 70 72 65 66 69 78 69 6e lative, prefixin
ad50: 67 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 64 g with current d
ad60: 69 72 65 63 74 6f 72 79 22 29 0a 09 20 20 20 28 irectory").. (
ad70: 63 6f 6e 63 20 28 63 75 72 72 65 6e 74 2d 64 69 conc (current-di
ad80: 72 65 63 74 6f 72 79 29 20 22 2f 22 20 6f 75 74 rectory) "/" out
ad90: 70 75 74 66 69 6c 65 29 29 29 0a 20 20 20 20 20 putfile))).
ada0: 72 65 73 75 6c 74 73 29 0a 20 20 20 20 3b 3b 20 results). ;;
adb0: 62 72 75 74 61 6c 20 63 6c 65 61 6e 20 75 70 0a brutal clean up.
adc0: 20 20 20 20 28 73 79 73 74 65 6d 20 22 72 6d 20 (system "rm
add0: 2d 72 66 20 74 65 6d 70 64 69 72 22 29 29 29 0a -rf tempdir"))).
ade0: 0a 3b 3b 20 28 64 62 3a 65 78 74 72 61 63 74 2d .;; (db:extract-
adf0: 6f 64 73 2d 66 69 6c 65 20 64 62 20 22 6f 75 74 ods-file db "out
ae00: 70 75 74 66 69 6c 65 2e 6f 64 73 22 20 27 28 28 putfile.ods" '((
ae10: 22 73 79 73 6e 61 6d 65 22 20 22 25 22 29 28 22 "sysname" "%")("
ae20: 66 73 6e 61 6d 65 22 20 22 25 22 29 28 22 64 61 fsname" "%")("da
ae30: 74 61 70 61 74 68 22 20 22 25 22 29 29 20 22 25 tapath" "%")) "%
ae40: 22 29 0a ").