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 0a 28 69 6e 63 6c 75 64 65 20 22 63 s))..(include "c
0330: 6f 6d 6d 6f 6e 5f 72 65 63 6f 72 64 73 2e 73 63 ommon_records.sc
0340: 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 64 62 m").(include "db
0350: 5f 72 65 63 6f 72 64 73 2e 73 63 6d 22 29 0a 28 _records.scm").(
0360: 69 6e 63 6c 75 64 65 20 22 6b 65 79 5f 72 65 63 include "key_rec
0370: 6f 72 64 73 2e 73 63 6d 22 29 0a 0a 28 64 65 66 ords.scm")..(def
0380: 69 6e 65 20 28 6f 70 65 6e 2d 64 62 29 20 3b 3b ine (open-db) ;;
0390: 20 20 28 63 6f 6e 63 20 2a 74 6f 70 70 61 74 68 (conc *toppath
03a0: 2a 20 22 2f 6d 65 67 61 74 65 73 74 2e 64 62 22 * "/megatest.db"
03b0: 29 20 28 63 61 72 20 2a 63 6f 6e 66 69 67 69 6e ) (car *configin
03c0: 66 6f 2a 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 fo*))). (let* (
03d0: 28 64 62 70 61 74 68 20 20 20 20 28 63 6f 6e 63 (dbpath (conc
03e0: 20 2a 74 6f 70 70 61 74 68 2a 20 22 2f 6d 65 67 *toppath* "/meg
03f0: 61 74 65 73 74 2e 64 62 22 29 29 20 3b 3b 20 66 atest.db")) ;; f
0400: 6e 61 6d 65 29 0a 09 20 28 63 6f 6e 66 69 67 64 name).. (configd
0410: 61 74 20 28 63 61 72 20 2a 63 6f 6e 66 69 67 69 at (car *configi
0420: 6e 66 6f 2a 29 29 0a 09 20 28 64 62 65 78 69 73 nfo*)).. (dbexis
0430: 74 73 20 20 28 66 69 6c 65 2d 65 78 69 73 74 73 ts (file-exists
0440: 3f 20 64 62 70 61 74 68 29 29 0a 09 20 28 64 62 ? dbpath)).. (db
0450: 20 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 (sqlite3
0460: 3a 6f 70 65 6e 2d 64 61 74 61 62 61 73 65 20 64 :open-database d
0470: 62 70 61 74 68 29 29 20 3b 3b 20 28 6e 65 76 65 bpath)) ;; (neve
0480: 72 2d 67 69 76 65 2d 75 70 2d 6f 70 65 6e 2d 64 r-give-up-open-d
0490: 62 20 64 62 70 61 74 68 29 29 0a 09 20 28 68 61 b dbpath)).. (ha
04a0: 6e 64 6c 65 72 20 20 20 28 6d 61 6b 65 2d 62 75 ndler (make-bu
04b0: 73 79 2d 74 69 6d 65 6f 75 74 20 33 36 30 30 30 sy-timeout 36000
04c0: 29 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 ))). (sqlite3
04d0: 3a 73 65 74 2d 62 75 73 79 2d 68 61 6e 64 6c 65 :set-busy-handle
04e0: 72 21 20 64 62 20 68 61 6e 64 6c 65 72 29 0a 20 r! db handler).
04f0: 20 20 20 28 69 66 20 28 6e 6f 74 20 64 62 65 78 (if (not dbex
0500: 69 73 74 73 29 0a 09 28 6c 65 74 2a 20 28 28 6b ists)..(let* ((k
0510: 65 79 73 20 20 20 20 20 28 63 6f 6e 66 69 67 2d eys (config-
0520: 67 65 74 2d 66 69 65 6c 64 73 20 63 6f 6e 66 69 get-fields confi
0530: 67 64 61 74 29 29 0a 09 20 20 20 20 20 20 20 28 gdat)).. (
0540: 68 61 76 65 6b 65 79 73 20 28 3e 20 28 6c 65 6e havekeys (> (len
0550: 67 74 68 20 6b 65 79 73 29 20 30 29 29 0a 09 20 gth keys) 0))..
0560: 20 20 20 20 20 20 28 6b 65 79 73 74 72 20 20 20 (keystr
0570: 28 6b 65 79 73 2d 3e 6b 65 79 73 74 72 20 6b 65 (keys->keystr ke
0580: 79 73 29 29 0a 09 20 20 20 20 20 20 20 28 66 69 ys)).. (fi
0590: 65 6c 64 73 74 72 20 28 6b 65 79 73 2d 3e 6b 65 eldstr (keys->ke
05a0: 79 2f 66 69 65 6c 64 20 6b 65 79 73 29 29 29 0a y/field keys))).
05b0: 09 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 . (for-each (la
05c0: 6d 62 64 61 20 28 6b 65 79 29 0a 09 09 20 20 20 mbda (key)...
05d0: 20 20 20 28 6c 65 74 20 28 28 6b 65 79 6e 20 28 (let ((keyn (
05e0: 76 65 63 74 6f 72 2d 72 65 66 20 6b 65 79 20 30 vector-ref key 0
05f0: 29 29 29 0a 09 09 09 28 69 66 20 28 6d 65 6d 62 )))....(if (memb
0600: 65 72 20 28 73 74 72 69 6e 67 2d 64 6f 77 6e 63 er (string-downc
0610: 61 73 65 20 6b 65 79 6e 29 0a 09 09 09 09 20 20 ase keyn).....
0620: 20 20 20 28 6c 69 73 74 20 22 72 75 6e 6e 61 6d (list "runnam
0630: 65 22 20 22 73 74 61 74 65 22 20 22 73 74 61 74 e" "state" "stat
0640: 75 73 22 20 22 6f 77 6e 65 72 22 20 22 65 76 65 us" "owner" "eve
0650: 6e 74 5f 74 69 6d 65 22 20 22 63 6f 6d 6d 65 6e nt_time" "commen
0660: 74 22 20 22 66 61 69 6c 5f 63 6f 75 6e 74 22 0a t" "fail_count".
0670: 09 09 09 09 09 20 20 20 22 70 61 73 73 5f 63 6f ..... "pass_co
0680: 75 6e 74 22 29 29 0a 09 09 09 20 20 20 20 28 62 unt")).... (b
0690: 65 67 69 6e 0a 09 09 09 20 20 20 20 20 20 28 70 egin.... (p
06a0: 72 69 6e 74 20 22 45 52 52 4f 52 3a 20 79 6f 75 rint "ERROR: you
06b0: 72 20 6b 65 79 20 63 61 6e 6e 6f 74 20 62 65 20 r key cannot be
06c0: 6e 61 6d 65 64 20 22 20 6b 65 79 6e 20 22 20 61 named " keyn " a
06d0: 73 20 74 68 69 73 20 63 6f 6e 66 6c 69 63 74 73 s this conflicts
06e0: 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6e with the same n
06f0: 61 6d 65 64 20 66 69 65 6c 64 20 69 6e 20 74 68 amed field in th
0700: 65 20 72 75 6e 73 20 74 61 62 6c 65 22 29 0a 09 e runs table")..
0710: 09 09 20 20 20 20 20 20 28 73 79 73 74 65 6d 20 .. (system
0720: 28 63 6f 6e 63 20 22 72 6d 20 2d 66 20 22 20 64 (conc "rm -f " d
0730: 62 70 61 74 68 29 29 0a 09 09 09 20 20 20 20 20 bpath))....
0740: 20 28 65 78 69 74 20 31 29 29 29 29 29 0a 09 09 (exit 1)))))...
0750: 20 20 20 20 6b 65 79 73 29 0a 09 20 20 3b 3b 20 keys).. ;;
0760: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
0770: 20 64 62 20 22 50 52 41 47 4d 41 20 73 79 6e 63 db "PRAGMA sync
0780: 68 72 6f 6e 6f 75 73 20 3d 20 4f 46 46 3b 22 29 hronous = OFF;")
0790: 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 .. (sqlite3:exe
07a0: 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 cute db "CREATE
07b0: 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 TABLE IF NOT EXI
07c0: 53 54 53 20 6b 65 79 73 20 28 69 64 20 49 4e 54 STS keys (id INT
07d0: 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 EGER PRIMARY KEY
07e0: 2c 20 66 69 65 6c 64 6e 61 6d 65 20 54 45 58 54 , fieldname TEXT
07f0: 2c 20 66 69 65 6c 64 74 79 70 65 20 54 45 58 54 , fieldtype TEXT
0800: 2c 20 43 4f 4e 53 54 52 41 49 4e 54 20 6b 65 79 , CONSTRAINT key
0810: 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 55 constraint UNIQU
0820: 45 20 28 66 69 65 6c 64 6e 61 6d 65 29 29 3b 22 E (fieldname));"
0830: 29 0a 09 20 20 28 66 6f 72 2d 65 61 63 68 20 28 ).. (for-each (
0840: 6c 61 6d 62 64 61 20 28 6b 65 79 29 0a 09 09 20 lambda (key)...
0850: 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 (sqlite3:ex
0860: 65 63 75 74 65 20 64 62 20 22 49 4e 53 45 52 54 ecute db "INSERT
0870: 20 49 4e 54 4f 20 6b 65 79 73 20 28 66 69 65 6c INTO keys (fiel
0880: 64 6e 61 6d 65 2c 66 69 65 6c 64 74 79 70 65 29 dname,fieldtype)
0890: 20 56 41 4c 55 45 53 20 28 3f 2c 3f 29 3b 22 20 VALUES (?,?);"
08a0: 28 6b 65 79 3a 67 65 74 2d 66 69 65 6c 64 6e 61 (key:get-fieldna
08b0: 6d 65 20 6b 65 79 29 28 6b 65 79 3a 67 65 74 2d me key)(key:get-
08c0: 66 69 65 6c 64 74 79 70 65 20 6b 65 79 29 29 29 fieldtype key)))
08d0: 0a 09 09 20 20 20 20 6b 65 79 73 29 0a 09 20 20 ... keys)..
08e0: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
08f0: 20 64 62 20 28 63 6f 6e 63 20 0a 09 09 09 20 20 db (conc ....
0900: 20 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 "CREATE TABLE
0910: 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 72 75 IF NOT EXISTS ru
0920: 6e 73 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 ns (id INTEGER P
0930: 52 49 4d 41 52 59 20 4b 45 59 2c 20 22 20 0a 09 RIMARY KEY, " ..
0940: 09 09 20 20 20 20 66 69 65 6c 64 73 74 72 20 28 .. fieldstr (
0950: 69 66 20 68 61 76 65 6b 65 79 73 20 22 2c 22 20 if havekeys ","
0960: 22 22 29 0a 09 09 09 20 20 20 20 22 72 75 6e 6e "").... "runn
0970: 61 6d 65 20 54 45 58 54 2c 22 0a 09 09 09 20 20 ame TEXT,"....
0980: 20 20 22 73 74 61 74 65 20 54 45 58 54 20 44 45 "state TEXT DE
0990: 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 20 FAULT '',"....
09a0: 20 20 22 73 74 61 74 75 73 20 54 45 58 54 20 44 "status TEXT D
09b0: 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 EFAULT '',"....
09c0: 20 20 20 22 6f 77 6e 65 72 20 54 45 58 54 20 44 "owner TEXT D
09d0: 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 20 EFAULT '',"....
09e0: 20 20 20 22 65 76 65 6e 74 5f 74 69 6d 65 20 54 "event_time T
09f0: 49 4d 45 53 54 41 4d 50 2c 22 0a 09 09 09 20 20 IMESTAMP,"....
0a00: 20 20 22 63 6f 6d 6d 65 6e 74 20 54 45 58 54 20 "comment TEXT
0a10: 44 45 46 41 55 4c 54 20 27 27 2c 22 0a 09 09 09 DEFAULT '',"....
0a20: 20 20 20 20 22 66 61 69 6c 5f 63 6f 75 6e 74 20 "fail_count
0a30: 49 4e 54 45 47 45 52 20 44 45 46 41 55 4c 54 20 INTEGER DEFAULT
0a40: 30 2c 22 0a 09 09 09 20 20 20 20 22 70 61 73 73 0,".... "pass
0a50: 5f 63 6f 75 6e 74 20 49 4e 54 45 47 45 52 20 44 _count INTEGER D
0a60: 45 46 41 55 4c 54 20 30 2c 22 0a 09 09 09 20 20 EFAULT 0,"....
0a70: 20 20 22 43 4f 4e 53 54 52 41 49 4e 54 20 72 75 "CONSTRAINT ru
0a80: 6e 73 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 nsconstraint UNI
0a90: 51 55 45 20 28 72 75 6e 6e 61 6d 65 22 20 28 69 QUE (runname" (i
0aa0: 66 20 68 61 76 65 6b 65 79 73 20 22 2c 22 20 22 f havekeys "," "
0ab0: 22 29 20 6b 65 79 73 74 72 20 22 29 29 3b 22 29 ") keystr "));")
0ac0: 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 ).. (sqlite3:ex
0ad0: 65 63 75 74 65 20 64 62 20 28 63 6f 6e 63 20 22 ecute db (conc "
0ae0: 43 52 45 41 54 45 20 49 4e 44 45 58 20 72 75 6e CREATE INDEX run
0af0: 73 5f 69 6e 64 65 78 20 4f 4e 20 72 75 6e 73 20 s_index ON runs
0b00: 28 72 75 6e 6e 61 6d 65 22 20 28 69 66 20 68 61 (runname" (if ha
0b10: 76 65 6b 65 79 73 20 22 2c 22 20 22 22 29 20 6b vekeys "," "") k
0b20: 65 79 73 74 72 20 22 29 3b 22 29 29 0a 09 20 20 eystr ");"))..
0b30: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
0b40: 20 64 62 20 0a 20 20 20 20 20 20 20 20 20 20 20 db .
0b50: 20 20 20 20 20 20 22 43 52 45 41 54 45 20 54 41 "CREATE TA
0b60: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 BLE IF NOT EXIST
0b70: 53 20 74 65 73 74 73 20 0a 20 20 20 20 20 20 20 S tests .
0b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 64 (id
0b90: 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 INTEGER PRIMARY
0ba0: 20 4b 45 59 2c 0a 20 20 20 20 20 20 20 20 20 20 KEY,.
0bb0: 20 20 20 20 20 20 20 20 20 20 20 72 75 6e 5f 69 run_i
0bc0: 64 20 20 20 20 20 49 4e 54 45 47 45 52 2c 0a 20 d INTEGER,.
0bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0be0: 20 20 20 20 74 65 73 74 6e 61 6d 65 20 20 20 54 testname T
0bf0: 45 58 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 EXT,.
0c00: 20 20 20 20 20 20 20 20 20 20 68 6f 73 74 20 20 host
0c10: 20 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c TEXT DEFAUL
0c20: 54 20 27 6e 2f 61 27 2c 0a 20 20 20 20 20 20 20 T 'n/a',.
0c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 cp
0c40: 75 6c 6f 61 64 20 20 20 20 52 45 41 4c 20 44 45 uload REAL DE
0c50: 46 41 55 4c 54 20 2d 31 2c 0a 20 20 20 20 20 20 FAULT -1,.
0c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 d
0c70: 69 73 6b 66 72 65 65 20 20 20 49 4e 54 45 47 45 iskfree INTEGE
0c80: 52 20 44 45 46 41 55 4c 54 20 2d 31 2c 0a 20 20 R DEFAULT -1,.
0c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ca0: 20 20 20 75 6e 61 6d 65 20 20 20 20 20 20 54 45 uname TE
0cb0: 58 54 20 44 45 46 41 55 4c 54 20 27 6e 2f 61 27 XT DEFAULT 'n/a'
0cc0: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 , .
0cd0: 20 20 20 20 20 20 20 20 72 75 6e 64 69 72 20 20 rundir
0ce0: 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 TEXT DEFAULT
0cf0: 27 6e 2f 61 27 2c 0a 20 20 20 20 20 20 20 20 20 'n/a',.
0d00: 20 20 20 20 20 20 20 20 20 20 20 20 69 74 65 6d item
0d10: 5f 70 61 74 68 20 20 54 45 58 54 20 44 45 46 41 _path TEXT DEFA
0d20: 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 ULT '',.
0d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 sta
0d40: 74 65 20 20 20 20 20 20 54 45 58 54 20 44 45 46 te TEXT DEF
0d50: 41 55 4c 54 20 27 4e 4f 54 5f 53 54 41 52 54 45 AULT 'NOT_STARTE
0d60: 44 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 D',.
0d70: 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 status
0d80: 20 20 20 20 54 45 58 54 20 44 45 46 41 55 4c 54 TEXT DEFAULT
0d90: 20 27 46 41 49 4c 27 2c 0a 20 20 20 20 20 20 20 'FAIL',.
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 at
0db0: 74 65 6d 70 74 6e 75 6d 20 49 4e 54 45 47 45 52 temptnum INTEGER
0dc0: 20 44 45 46 41 55 4c 54 20 30 2c 0a 20 20 20 20 DEFAULT 0,.
0dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0de0: 20 66 69 6e 61 6c 5f 6c 6f 67 66 20 54 45 58 54 final_logf TEXT
0df0: 20 44 45 46 41 55 4c 54 20 27 6c 6f 67 73 2f 66 DEFAULT 'logs/f
0e00: 69 6e 61 6c 2e 6c 6f 67 27 2c 0a 20 20 20 20 20 inal.log',.
0e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e20: 6c 6f 67 64 61 74 20 20 20 20 20 42 4c 4f 42 2c logdat BLOB,
0e30: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0e40: 20 20 20 20 20 20 20 72 75 6e 5f 64 75 72 61 74 run_durat
0e50: 69 6f 6e 20 49 4e 54 45 47 45 52 20 44 45 46 41 ion INTEGER DEFA
0e60: 55 4c 54 20 30 2c 0a 20 20 20 20 20 20 20 20 20 ULT 0,.
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d comm
0e80: 65 6e 74 20 20 20 20 54 45 58 54 20 44 45 46 41 ent TEXT DEFA
0e90: 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 ULT '',.
0ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 76 65 eve
0eb0: 6e 74 5f 74 69 6d 65 20 54 49 4d 45 53 54 41 4d nt_time TIMESTAM
0ec0: 50 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 P,.
0ed0: 20 20 20 20 20 20 20 20 66 61 69 6c 5f 63 6f 75 fail_cou
0ee0: 6e 74 20 49 4e 54 45 47 45 52 20 44 45 46 41 55 nt INTEGER DEFAU
0ef0: 4c 54 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 LT 0,.
0f00: 20 20 20 20 20 20 20 20 20 20 20 70 61 73 73 5f pass_
0f10: 63 6f 75 6e 74 20 49 4e 54 45 47 45 52 20 44 45 count INTEGER DE
0f20: 46 41 55 4c 54 20 30 2c 0a 20 20 20 20 20 20 20 FAULT 0,.
0f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 fi
0f40: 72 73 74 5f 65 72 72 20 20 54 45 58 54 2c 0a 20 rst_err TEXT,.
0f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f60: 20 20 20 20 66 69 72 73 74 5f 77 61 72 6e 20 54 first_warn T
0f70: 45 58 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 EXT,.
0f80: 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 52 CONSTR
0f90: 41 49 4e 54 20 74 65 73 74 73 63 6f 6e 73 74 72 AINT testsconstr
0fa0: 61 69 6e 74 20 55 4e 49 51 55 45 20 28 72 75 6e aint UNIQUE (run
0fb0: 5f 69 64 2c 20 74 65 73 74 6e 61 6d 65 2c 20 69 _id, testname, i
0fc0: 74 65 6d 5f 70 61 74 68 29 0a 20 20 20 20 20 20 tem_path).
0fd0: 20 20 20 20 29 3b 22 29 0a 09 20 20 28 73 71 6c );").. (sql
0fe0: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
0ff0: 22 43 52 45 41 54 45 20 49 4e 44 45 58 20 74 65 "CREATE INDEX te
1000: 73 74 73 5f 69 6e 64 65 78 20 4f 4e 20 74 65 73 sts_index ON tes
1010: 74 73 20 28 72 75 6e 5f 69 64 2c 20 74 65 73 74 ts (run_id, test
1020: 6e 61 6d 65 29 3b 22 29 0a 09 20 20 28 73 71 6c name);").. (sql
1030: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
1040: 22 43 52 45 41 54 45 20 56 49 45 57 20 72 75 6e "CREATE VIEW run
1050: 73 5f 74 65 73 74 73 20 41 53 20 53 45 4c 45 43 s_tests AS SELEC
1060: 54 20 2a 20 46 52 4f 4d 20 72 75 6e 73 20 49 4e T * FROM runs IN
1070: 4e 45 52 20 4a 4f 49 4e 20 74 65 73 74 73 20 4f NER JOIN tests O
1080: 4e 20 72 75 6e 73 2e 69 64 3d 74 65 73 74 73 2e N runs.id=tests.
1090: 72 75 6e 5f 69 64 3b 22 29 0a 09 20 20 28 73 71 run_id;").. (sq
10a0: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
10b0: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 "CREATE TABLE I
10c0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74 65 73 F NOT EXISTS tes
10d0: 74 5f 73 74 65 70 73 20 0a 20 20 20 20 20 20 20 t_steps .
10e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10f0: 20 20 20 20 20 20 20 28 69 64 20 49 4e 54 45 47 (id INTEG
1100: 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a ER PRIMARY KEY,.
1110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
1130: 65 73 74 5f 69 64 20 49 4e 54 45 47 45 52 2c 20 est_id INTEGER,
1140: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1160: 73 74 65 70 6e 61 6d 65 20 54 45 58 54 2c 20 0a stepname TEXT, .
1170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
1190: 74 61 74 65 20 54 45 58 54 20 44 45 46 41 55 4c tate TEXT DEFAUL
11a0: 54 20 27 4e 4f 54 5f 53 54 41 52 54 45 44 27 2c T 'NOT_STARTED',
11b0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11d0: 20 73 74 61 74 75 73 20 54 45 58 54 20 44 45 46 status TEXT DEF
11e0: 41 55 4c 54 20 27 6e 2f 61 27 2c 65 76 65 6e 74 AULT 'n/a',event
11f0: 5f 74 69 6d 65 20 54 49 4d 45 53 54 41 4d 50 2c _time TIMESTAMP,
1200: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1220: 63 6f 6d 6d 65 6e 74 20 54 45 58 54 20 44 45 46 comment TEXT DEF
1230: 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 AULT '',.
1240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1250: 20 20 20 20 20 20 20 20 43 4f 4e 53 54 52 41 49 CONSTRAI
1260: 4e 54 20 74 65 73 74 5f 73 74 65 70 73 5f 63 6f NT test_steps_co
1270: 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 55 45 20 nstraint UNIQUE
1280: 28 74 65 73 74 5f 69 64 2c 73 74 65 70 6e 61 6d (test_id,stepnam
1290: 65 2c 73 74 61 74 65 29 29 3b 22 29 0a 09 20 20 e,state));")..
12a0: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
12b0: 20 64 62 20 22 43 52 45 41 54 45 20 54 41 42 4c db "CREATE TABL
12c0: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 E IF NOT EXISTS
12d0: 65 78 74 72 61 64 61 74 20 28 69 64 20 49 4e 54 extradat (id INT
12e0: 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 EGER PRIMARY KEY
12f0: 2c 20 72 75 6e 5f 69 64 20 49 4e 54 45 47 45 52 , run_id INTEGER
1300: 2c 20 6b 65 79 20 54 45 58 54 2c 20 76 61 6c 20 , key TEXT, val
1310: 54 45 58 54 29 3b 22 29 0a 09 20 20 28 73 71 6c TEXT);").. (sql
1320: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
1330: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 "CREATE TABLE IF
1340: 20 4e 4f 54 20 45 58 49 53 54 53 20 6d 65 74 61 NOT EXISTS meta
1350: 64 61 74 20 28 69 64 20 49 4e 54 45 47 45 52 20 dat (id INTEGER
1360: 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 76 61 72 PRIMARY KEY, var
1370: 20 54 45 58 54 2c 20 76 61 6c 20 54 45 58 54 2c TEXT, val TEXT,
1380: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
13a0: 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 6d 65 CONSTRAINT me
13b0: 74 61 64 61 74 5f 63 6f 6e 73 74 72 61 69 6e 74 tadat_constraint
13c0: 20 55 4e 49 51 55 45 20 28 76 61 72 29 29 3b 22 UNIQUE (var));"
13d0: 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 65 78 ).. (sqlite3:ex
13e0: 65 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 ecute db "CREATE
13f0: 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 TABLE IF NOT EX
1400: 49 53 54 53 20 61 63 63 65 73 73 5f 6c 6f 67 20 ISTS access_log
1410: 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 4d (id INTEGER PRIM
1420: 41 52 59 20 4b 45 59 2c 20 75 73 65 72 20 54 45 ARY KEY, user TE
1430: 58 54 2c 20 61 63 63 65 73 73 65 64 20 54 49 4d XT, accessed TIM
1440: 45 53 54 41 4d 50 2c 20 61 72 67 73 20 54 45 58 ESTAMP, args TEX
1450: 54 29 3b 22 29 0a 09 20 20 20 28 73 71 6c 69 74 T);").. (sqlit
1460: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 e3:execute db "C
1470: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e REATE TABLE IF N
1480: 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 5f 64 OT EXISTS test_d
1490: 61 74 61 20 28 69 64 20 49 4e 54 45 47 45 52 20 ata (id INTEGER
14a0: 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 20 PRIMARY KEY,.
14b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
14d0: 74 5f 69 64 20 49 4e 54 45 47 45 52 2c 0a 20 20 t_id INTEGER,.
14e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ca
1500: 74 65 67 6f 72 79 20 54 45 58 54 20 44 45 46 41 tegory TEXT DEFA
1510: 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 ULT '',.
1520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1530: 20 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 variable
1540: 20 54 45 58 54 2c 0a 09 20 20 20 20 20 20 20 20 TEXT,..
1550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1560: 76 61 6c 75 65 20 52 45 41 4c 2c 0a 09 20 20 20 value REAL,..
1570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1580: 20 20 20 20 20 65 78 70 65 63 74 65 64 20 52 45 expected RE
1590: 41 4c 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 AL,..
15a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 6c tol
15b0: 20 52 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 REAL,.
15c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
15d0: 20 20 20 20 20 20 20 75 6e 69 74 73 20 54 45 58 units TEX
15e0: 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 T,.
15f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1600: 20 20 20 63 6f 6d 6d 65 6e 74 20 54 45 58 54 20 comment TEXT
1610: 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 DEFAULT '',.
1620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1630: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 stat
1640: 75 73 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 us TEXT DEFAULT
1650: 27 6e 2f 61 27 2c 0a 20 20 20 20 20 20 20 20 20 'n/a',.
1660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1670: 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 CONSTRAINT
1680: 74 65 73 74 5f 64 61 74 61 20 55 4e 49 51 55 45 test_data UNIQUE
1690: 20 28 74 65 73 74 5f 69 64 2c 63 61 74 65 67 6f (test_id,catego
16a0: 72 79 2c 76 61 72 69 61 62 6c 65 29 29 3b 22 29 ry,variable));")
16b0: 0a 09 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 .. (sqlite3:ex
16c0: 65 63 75 74 65 20 64 62 20 22 43 52 45 41 54 45 ecute db "CREATE
16d0: 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 TABLE IF NOT EX
16e0: 49 53 54 53 20 74 65 73 74 5f 6d 65 74 61 20 28 ISTS test_meta (
16f0: 69 64 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41 id INTEGER PRIMA
1700: 52 59 20 4b 45 59 2c 0a 20 20 20 20 20 20 20 20 RY KEY,.
1710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1720: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
1730: 74 6e 61 6d 65 20 20 20 20 54 45 58 54 20 44 45 tname TEXT DE
1740: 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 FAULT '',.
1750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 a
1770: 75 74 68 6f 72 20 20 20 20 20 20 54 45 58 54 20 uthor TEXT
1780: 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 DEFAULT '',.
1790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17b0: 20 6f 77 6e 65 72 20 20 20 20 20 20 20 54 45 58 owner TEX
17c0: 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 T DEFAULT '',.
17d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
17f0: 20 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 54 description T
1800: 45 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a EXT DEFAULT '',.
1810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1830: 20 20 20 20 20 72 65 76 69 65 77 65 64 20 20 20 reviewed
1840: 20 54 49 4d 45 53 54 41 4d 50 2c 0a 20 20 20 20 TIMESTAMP,.
1850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1870: 20 69 74 65 72 61 74 65 64 20 20 20 20 54 45 58 iterated TEX
1880: 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 T DEFAULT '',.
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 20 20
18b0: 20 20 20 61 76 67 5f 72 75 6e 74 69 6d 65 20 52 avg_runtime R
18c0: 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 EAL,.
18d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18e0: 20 20 20 20 20 20 20 20 20 20 61 76 67 5f 64 69 avg_di
18f0: 73 6b 20 20 20 20 52 45 41 4c 2c 0a 20 20 20 20 sk REAL,.
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 20 20 20 20 20 20 20
1920: 20 74 61 67 73 20 20 20 20 20 20 20 20 54 45 58 tags TEX
1930: 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 T DEFAULT '',.
1940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f CO
1960: 4e 53 54 52 41 49 4e 54 20 74 65 73 74 5f 6d 65 NSTRAINT test_me
1970: 74 61 5f 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e ta_constraint UN
1980: 49 51 55 45 20 28 74 65 73 74 6e 61 6d 65 29 29 IQUE (testname))
1990: 3b 22 29 0a 09 20 20 20 28 73 71 6c 69 74 65 33 ;").. (sqlite3
19a0: 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 52 45 :execute db "CRE
19b0: 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 ATE TABLE IF NOT
19c0: 20 45 58 49 53 54 53 20 74 65 73 74 5f 64 61 74 EXISTS test_dat
19d0: 61 20 28 69 64 20 49 4e 54 45 47 45 52 20 50 52 a (id INTEGER PR
19e0: 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 20 20 20 IMARY KEY,.
19f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a00: 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 5f test_
1a10: 69 64 20 49 4e 54 45 47 45 52 2c 0a 20 20 20 20 id INTEGER,.
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a30: 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 65 cate
1a40: 67 6f 72 79 20 54 45 58 54 20 44 45 46 41 55 4c gory TEXT DEFAUL
1a50: 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 20 20 T '',.
1a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a70: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 54 variable T
1a80: 45 58 54 2c 0a 09 20 20 20 20 20 20 20 20 20 20 EXT,..
1a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 va
1aa0: 6c 75 65 20 52 45 41 4c 2c 0a 09 20 20 20 20 20 lue REAL,..
1ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ac0: 20 20 20 65 78 70 65 63 74 65 64 20 52 45 41 4c expected REAL
1ad0: 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
1ae0: 20 20 20 20 20 20 20 20 20 20 20 74 6f 6c 20 52 tol R
1af0: 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 EAL,.
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b10: 20 20 20 20 20 75 6e 69 74 73 20 54 45 58 54 2c units TEXT,
1b20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b40: 20 63 6f 6d 6d 65 6e 74 20 54 45 58 54 20 44 45 comment TEXT DE
1b50: 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 FAULT '',.
1b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b70: 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 status
1b80: 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 27 6e TEXT DEFAULT 'n
1b90: 2f 61 27 2c 0a 20 20 20 20 20 20 20 20 20 20 20 /a',.
1ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1bb0: 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 74 65 CONSTRAINT te
1bc0: 73 74 5f 64 61 74 61 20 55 4e 49 51 55 45 20 28 st_data UNIQUE (
1bd0: 74 65 73 74 5f 69 64 2c 63 61 74 65 67 6f 72 79 test_id,category
1be0: 2c 76 61 72 69 61 62 6c 65 29 29 3b 22 29 0a 09 ,variable));")..
1bf0: 20 20 3b 3b 20 4d 75 73 74 20 64 6f 20 74 68 69 ;; Must do thi
1c00: 73 20 2a 61 66 74 65 72 2a 20 72 75 6e 6e 69 6e s *after* runnin
1c10: 67 20 70 61 74 63 68 20 64 62 20 21 21 20 4e 6f g patch db !! No
1c20: 20 6d 6f 72 65 2e 20 0a 09 20 20 28 64 62 3a 73 more. .. (db:s
1c30: 65 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 54 et-var db "MEGAT
1c40: 45 53 54 5f 56 45 52 53 49 4f 4e 22 20 6d 65 67 EST_VERSION" meg
1c50: 61 74 65 73 74 2d 76 65 72 73 69 6f 6e 29 0a 09 atest-version)..
1c60: 20 20 29 29 0a 20 20 20 20 64 62 29 29 0a 0a 3b )). db))..;
1c70: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;===============
1c80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1cb0: 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 54 4f 44 4f 3a =======.;; TODO:
1cc0: 0a 3b 3b 20 20 20 70 75 74 20 64 65 6c 74 61 73 .;; put deltas
1cd0: 20 69 6e 74 6f 20 61 6e 20 61 73 73 6f 63 20 6c into an assoc l
1ce0: 69 73 74 20 77 69 74 68 20 76 65 72 73 69 6f 6e ist with version
1cf0: 20 6e 75 6d 62 65 72 73 0a 3b 3b 20 20 20 61 70 numbers.;; ap
1d00: 70 6c 79 20 61 6c 6c 20 66 72 6f 6d 20 6c 61 73 ply all from las
1d10: 74 20 74 6f 20 63 75 72 72 65 6e 74 0a 3b 3b 3d t to current.;;=
1d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d60: 3d 3d 3d 3d 3d 0a 28 64 65 66 69 6e 65 20 28 70 =====.(define (p
1d70: 61 74 63 68 2d 64 62 20 64 62 29 0a 20 20 28 68 atch-db db). (h
1d80: 61 6e 64 6c 65 2d 65 78 63 65 70 74 69 6f 6e 73 andle-exceptions
1d90: 0a 20 20 20 65 78 6e 0a 20 20 20 28 62 65 67 69 . exn. (begi
1da0: 6e 0a 20 20 20 20 20 28 70 72 69 6e 74 20 22 45 n. (print "E
1db0: 78 63 65 70 74 69 6f 6e 3a 20 22 20 65 78 6e 29 xception: " exn)
1dc0: 0a 20 20 20 20 20 28 70 72 69 6e 74 20 22 45 52 . (print "ER
1dd0: 52 4f 52 3a 20 50 6f 73 73 69 62 6c 65 20 6f 75 ROR: Possible ou
1de0: 74 20 6f 66 20 64 61 74 65 20 73 63 68 65 6d 61 t of date schema
1df0: 2c 20 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20 , attempting to
1e00: 61 64 64 20 74 61 62 6c 65 20 6d 65 74 61 64 61 add table metada
1e10: 74 61 2e 2e 2e 22 29 0a 20 20 20 20 20 28 73 71 ta..."). (sq
1e20: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
1e30: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 "CREATE TABLE I
1e40: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 6d 65 74 F NOT EXISTS met
1e50: 61 64 61 74 20 28 69 64 20 49 4e 54 45 47 45 52 adat (id INTEGER
1e60: 2c 20 76 61 72 20 54 45 58 54 2c 20 76 61 6c 20 , var TEXT, val
1e70: 54 45 58 54 2c 0a 20 20 20 20 20 20 20 20 20 20 TEXT,.
1e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1e90: 20 20 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e CONSTRAIN
1ea0: 54 20 6d 65 74 61 64 61 74 5f 63 6f 6e 73 74 72 T metadat_constr
1eb0: 61 69 6e 74 20 55 4e 49 51 55 45 20 28 76 61 72 aint UNIQUE (var
1ec0: 29 29 3b 22 29 0a 20 20 20 20 20 28 69 66 20 28 ));"). (if (
1ed0: 6e 6f 74 20 28 64 62 3a 67 65 74 2d 76 61 72 20 not (db:get-var
1ee0: 64 62 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 db "MEGATEST_VER
1ef0: 53 49 4f 4e 22 29 29 0a 09 20 28 64 62 3a 73 65 SION")).. (db:se
1f00: 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 54 45 t-var db "MEGATE
1f10: 53 54 5f 56 45 52 53 49 4f 4e 22 20 31 2e 31 37 ST_VERSION" 1.17
1f20: 29 29 29 0a 20 20 20 28 6c 65 74 20 28 28 6d 76 ))). (let ((mv
1f30: 65 72 20 28 64 62 3a 67 65 74 2d 76 61 72 20 64 er (db:get-var d
1f40: 62 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 53 b "MEGATEST_VERS
1f50: 49 4f 4e 22 29 29 0a 09 20 28 74 65 73 74 2d 6d ION")).. (test-m
1f60: 65 74 61 2d 64 65 66 20 22 43 52 45 41 54 45 20 eta-def "CREATE
1f70: 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 TABLE IF NOT EXI
1f80: 53 54 53 20 74 65 73 74 5f 6d 65 74 61 20 28 69 STS test_meta (i
1f90: 64 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41 52 d INTEGER PRIMAR
1fa0: 59 20 4b 45 59 2c 0a 20 20 20 20 20 20 20 20 20 Y KEY,.
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fc0: 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
1fd0: 6e 61 6d 65 20 20 20 20 54 45 58 54 20 44 45 46 name TEXT DEF
1fe0: 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 AULT '',.
1ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 75 au
2010: 74 68 6f 72 20 20 20 20 20 20 54 45 58 54 20 44 thor TEXT D
2020: 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 EFAULT '',.
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2050: 6f 77 6e 65 72 20 20 20 20 20 20 20 54 45 58 54 owner TEXT
2060: 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 DEFAULT '',.
2070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2090: 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 54 45 description TE
20a0: 58 54 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 XT DEFAULT '',.
20b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20d0: 20 20 20 20 72 65 76 69 65 77 65 64 20 20 20 20 reviewed
20e0: 54 49 4d 45 53 54 41 4d 50 2c 0a 20 20 20 20 20 TIMESTAMP,.
20f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2110: 69 74 65 72 61 74 65 64 20 20 20 20 54 45 58 54 iterated TEXT
2120: 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 DEFAULT '',.
2130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2150: 20 20 61 76 67 5f 72 75 6e 74 69 6d 65 20 52 45 avg_runtime RE
2160: 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 AL,.
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2180: 20 20 20 20 20 20 20 20 20 61 76 67 5f 64 69 73 avg_dis
2190: 6b 20 20 20 20 52 45 41 4c 2c 0a 20 20 20 20 20 k REAL,.
21a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21c0: 74 61 67 73 20 20 20 20 20 20 20 20 54 45 58 54 tags TEXT
21d0: 20 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 DEFAULT '',.
21e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e CON
2200: 53 54 52 41 49 4e 54 20 74 65 73 74 5f 6d 65 74 STRAINT test_met
2210: 61 5f 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 a_constraint UNI
2220: 51 55 45 20 28 74 65 73 74 6e 61 6d 65 29 29 3b QUE (testname));
2230: 22 29 29 0a 20 20 20 20 20 28 70 72 69 6e 74 20 ")). (print
2240: 22 43 75 72 72 65 6e 74 20 73 63 68 65 6d 61 20 "Current schema
2250: 76 65 72 73 69 6f 6e 3a 20 22 20 6d 76 65 72 20 version: " mver
2260: 22 20 63 75 72 72 65 6e 74 20 6d 65 67 61 74 65 " current megate
2270: 73 74 20 76 65 72 73 69 6f 6e 3a 20 22 20 6d 65 st version: " me
2280: 67 61 74 65 73 74 2d 76 65 72 73 69 6f 6e 29 0a gatest-version).
2290: 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 (cond.
22a0: 20 28 28 6e 6f 74 20 6d 76 65 72 29 0a 20 20 20 ((not mver).
22b0: 20 20 20 20 28 70 72 69 6e 74 20 22 41 64 64 69 (print "Addi
22c0: 6e 67 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 ng megatest-vers
22d0: 69 6f 6e 20 74 6f 20 6d 65 74 61 64 61 74 61 22 ion to metadata"
22e0: 29 20 3b 3b 20 4e 65 65 64 20 74 6f 20 72 65 63 ) ;; Need to rec
22f0: 72 65 61 74 65 20 74 68 65 20 74 61 62 6c 65 0a reate the table.
2300: 20 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a (sqlite3:
2310: 65 78 65 63 75 74 65 20 64 62 20 22 44 52 4f 50 execute db "DROP
2320: 20 54 41 42 4c 45 20 49 46 20 45 58 49 53 54 53 TABLE IF EXISTS
2330: 20 6d 65 74 61 64 61 74 3b 22 29 0a 20 20 20 20 metadat;").
2340: 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 (sqlite3:exec
2350: 75 74 65 20 64 62 20 22 43 52 45 41 54 45 20 54 ute db "CREATE T
2360: 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 ABLE IF NOT EXIS
2370: 54 53 20 6d 65 74 61 64 61 74 20 28 69 64 20 49 TS metadat (id I
2380: 4e 54 45 47 45 52 2c 20 76 61 72 20 54 45 58 54 NTEGER, var TEXT
2390: 2c 20 76 61 6c 20 54 45 58 54 2c 0a 20 20 20 20 , val TEXT,.
23a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
23b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f CO
23c0: 4e 53 54 52 41 49 4e 54 20 6d 65 74 61 64 61 74 NSTRAINT metadat
23d0: 5f 63 6f 6e 73 74 72 61 69 6e 74 20 55 4e 49 51 _constraint UNIQ
23e0: 55 45 20 28 76 61 72 29 29 3b 22 29 0a 20 20 20 UE (var));").
23f0: 20 20 20 20 28 64 62 3a 73 65 74 2d 76 61 72 20 (db:set-var
2400: 64 62 20 22 4d 45 47 41 54 45 53 54 5f 56 45 52 db "MEGATEST_VER
2410: 53 49 4f 4e 22 20 31 2e 31 37 29 0a 20 20 20 20 SION" 1.17).
2420: 20 20 20 28 70 61 74 63 68 2d 64 62 29 29 0a 20 (patch-db)).
2430: 20 20 20 20 20 28 28 3c 20 6d 76 65 72 20 31 2e ((< mver 1.
2440: 32 31 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 21). (sqli
2450: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
2460: 44 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58 DROP TABLE IF EX
2470: 49 53 54 53 20 6d 65 74 61 64 61 74 3b 22 29 0a ISTS metadat;").
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 22 43 52 45 41 execute db "CREA
24a0: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 TE TABLE IF NOT
24b0: 45 58 49 53 54 53 20 6d 65 74 61 64 61 74 20 28 EXISTS metadat (
24c0: 69 64 20 49 4e 54 45 47 45 52 2c 20 76 61 72 20 id INTEGER, var
24d0: 54 45 58 54 2c 20 76 61 6c 20 54 45 58 54 2c 0a TEXT, val TEXT,.
24e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2500: 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 6d 65 74 CONSTRAINT met
2510: 61 64 61 74 5f 63 6f 6e 73 74 72 61 69 6e 74 20 adat_constraint
2520: 55 4e 49 51 55 45 20 28 76 61 72 29 29 3b 22 29 UNIQUE (var));")
2530: 0a 20 20 20 20 20 20 20 28 64 62 3a 73 65 74 2d . (db:set-
2540: 76 61 72 20 64 62 20 22 4d 45 47 41 54 45 53 54 var db "MEGATEST
2550: 5f 56 45 52 53 49 4f 4e 22 20 31 2e 32 31 29 20 _VERSION" 1.21)
2560: 3b 3b 20 73 65 74 20 62 65 66 6f 72 65 2c 20 6a ;; set before, j
2570: 75 73 74 20 69 6e 20 63 61 73 65 20 74 68 65 20 ust in case the
2580: 63 68 61 6e 67 65 73 20 61 72 65 20 61 6c 72 65 changes are alre
2590: 61 64 79 20 61 70 70 6c 69 65 64 0a 20 20 20 20 ady applied.
25a0: 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 (sqlite3:exec
25b0: 75 74 65 20 64 62 20 74 65 73 74 2d 6d 65 74 61 ute db test-meta
25c0: 2d 64 65 66 29 0a 20 20 20 20 20 20 20 28 66 6f -def). (fo
25d0: 72 2d 65 61 63 68 20 0a 09 28 6c 61 6d 62 64 61 r-each ..(lambda
25e0: 20 28 73 74 6d 74 29 0a 09 20 20 28 73 71 6c 69 (stmt).. (sqli
25f0: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 73 te3:execute db s
2600: 74 6d 74 29 29 0a 09 28 6c 69 73 74 20 0a 09 20 tmt))..(list ..
2610: 22 41 4c 54 45 52 20 54 41 42 4c 45 20 74 65 73 "ALTER TABLE tes
2620: 74 73 20 41 44 44 20 43 4f 4c 55 4d 4e 20 66 69 ts ADD COLUMN fi
2630: 72 73 74 5f 65 72 72 20 54 45 58 54 3b 22 0a 09 rst_err TEXT;"..
2640: 20 22 41 4c 54 45 52 20 54 41 42 4c 45 20 74 65 "ALTER TABLE te
2650: 73 74 73 20 41 44 44 20 43 4f 4c 55 4d 4e 20 66 sts ADD COLUMN f
2660: 69 72 73 74 5f 77 61 72 6e 20 54 45 58 54 3b 22 irst_warn TEXT;"
2670: 0a 09 20 29 29 0a 20 20 20 20 20 20 20 28 70 61 .. )). (pa
2680: 74 63 68 2d 64 62 29 29 0a 20 20 20 20 20 20 28 tch-db)). (
2690: 28 3c 20 6d 76 65 72 20 31 2e 32 34 29 0a 20 20 (< mver 1.24).
26a0: 20 20 20 20 20 28 64 62 3a 73 65 74 2d 76 61 72 (db:set-var
26b0: 20 64 62 20 22 4d 45 47 41 54 45 53 54 5f 56 45 db "MEGATEST_VE
26c0: 52 53 49 4f 4e 22 20 31 2e 32 34 29 0a 20 20 20 RSION" 1.24).
26d0: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 (sqlite3:exe
26e0: 63 75 74 65 20 64 62 20 22 44 52 4f 50 20 54 41 cute db "DROP TA
26f0: 42 4c 45 20 49 46 20 45 58 49 53 54 53 20 74 65 BLE IF EXISTS te
2700: 73 74 5f 64 61 74 61 3b 22 29 0a 20 20 20 20 20 st_data;").
2710: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
2720: 74 65 20 64 62 20 22 44 52 4f 50 20 54 41 42 4c te db "DROP TABL
2730: 45 20 49 46 20 45 58 49 53 54 53 20 74 65 73 74 E IF EXISTS test
2740: 5f 6d 65 74 61 3b 22 29 0a 20 20 20 20 20 20 20 _meta;").
2750: 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 (sqlite3:execute
2760: 20 64 62 20 74 65 73 74 2d 6d 65 74 61 2d 64 65 db test-meta-de
2770: 66 29 0a 20 20 20 20 20 20 20 28 73 71 6c 69 74 f). (sqlit
2780: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 43 e3:execute db "C
2790: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e REATE TABLE IF N
27a0: 4f 54 20 45 58 49 53 54 53 20 74 65 73 74 5f 64 OT EXISTS test_d
27b0: 61 74 61 20 28 69 64 20 49 4e 54 45 47 45 52 20 ata (id INTEGER
27c0: 50 52 49 4d 41 52 59 20 4b 45 59 2c 0a 20 20 20 PRIMARY KEY,.
27d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
27e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
27f0: 74 5f 69 64 20 49 4e 54 45 47 45 52 2c 0a 20 20 t_id INTEGER,.
2800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ca
2820: 74 65 67 6f 72 79 20 54 45 58 54 20 44 45 46 41 tegory TEXT DEFA
2830: 55 4c 54 20 27 27 2c 0a 20 20 20 20 20 20 20 20 ULT '',.
2840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2850: 20 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 variable
2860: 20 54 45 58 54 2c 0a 09 20 20 20 20 20 20 20 20 TEXT,..
2870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2880: 76 61 6c 75 65 20 52 45 41 4c 2c 0a 09 20 20 20 value REAL,..
2890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
28a0: 20 20 20 20 20 65 78 70 65 63 74 65 64 20 52 45 expected RE
28b0: 41 4c 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 AL,..
28c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 6c tol
28d0: 20 52 45 41 4c 2c 0a 20 20 20 20 20 20 20 20 20 REAL,.
28e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
28f0: 20 20 20 20 20 20 20 75 6e 69 74 73 20 54 45 58 units TEX
2900: 54 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 T,.
2910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2920: 20 20 20 63 6f 6d 6d 65 6e 74 20 54 45 58 54 20 comment TEXT
2930: 44 45 46 41 55 4c 54 20 27 27 2c 0a 20 20 20 20 DEFAULT '',.
2940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2950: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 stat
2960: 75 73 20 54 45 58 54 20 44 45 46 41 55 4c 54 20 us TEXT DEFAULT
2970: 27 6e 2f 61 27 2c 0a 20 20 20 20 20 20 20 20 20 'n/a',.
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2990: 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 CONSTRAINT
29a0: 74 65 73 74 5f 64 61 74 61 20 55 4e 49 51 55 45 test_data UNIQUE
29b0: 20 28 74 65 73 74 5f 69 64 2c 63 61 74 65 67 6f (test_id,catego
29c0: 72 79 2c 76 61 72 69 61 62 6c 65 29 29 3b 22 29 ry,variable));")
29d0: 0a 20 20 20 20 20 20 20 28 70 61 74 63 68 2d 64 . (patch-d
29e0: 62 29 29 0a 20 20 20 20 20 28 28 3c 20 6d 76 65 b)). ((< mve
29f0: 72 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 r megatest-versi
2a00: 6f 6e 29 0a 20 20 20 20 20 20 28 64 62 3a 73 65 on). (db:se
2a10: 74 2d 76 61 72 20 64 62 20 22 4d 45 47 41 54 45 t-var db "MEGATE
2a20: 53 54 5f 56 45 52 53 49 4f 4e 22 20 6d 65 67 61 ST_VERSION" mega
2a30: 74 65 73 74 2d 76 65 72 73 69 6f 6e 29 29 29 29 test-version))))
2a40: 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ))..;;==========
2a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2a80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 ============.;;
2a90: 6d 65 74 61 20 67 65 74 20 61 6e 64 20 73 65 74 meta get and set
2aa0: 20 76 61 72 73 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d vars.;;========
2ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ad0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ae0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a ==============..
2af0: 3b 3b 20 72 65 74 75 72 6e 73 20 6e 75 6d 62 65 ;; returns numbe
2b00: 72 20 69 66 20 73 74 72 69 6e 67 2d 3e 6e 75 6d r if string->num
2b10: 62 65 72 20 69 73 20 73 75 63 63 65 73 73 66 75 ber is successfu
2b20: 6c 2c 20 73 74 72 69 6e 67 20 6f 74 68 65 72 77 l, string otherw
2b30: 69 73 65 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ise.(define (db:
2b40: 67 65 74 2d 76 61 72 20 64 62 20 76 61 72 29 0a get-var db var).
2b50: 20 20 28 6c 65 74 20 28 28 72 65 73 20 23 66 29 (let ((res #f)
2b60: 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 ). (sqlite3:f
2b70: 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 or-each-row.
2b80: 20 28 6c 61 6d 62 64 61 20 28 76 61 6c 29 0a 20 (lambda (val).
2b90: 20 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 (set! res
2ba0: 76 61 6c 29 29 0a 20 20 20 20 20 64 62 20 22 53 val)). db "S
2bb0: 45 4c 45 43 54 20 76 61 6c 20 46 52 4f 4d 20 6d ELECT val FROM m
2bc0: 65 74 61 64 61 74 20 57 48 45 52 45 20 76 61 72 etadat WHERE var
2bd0: 3d 3f 3b 22 20 76 61 72 29 0a 20 20 20 20 28 69 =?;" var). (i
2be0: 66 20 28 73 74 72 69 6e 67 3f 20 72 65 73 29 0a f (string? res).
2bf0: 09 28 6c 65 74 20 28 28 76 61 6c 6e 75 6d 20 28 .(let ((valnum (
2c00: 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 20 72 string->number r
2c10: 65 73 29 29 29 0a 09 20 20 28 69 66 20 76 61 6c es))).. (if val
2c20: 6e 75 6d 20 76 61 6c 6e 75 6d 20 72 65 73 29 29 num valnum res))
2c30: 0a 09 72 65 73 29 29 29 0a 0a 28 64 65 66 69 6e ..res)))..(defin
2c40: 65 20 28 64 62 3a 73 65 74 2d 76 61 72 20 64 62 e (db:set-var db
2c50: 20 76 61 72 20 76 61 6c 29 0a 20 20 28 73 71 6c var val). (sql
2c60: 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 ite3:execute db
2c70: 22 49 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 "INSERT OR REPLA
2c80: 43 45 20 49 4e 54 4f 20 6d 65 74 61 64 61 74 20 CE INTO metadat
2c90: 28 76 61 72 2c 76 61 6c 29 20 56 41 4c 55 45 53 (var,val) VALUES
2ca0: 20 28 3f 2c 3f 29 3b 22 20 76 61 72 20 76 61 6c (?,?);" var val
2cb0: 29 29 0a 0a 3b 3b 20 75 73 65 20 61 20 67 6c 6f ))..;; use a glo
2cc0: 62 61 6c 20 66 6f 72 20 73 6f 6d 65 20 70 72 69 bal for some pri
2cd0: 6d 69 74 69 76 65 20 63 61 63 68 69 6e 67 2c 20 mitive caching,
2ce0: 69 74 20 69 73 20 6a 75 73 74 20 73 69 6c 6c 79 it is just silly
2cf0: 20 74 6f 20 72 65 2d 72 65 61 64 20 74 68 65 20 to re-read the
2d00: 64 62 20 0a 3b 3b 20 6f 76 65 72 20 61 6e 64 20 db .;; over and
2d10: 6f 76 65 72 20 61 67 61 69 6e 20 66 6f 72 20 74 over again for t
2d20: 68 65 20 6b 65 79 73 20 73 69 6e 63 65 20 74 68 he keys since th
2d30: 65 79 20 6e 65 76 65 72 20 63 68 61 6e 67 65 0a ey never change.
2d40: 0a 28 64 65 66 69 6e 65 20 2a 64 62 2d 6b 65 79 .(define *db-key
2d50: 73 2a 20 23 66 29 0a 0a 28 64 65 66 69 6e 65 20 s* #f)..(define
2d60: 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 64 62 29 (db-get-keys db)
2d70: 0a 20 20 28 69 66 20 2a 64 62 2d 6b 65 79 73 2a . (if *db-keys*
2d80: 20 2a 64 62 2d 6b 65 79 73 2a 20 0a 20 20 20 20 *db-keys* .
2d90: 20 20 28 6c 65 74 20 28 28 72 65 73 20 27 28 29 (let ((res '()
2da0: 29 29 0a 09 28 73 71 6c 69 74 65 33 3a 66 6f 72 ))..(sqlite3:for
2db0: 2d 65 61 63 68 2d 72 6f 77 20 0a 09 20 28 6c 61 -each-row .. (la
2dc0: 6d 62 64 61 20 28 6b 65 79 20 6b 65 79 74 79 70 mbda (key keytyp
2dd0: 65 29 0a 09 20 20 20 28 73 65 74 21 20 72 65 73 e).. (set! res
2de0: 20 28 63 6f 6e 73 20 28 76 65 63 74 6f 72 20 6b (cons (vector k
2df0: 65 79 20 6b 65 79 74 79 70 65 29 20 72 65 73 29 ey keytype) res)
2e00: 29 29 0a 09 20 64 62 0a 09 20 22 53 45 4c 45 43 )).. db.. "SELEC
2e10: 54 20 66 69 65 6c 64 6e 61 6d 65 2c 66 69 65 6c T fieldname,fiel
2e20: 64 74 79 70 65 20 46 52 4f 4d 20 6b 65 79 73 20 dtype FROM keys
2e30: 4f 52 44 45 52 20 42 59 20 69 64 20 44 45 53 43 ORDER BY id DESC
2e40: 3b 22 29 0a 09 28 73 65 74 21 20 2a 64 62 2d 6b ;")..(set! *db-k
2e50: 65 79 73 2a 20 72 65 73 29 0a 09 72 65 73 29 29 eys* res)..res))
2e60: 29 0a 0a 28 64 65 66 69 6e 65 20 64 62 3a 67 65 )..(define db:ge
2e70: 74 2d 6b 65 79 73 20 64 62 2d 67 65 74 2d 6b 65 t-keys db-get-ke
2e80: 79 73 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 ys)..(define (db
2e90: 3a 67 65 74 2d 76 61 6c 75 65 2d 62 79 2d 68 65 :get-value-by-he
2ea0: 61 64 65 72 20 72 6f 77 20 68 65 61 64 65 72 20 ader row header
2eb0: 66 69 65 6c 64 29 0a 20 20 28 69 66 20 28 6e 75 field). (if (nu
2ec0: 6c 6c 3f 20 68 65 61 64 65 72 29 20 23 66 0a 20 ll? header) #f.
2ed0: 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 (let loop (
2ee0: 28 68 65 64 20 28 63 61 72 20 68 65 61 64 65 72 (hed (car header
2ef0: 29 29 0a 09 09 20 28 74 61 6c 20 28 63 64 72 20 ))... (tal (cdr
2f00: 68 65 61 64 65 72 29 29 0a 09 09 20 28 6e 20 20 header))... (n
2f10: 20 30 29 29 0a 09 28 69 66 20 28 65 71 75 61 6c 0))..(if (equal
2f20: 3f 20 68 65 64 20 66 69 65 6c 64 29 0a 09 20 20 ? hed field)..
2f30: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 6f (vector-ref ro
2f40: 77 20 6e 29 0a 09 20 20 20 20 28 69 66 20 28 6e w n).. (if (n
2f50: 75 6c 6c 3f 20 74 61 6c 29 20 23 66 20 28 6c 6f ull? tal) #f (lo
2f60: 6f 70 20 28 63 61 72 20 74 61 6c 29 28 63 64 72 op (car tal)(cdr
2f70: 20 74 61 6c 29 28 2b 20 6e 20 31 29 29 29 29 29 tal)(+ n 1)))))
2f80: 29 29 0a 09 20 20 20 20 0a 3b 3b 3d 3d 3d 3d 3d )).. .;;=====
2f90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2fd0: 3d 0a 3b 3b 20 20 52 20 55 20 4e 20 53 0a 3b 3b =.;; R U N S.;;
2fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2ff0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3020: 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 20 ======..(define
3030: 28 72 75 6e 73 3a 67 65 74 2d 73 74 64 2d 72 75 (runs:get-std-ru
3040: 6e 2d 66 69 65 6c 64 73 20 6b 65 79 73 20 72 65 n-fields keys re
3050: 6d 66 69 65 6c 64 73 29 0a 20 20 28 6c 65 74 2a mfields). (let*
3060: 20 28 28 68 65 61 64 65 72 20 20 20 20 28 61 70 ((header (ap
3070: 70 65 6e 64 20 28 6d 61 70 20 6b 65 79 3a 67 65 pend (map key:ge
3080: 74 2d 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 t-fieldname keys
3090: 29 0a 09 09 09 20 20 20 20 72 65 6d 66 69 65 6c ).... remfiel
30a0: 64 73 29 29 0a 09 20 28 6b 65 79 73 74 72 20 20 ds)).. (keystr
30b0: 20 20 28 63 6f 6e 63 20 28 6b 65 79 73 2d 3e 6b (conc (keys->k
30c0: 65 79 73 74 72 20 6b 65 79 73 29 20 22 2c 22 0a eystr keys) ",".
30d0: 09 09 09 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 ... (string-int
30e0: 65 72 73 70 65 72 73 65 20 72 65 6d 66 69 65 6c ersperse remfiel
30f0: 64 73 20 22 2c 22 29 29 29 29 0a 20 20 20 20 28 ds ",")))). (
3100: 6c 69 73 74 20 6b 65 79 73 74 72 20 68 65 61 64 list keystr head
3110: 65 72 29 29 29 0a 0a 3b 3b 20 57 41 53 20 64 62 er)))..;; WAS db
3120: 2d 67 65 74 2d 72 75 6e 73 20 46 49 58 4d 45 20 -get-runs FIXME
3130: 49 4e 20 52 45 4d 41 49 4e 49 4e 47 20 43 4f 44 IN REMAINING COD
3140: 45 0a 3b 3b 0a 3b 3b 20 4d 45 52 47 45 20 54 48 E.;;.;; MERGE TH
3150: 49 53 20 57 49 54 48 20 64 62 3a 67 65 74 2d 72 IS WITH db:get-r
3160: 75 6e 73 2c 20 61 63 63 69 64 65 6e 74 6c 79 20 uns, accidently
3170: 77 72 6f 74 65 20 69 74 20 74 77 69 63 65 0a 3b wrote it twice.;
3180: 3b 0a 3b 3b 20 72 65 70 6c 61 63 65 20 68 65 61 ;.;; replace hea
3190: 64 65 72 20 61 6e 64 20 6b 65 79 73 74 72 20 77 der and keystr w
31a0: 69 74 68 20 61 20 63 61 6c 6c 20 74 6f 20 72 75 ith a call to ru
31b0: 6e 73 3a 67 65 74 2d 73 74 64 2d 72 75 6e 2d 66 ns:get-std-run-f
31c0: 69 65 6c 64 73 0a 3b 3b 0a 3b 3b 20 6b 65 79 70 ields.;;.;; keyp
31d0: 61 74 74 73 3a 20 28 20 28 4b 45 59 31 20 22 61 atts: ( (KEY1 "a
31e0: 62 63 25 64 65 66 22 29 28 4b 45 59 32 20 22 25 bc%def")(KEY2 "%
31f0: 22 29 20 29 0a 3b 3b 0a 28 64 65 66 69 6e 65 20 ") ).;;.(define
3200: 28 64 62 3a 67 65 74 2d 72 75 6e 73 20 64 62 20 (db:get-runs db
3210: 72 75 6e 70 61 74 74 20 63 6f 75 6e 74 20 6f 66 runpatt count of
3220: 66 73 65 74 20 6b 65 79 70 61 74 74 73 29 0a 20 fset keypatts).
3230: 20 28 6c 65 74 2a 20 28 28 72 65 73 20 20 20 20 (let* ((res
3240: 20 20 27 28 29 29 0a 09 20 28 6b 65 79 73 20 20 '()).. (keys
3250: 20 20 20 20 28 64 62 2d 67 65 74 2d 6b 65 79 73 (db-get-keys
3260: 20 64 62 29 29 0a 09 20 28 72 65 6d 66 69 65 6c db)).. (remfiel
3270: 64 73 20 28 6c 69 73 74 20 22 69 64 22 20 22 72 ds (list "id" "r
3280: 75 6e 6e 61 6d 65 22 20 22 73 74 61 74 65 22 20 unname" "state"
3290: 22 73 74 61 74 75 73 22 20 22 6f 77 6e 65 72 22 "status" "owner"
32a0: 20 22 65 76 65 6e 74 5f 74 69 6d 65 22 29 29 0a "event_time")).
32b0: 09 20 28 68 65 61 64 65 72 20 20 20 20 28 61 70 . (header (ap
32c0: 70 65 6e 64 20 28 6d 61 70 20 6b 65 79 3a 67 65 pend (map key:ge
32d0: 74 2d 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 t-fieldname keys
32e0: 29 0a 09 09 09 20 20 20 20 72 65 6d 66 69 65 6c ).... remfiel
32f0: 64 73 29 29 0a 09 20 28 6b 65 79 73 74 72 20 20 ds)).. (keystr
3300: 20 20 28 63 6f 6e 63 20 28 6b 65 79 73 2d 3e 6b (conc (keys->k
3310: 65 79 73 74 72 20 6b 65 79 73 29 20 22 2c 22 0a eystr keys) ",".
3320: 09 09 09 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 ... (string-int
3330: 65 72 73 70 65 72 73 65 20 72 65 6d 66 69 65 6c ersperse remfiel
3340: 64 73 20 22 2c 22 29 29 29 0a 09 20 28 71 72 79 ds ","))).. (qry
3350: 73 74 72 20 20 20 20 28 63 6f 6e 63 20 22 53 45 str (conc "SE
3360: 4c 45 43 54 20 22 20 6b 65 79 73 74 72 20 22 20 LECT " keystr "
3370: 46 52 4f 4d 20 72 75 6e 73 20 57 48 45 52 45 20 FROM runs WHERE
3380: 72 75 6e 6e 61 6d 65 20 4c 49 4b 45 20 3f 20 22 runname LIKE ? "
3390: 0a 09 09 09 20 20 3b 3b 20 47 65 6e 65 72 61 74 .... ;; Generat
33a0: 65 3a 20 22 20 41 4e 44 20 78 20 4c 49 4b 45 20 e: " AND x LIKE
33b0: 27 6b 65 79 70 61 74 74 27 20 2e 2e 2e 22 0a 09 'keypatt' ..."..
33c0: 09 09 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 6b .. (if (null? k
33d0: 65 79 70 61 74 74 73 29 20 22 22 0a 09 09 09 20 eypatts) ""....
33e0: 20 20 20 20 20 28 63 6f 6e 63 20 22 20 41 4e 44 (conc " AND
33f0: 20 22 0a 09 09 09 09 20 20 20 20 28 73 74 72 69 "..... (stri
3400: 6e 67 2d 6a 6f 69 6e 20 0a 09 09 09 09 20 20 20 ng-join .....
3410: 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 (map (lambda (
3420: 6b 65 79 70 61 74 74 29 0a 09 09 09 09 09 20 20 keypatt)......
3430: 20 20 28 6c 65 74 20 28 28 6b 65 79 20 20 28 63 (let ((key (c
3440: 61 72 20 6b 65 79 70 61 74 74 29 29 0a 09 09 09 ar keypatt))....
3450: 09 09 09 20 20 28 70 61 74 74 20 28 63 61 64 72 ... (patt (cadr
3460: 20 6b 65 79 70 61 74 74 29 29 29 0a 09 09 09 09 keypatt))).....
3470: 09 20 20 20 20 20 20 28 63 6f 6e 63 20 6b 65 79 . (conc key
3480: 20 22 20 4c 49 4b 45 20 27 22 20 70 61 74 74 20 " LIKE '" patt
3490: 22 27 22 29 29 29 0a 09 09 09 09 09 20 20 6b 65 "'")))...... ke
34a0: 79 70 61 74 74 73 29 0a 09 09 09 09 20 20 20 20 ypatts).....
34b0: 20 22 20 41 4e 44 20 22 29 29 29 0a 09 09 09 20 " AND ")))....
34c0: 20 22 20 4f 52 44 45 52 20 42 59 20 65 76 65 6e " ORDER BY even
34d0: 74 5f 74 69 6d 65 20 44 45 53 43 20 22 0a 09 09 t_time DESC "...
34e0: 09 20 20 28 69 66 20 28 6e 75 6d 62 65 72 3f 20 . (if (number?
34f0: 63 6f 75 6e 74 29 0a 09 09 09 20 20 20 20 20 20 count)....
3500: 28 63 6f 6e 63 20 22 20 4c 49 4d 49 54 20 22 20 (conc " LIMIT "
3510: 63 6f 75 6e 74 29 0a 09 09 09 20 20 20 20 20 20 count)....
3520: 22 22 29 0a 09 09 09 20 20 28 69 66 20 28 6e 75 "").... (if (nu
3530: 6d 62 65 72 3f 20 6f 66 66 73 65 74 29 0a 09 09 mber? offset)...
3540: 09 20 20 20 20 20 20 28 63 6f 6e 63 20 22 20 4f . (conc " O
3550: 46 46 53 45 54 20 22 20 6f 66 66 73 65 74 29 0a FFSET " offset).
3560: 09 09 09 20 20 20 20 20 20 22 22 29 29 29 29 0a ... "")))).
3570: 20 20 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 (debug:print
3580: 20 34 20 22 64 62 3a 67 65 74 2d 72 75 6e 73 20 4 "db:get-runs
3590: 71 72 79 73 74 72 3a 20 22 20 71 72 79 73 74 72 qrystr: " qrystr
35a0: 20 22 5c 6e 6b 65 79 70 61 74 74 73 3a 20 22 20 "\nkeypatts: "
35b0: 6b 65 79 70 61 74 74 73 29 0a 20 20 20 20 28 73 keypatts). (s
35c0: 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d qlite3:for-each-
35d0: 72 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 row. (lambda
35e0: 20 28 61 20 2e 20 78 29 0a 20 20 20 20 20 20 20 (a . x).
35f0: 28 73 65 74 21 20 72 65 73 20 28 63 6f 6e 73 20 (set! res (cons
3600: 28 61 70 70 6c 79 20 76 65 63 74 6f 72 20 61 20 (apply vector a
3610: 78 29 20 72 65 73 29 29 29 0a 20 20 20 20 20 64 x) res))). d
3620: 62 0a 20 20 20 20 20 71 72 79 73 74 72 0a 20 20 b. qrystr.
3630: 20 20 20 72 75 6e 70 61 74 74 29 0a 20 20 20 20 runpatt).
3640: 28 76 65 63 74 6f 72 20 68 65 61 64 65 72 20 72 (vector header r
3650: 65 73 29 29 29 0a 0a 3b 3b 20 6a 75 73 74 20 67 es)))..;; just g
3660: 65 74 20 63 6f 75 6e 74 20 6f 66 20 72 75 6e 73 et count of runs
3670: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 .(define (db:get
3680: 2d 6e 75 6d 2d 72 75 6e 73 20 64 62 20 72 75 6e -num-runs db run
3690: 70 61 74 74 29 0a 20 20 28 6c 65 74 20 28 28 6e patt). (let ((n
36a0: 75 6d 72 75 6e 73 20 30 29 29 0a 20 20 20 20 28 umruns 0)). (
36b0: 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 sqlite3:for-each
36c0: 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d 62 -row . (lamb
36d0: 64 61 20 28 63 6f 75 6e 74 29 0a 20 20 20 20 20 da (count).
36e0: 20 20 28 73 65 74 21 20 6e 75 6d 72 75 6e 73 20 (set! numruns
36f0: 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 64 62 0a count)). db.
3700: 20 20 20 20 20 22 53 45 4c 45 43 54 20 43 4f 55 "SELECT COU
3710: 4e 54 28 69 64 29 20 46 52 4f 4d 20 72 75 6e 73 NT(id) FROM runs
3720: 20 57 48 45 52 45 20 72 75 6e 6e 61 6d 65 20 4c WHERE runname L
3730: 49 4b 45 20 3f 3b 22 20 72 75 6e 70 61 74 74 29 IKE ?;" runpatt)
3740: 0a 20 20 20 20 6e 75 6d 72 75 6e 73 29 29 0a 0a . numruns))..
3750: 0a 3b 3b 20 75 73 65 20 28 67 65 74 2d 76 61 6c .;; use (get-val
3760: 75 65 2d 62 79 2d 68 65 61 64 65 72 20 28 64 62 ue-by-header (db
3770: 3a 67 65 74 2d 68 65 61 64 65 72 20 72 75 6e 69 :get-header runi
3780: 6e 66 6f 29 28 64 62 3a 67 65 74 2d 72 6f 77 20 nfo)(db:get-row
3790: 72 75 6e 69 6e 66 6f 29 29 0a 28 64 65 66 69 6e runinfo)).(defin
37a0: 65 20 28 64 62 3a 67 65 74 2d 72 75 6e 2d 69 6e e (db:get-run-in
37b0: 66 6f 20 64 62 20 72 75 6e 2d 69 64 29 0a 20 20 fo db run-id).
37c0: 28 6c 65 74 2a 20 28 28 72 65 73 20 20 20 20 20 (let* ((res
37d0: 20 23 66 29 0a 09 20 28 6b 65 79 73 20 20 20 20 #f).. (keys
37e0: 20 20 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 64 (db-get-keys d
37f0: 62 29 29 0a 09 20 28 72 65 6d 66 69 65 6c 64 73 b)).. (remfields
3800: 20 28 6c 69 73 74 20 22 69 64 22 20 22 72 75 6e (list "id" "run
3810: 6e 61 6d 65 22 20 22 73 74 61 74 65 22 20 22 73 name" "state" "s
3820: 74 61 74 75 73 22 20 22 6f 77 6e 65 72 22 20 22 tatus" "owner" "
3830: 65 76 65 6e 74 5f 74 69 6d 65 22 29 29 0a 09 20 event_time"))..
3840: 28 68 65 61 64 65 72 20 20 20 20 28 61 70 70 65 (header (appe
3850: 6e 64 20 28 6d 61 70 20 6b 65 79 3a 67 65 74 2d nd (map key:get-
3860: 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 29 0a fieldname keys).
3870: 09 09 09 20 20 20 20 72 65 6d 66 69 65 6c 64 73 ... remfields
3880: 29 29 0a 09 20 28 6b 65 79 73 74 72 20 20 20 20 )).. (keystr
3890: 28 63 6f 6e 63 20 28 6b 65 79 73 2d 3e 6b 65 79 (conc (keys->key
38a0: 73 74 72 20 6b 65 79 73 29 20 22 2c 22 0a 09 09 str keys) ","...
38b0: 09 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 . (string-inter
38c0: 73 70 65 72 73 65 20 72 65 6d 66 69 65 6c 64 73 sperse remfields
38d0: 20 22 2c 22 29 29 29 29 0a 20 20 20 20 28 73 71 ",")))). (sq
38e0: 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 lite3:for-each-r
38f0: 6f 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 ow. (lambda
3900: 28 61 20 2e 20 78 29 0a 20 20 20 20 20 20 20 28 (a . x). (
3910: 73 65 74 21 20 72 65 73 20 28 61 70 70 6c 79 20 set! res (apply
3920: 76 65 63 74 6f 72 20 61 20 78 29 29 29 0a 20 20 vector a x))).
3930: 20 20 20 64 62 0a 20 20 20 20 20 28 63 6f 6e 63 db. (conc
3940: 20 22 53 45 4c 45 43 54 20 22 20 6b 65 79 73 74 "SELECT " keyst
3950: 72 20 22 20 46 52 4f 4d 20 72 75 6e 73 20 57 48 r " FROM runs WH
3960: 45 52 45 20 69 64 3d 3f 3b 22 29 0a 20 20 20 20 ERE id=?;").
3970: 20 72 75 6e 2d 69 64 29 0a 20 20 20 20 28 76 65 run-id). (ve
3980: 63 74 6f 72 20 68 65 61 64 65 72 20 72 65 73 29 ctor header res)
3990: 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ))..(define (db:
39a0: 73 65 74 2d 63 6f 6d 6d 65 6e 74 2d 66 6f 72 2d set-comment-for-
39b0: 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 20 63 6f run db run-id co
39c0: 6d 6d 65 6e 74 29 0a 20 20 28 73 71 6c 69 74 65 mment). (sqlite
39d0: 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 55 50 3:execute db "UP
39e0: 44 41 54 45 20 72 75 6e 73 20 53 45 54 20 63 6f DATE runs SET co
39f0: 6d 6d 65 6e 74 3d 3f 20 57 48 45 52 45 20 69 64 mment=? WHERE id
3a00: 3d 3f 3b 22 20 63 6f 6d 6d 65 6e 74 20 72 75 6e =?;" comment run
3a10: 2d 69 64 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 -id))..(define (
3a20: 64 62 3a 64 65 6c 65 74 65 2d 72 75 6e 20 64 62 db:delete-run db
3a30: 20 72 75 6e 2d 69 64 29 0a 20 20 28 73 71 6c 69 run-id). (sqli
3a40: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
3a50: 44 45 4c 45 54 45 20 46 52 4f 4d 20 72 75 6e 73 DELETE FROM runs
3a60: 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 72 75 WHERE id=?;" ru
3a70: 6e 2d 69 64 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d n-id))..;;======
3a80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ac0: 0a 3b 3b 20 20 54 20 45 20 53 20 54 20 53 0a 3b .;; T E S T S.;
3ad0: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;===============
3ae0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3af0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3b10: 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 =======..(define
3b20: 20 28 64 62 2d 67 65 74 2d 74 65 73 74 73 2d 66 (db-get-tests-f
3b30: 6f 72 2d 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 or-run db run-id
3b40: 20 74 65 73 74 70 61 74 74 20 69 74 65 6d 70 61 testpatt itempa
3b50: 74 74 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 tt). (let ((res
3b60: 20 27 28 29 29 29 0a 20 20 20 20 28 73 71 6c 69 '())). (sqli
3b70: 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f 77 te3:for-each-row
3b80: 20 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 . (lambda (
3b90: 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 id run-id testna
3ba0: 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 73 20 me state status
3bb0: 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 74 20 event-time host
3bc0: 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 65 65 cpuload diskfree
3bd0: 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 69 74 uname rundir it
3be0: 65 6d 2d 70 61 74 68 20 72 75 6e 2d 64 75 72 61 em-path run-dura
3bf0: 74 69 6f 6e 20 66 69 6e 61 6c 2d 6c 6f 67 66 20 tion final-logf
3c00: 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 2d 65 72 comment first-er
3c10: 72 20 66 69 72 73 74 2d 77 61 72 6e 29 0a 20 20 r first-warn).
3c20: 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 28 (set! res (
3c30: 63 6f 6e 73 20 28 76 65 63 74 6f 72 20 69 64 20 cons (vector id
3c40: 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 run-id testname
3c50: 73 74 61 74 65 20 73 74 61 74 75 73 20 65 76 65 state status eve
3c60: 6e 74 2d 74 69 6d 65 20 68 6f 73 74 20 63 70 75 nt-time host cpu
3c70: 6c 6f 61 64 20 64 69 73 6b 66 72 65 65 20 75 6e load diskfree un
3c80: 61 6d 65 20 72 75 6e 64 69 72 20 69 74 65 6d 2d ame rundir item-
3c90: 70 61 74 68 20 72 75 6e 2d 64 75 72 61 74 69 6f path run-duratio
3ca0: 6e 20 66 69 6e 61 6c 2d 6c 6f 67 66 20 63 6f 6d n final-logf com
3cb0: 6d 65 6e 74 20 66 69 72 73 74 2d 65 72 72 20 66 ment first-err f
3cc0: 69 72 73 74 2d 77 61 72 6e 29 20 72 65 73 29 29 irst-warn) res))
3cd0: 29 0a 20 20 20 20 20 64 62 20 0a 20 20 20 20 20 ). db .
3ce0: 22 53 45 4c 45 43 54 20 69 64 2c 72 75 6e 5f 69 "SELECT id,run_i
3cf0: 64 2c 74 65 73 74 6e 61 6d 65 2c 73 74 61 74 65 d,testname,state
3d00: 2c 73 74 61 74 75 73 2c 65 76 65 6e 74 5f 74 69 ,status,event_ti
3d10: 6d 65 2c 68 6f 73 74 2c 63 70 75 6c 6f 61 64 2c me,host,cpuload,
3d20: 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d 65 2c 72 diskfree,uname,r
3d30: 75 6e 64 69 72 2c 69 74 65 6d 5f 70 61 74 68 2c undir,item_path,
3d40: 72 75 6e 5f 64 75 72 61 74 69 6f 6e 2c 66 69 6e run_duration,fin
3d50: 61 6c 5f 6c 6f 67 66 2c 63 6f 6d 6d 65 6e 74 2c al_logf,comment,
3d60: 66 69 72 73 74 5f 65 72 72 2c 66 69 72 73 74 5f first_err,first_
3d70: 77 61 72 6e 20 46 52 4f 4d 20 74 65 73 74 73 20 warn FROM tests
3d80: 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 41 WHERE run_id=? A
3d90: 4e 44 20 74 65 73 74 6e 61 6d 65 20 6c 69 6b 65 ND testname like
3da0: 20 3f 20 41 4e 44 20 69 74 65 6d 5f 70 61 74 68 ? AND item_path
3db0: 20 4c 49 4b 45 20 3f 20 4f 52 44 45 52 20 42 59 LIKE ? ORDER BY
3dc0: 20 69 64 20 44 45 53 43 3b 22 0a 20 20 20 20 20 id DESC;".
3dd0: 72 75 6e 2d 69 64 0a 20 20 20 20 20 28 69 66 20 run-id. (if
3de0: 74 65 73 74 70 61 74 74 20 74 65 73 74 70 61 74 testpatt testpat
3df0: 74 20 22 25 22 29 0a 20 20 20 20 20 28 69 66 20 t "%"). (if
3e00: 69 74 65 6d 70 61 74 74 20 69 74 65 6d 70 61 74 itempatt itempat
3e10: 74 20 22 25 22 29 29 0a 20 20 20 20 72 65 73 29 t "%")). res)
3e20: 29 0a 0a 3b 3b 20 74 68 69 73 20 6f 6e 65 20 69 )..;; this one i
3e30: 73 20 61 20 62 69 74 20 62 72 6f 6b 65 6e 20 42 s a bit broken B
3e40: 55 47 20 46 49 58 4d 45 0a 28 64 65 66 69 6e 65 UG FIXME.(define
3e50: 20 28 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 (db:delete-test
3e60: 2d 73 74 65 70 2d 72 65 63 6f 72 64 73 20 64 62 -step-records db
3e70: 20 72 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 6d run-id test-nam
3e80: 65 20 69 74 65 6d 64 61 74 29 0a 20 20 28 73 71 e itemdat). (sq
3e90: 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 lite3:execute db
3ea0: 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 65 "DELETE FROM te
3eb0: 73 74 5f 73 74 65 70 73 20 57 48 45 52 45 20 74 st_steps WHERE t
3ec0: 65 73 74 5f 69 64 20 69 6e 20 28 53 45 4c 45 43 est_id in (SELEC
3ed0: 54 20 69 64 20 46 52 4f 4d 20 74 65 73 74 73 20 T id FROM tests
3ee0: 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 41 WHERE run_id=? A
3ef0: 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 4e ND testname=? AN
3f00: 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 29 3b 22 D item_path=?);"
3f10: 20 0a 09 09 20 20 20 72 75 6e 2d 69 64 20 74 65 ... run-id te
3f20: 73 74 2d 6e 61 6d 65 20 28 69 74 65 6d 2d 6c 69 st-name (item-li
3f30: 73 74 2d 3e 70 61 74 68 20 69 74 65 6d 64 61 74 st->path itemdat
3f40: 29 29 29 0a 3b 3b 20 0a 28 64 65 66 69 6e 65 20 ))).;; .(define
3f50: 28 64 62 3a 64 65 6c 65 74 65 2d 74 65 73 74 2d (db:delete-test-
3f60: 72 65 63 6f 72 64 73 20 64 62 20 74 65 73 74 2d records db test-
3f70: 69 64 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 id). (sqlite3:e
3f80: 78 65 63 75 74 65 20 64 62 20 22 44 45 4c 45 54 xecute db "DELET
3f90: 45 20 46 52 4f 4d 20 74 65 73 74 5f 73 74 65 70 E FROM test_step
3fa0: 73 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 3d s WHERE test_id=
3fb0: 3f 3b 22 20 74 65 73 74 2d 69 64 29 0a 20 20 28 ?;" test-id). (
3fc0: 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 sqlite3:execute
3fd0: 64 62 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 db "DELETE FROM
3fe0: 74 65 73 74 5f 64 61 74 61 20 20 57 48 45 52 45 test_data WHERE
3ff0: 20 74 65 73 74 5f 69 64 3d 3f 3b 22 20 74 65 73 test_id=?;" tes
4000: 74 2d 69 64 29 0a 20 20 28 73 71 6c 69 74 65 33 t-id). (sqlite3
4010: 3a 65 78 65 63 75 74 65 20 64 62 20 22 44 45 4c :execute db "DEL
4020: 45 54 45 20 46 52 4f 4d 20 74 65 73 74 73 20 57 ETE FROM tests W
4030: 48 45 52 45 20 69 64 3d 3f 3b 22 20 74 65 73 74 HERE id=?;" test
4040: 2d 69 64 29 29 0a 0a 3b 3b 20 73 65 74 20 74 65 -id))..;; set te
4050: 73 74 73 20 77 69 74 68 20 73 74 61 74 65 20 63 sts with state c
4060: 75 72 72 73 74 61 74 65 20 61 6e 64 20 73 74 61 urrstate and sta
4070: 74 75 73 20 63 75 72 72 73 74 61 74 75 73 20 74 tus currstatus t
4080: 6f 20 6e 65 77 73 74 61 74 65 20 61 6e 64 20 6e o newstate and n
4090: 65 77 73 74 61 74 75 73 0a 3b 3b 20 75 73 65 20 ewstatus.;; use
40a0: 63 75 72 72 73 74 61 74 65 20 3d 20 23 66 20 61 currstate = #f a
40b0: 6e 64 20 6f 72 20 63 75 72 72 73 74 61 74 75 73 nd or currstatus
40c0: 20 3d 20 23 66 20 74 6f 20 61 70 70 6c 79 20 74 = #f to apply t
40d0: 6f 20 61 6e 79 20 73 74 61 74 65 20 6f 72 20 73 o any state or s
40e0: 74 61 74 75 73 20 72 65 73 70 65 63 74 69 76 65 tatus respective
40f0: 6c 79 0a 3b 3b 20 57 41 52 4e 49 4e 47 3a 20 53 ly.;; WARNING: S
4100: 51 4c 20 69 6e 6a 65 63 74 69 6f 6e 20 72 69 73 QL injection ris
4110: 6b 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 73 65 k.(define (db:se
4120: 74 2d 74 65 73 74 73 2d 73 74 61 74 65 2d 73 74 t-tests-state-st
4130: 61 74 75 73 20 64 62 20 72 75 6e 2d 69 64 20 74 atus db run-id t
4140: 65 73 74 6e 61 6d 65 73 20 63 75 72 72 73 74 61 estnames currsta
4150: 74 65 20 63 75 72 72 73 74 61 74 75 73 20 6e 65 te currstatus ne
4160: 77 73 74 61 74 65 20 6e 65 77 73 74 61 74 75 73 wstate newstatus
4170: 29 0a 20 20 28 66 6f 72 2d 65 61 63 68 20 28 6c ). (for-each (l
4180: 61 6d 62 64 61 20 28 74 65 73 74 6e 61 6d 65 29 ambda (testname)
4190: 0a 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 71 .. (let ((q
41a0: 72 79 20 28 63 6f 6e 63 20 22 55 50 44 41 54 45 ry (conc "UPDATE
41b0: 20 74 65 73 74 73 20 53 45 54 20 73 74 61 74 65 tests SET state
41c0: 3d 3f 2c 73 74 61 74 75 73 3d 3f 20 57 48 45 52 =?,status=? WHER
41d0: 45 20 22 0a 09 09 09 09 09 28 69 66 20 63 75 72 E "......(if cur
41e0: 72 73 74 61 74 65 20 20 28 63 6f 6e 63 20 22 73 rstate (conc "s
41f0: 74 61 74 65 3d 27 22 20 63 75 72 72 73 74 61 74 tate='" currstat
4200: 65 20 22 27 20 41 4e 44 20 22 29 20 22 22 29 0a e "' AND ") "").
4210: 09 09 09 09 09 28 69 66 20 63 75 72 72 73 74 61 .....(if currsta
4220: 74 75 73 20 28 63 6f 6e 63 20 22 73 74 61 74 75 tus (conc "statu
4230: 73 3d 27 22 20 63 75 72 72 73 74 61 74 75 73 20 s='" currstatus
4240: 22 27 20 41 4e 44 20 22 29 20 22 22 29 0a 09 09 "' AND ") "")...
4250: 09 09 09 22 20 72 75 6e 5f 69 64 3d 3f 20 41 4e ..." run_id=? AN
4260: 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 4e 44 D testname=? AND
4270: 20 4e 4f 54 20 28 69 74 65 6d 5f 70 61 74 68 3d NOT (item_path=
4280: 27 27 20 41 4e 44 20 74 65 73 74 6e 61 6d 65 20 '' AND testname
4290: 69 6e 20 28 53 45 4c 45 43 54 20 44 49 53 54 49 in (SELECT DISTI
42a0: 4e 43 54 20 74 65 73 74 6e 61 6d 65 20 46 52 4f NCT testname FRO
42b0: 4d 20 74 65 73 74 73 20 57 48 45 52 45 20 74 65 M tests WHERE te
42c0: 73 74 6e 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 stname=? AND ite
42d0: 6d 5f 70 61 74 68 20 21 3d 20 27 27 29 29 3b 22 m_path != ''));"
42e0: 29 29 29 0a 09 09 3b 3b 28 64 65 62 75 67 3a 70 )))...;;(debug:p
42f0: 72 69 6e 74 20 30 20 22 51 52 59 3a 20 22 20 71 rint 0 "QRY: " q
4300: 72 79 29 0a 09 09 28 73 71 6c 69 74 65 33 3a 65 ry)...(sqlite3:e
4310: 78 65 63 75 74 65 20 64 62 20 71 72 79 20 72 75 xecute db qry ru
4320: 6e 2d 69 64 20 6e 65 77 73 74 61 74 65 20 6e 65 n-id newstate ne
4330: 77 73 74 61 74 75 73 20 74 65 73 74 6e 61 6d 65 wstatus testname
4340: 20 74 65 73 74 6e 61 6d 65 29 29 29 0a 09 20 20 testname)))..
4350: 20 20 74 65 73 74 6e 61 6d 65 73 29 29 0a 0a 28 testnames))..(
4360: 64 65 66 69 6e 65 20 28 64 62 3a 64 65 6c 65 74 define (db:delet
4370: 65 2d 74 65 73 74 73 2d 69 6e 2d 73 74 61 74 65 e-tests-in-state
4380: 20 64 62 20 72 75 6e 2d 69 64 20 73 74 61 74 65 db run-id state
4390: 29 0a 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 ). (sqlite3:exe
43a0: 63 75 74 65 20 64 62 20 22 44 45 4c 45 54 45 20 cute db "DELETE
43b0: 46 52 4f 4d 20 74 65 73 74 73 20 57 48 45 52 45 FROM tests WHERE
43c0: 20 73 74 61 74 65 3d 3f 20 41 4e 44 20 72 75 6e state=? AND run
43d0: 5f 69 64 3d 3f 3b 22 20 73 74 61 74 65 20 72 75 _id=?;" state ru
43e0: 6e 2d 69 64 29 29 0a 0a 28 64 65 66 69 6e 65 20 n-id))..(define
43f0: 28 64 62 3a 74 65 73 74 2d 73 65 74 2d 73 74 61 (db:test-set-sta
4400: 74 65 2d 73 74 61 74 75 73 2d 62 79 2d 69 64 20 te-status-by-id
4410: 64 62 20 74 65 73 74 2d 69 64 20 6e 65 77 73 74 db test-id newst
4420: 61 74 65 20 6e 65 77 73 74 61 74 75 73 20 6e 65 ate newstatus ne
4430: 77 63 6f 6d 6d 65 6e 74 29 0a 20 20 28 69 66 20 wcomment). (if
4440: 6e 65 77 73 74 61 74 65 20 20 20 28 73 71 6c 69 newstate (sqli
4450: 74 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 22 te3:execute db "
4460: 55 50 44 41 54 45 20 74 65 73 74 73 20 53 45 54 UPDATE tests SET
4470: 20 73 74 61 74 65 3d 3f 20 20 20 57 48 45 52 45 state=? WHERE
4480: 20 69 64 3d 3f 3b 22 20 6e 65 77 73 74 61 74 65 id=?;" newstate
4490: 20 20 20 74 65 73 74 2d 69 64 29 29 0a 20 20 28 test-id)). (
44a0: 69 66 20 6e 65 77 73 74 61 74 75 73 20 20 28 73 if newstatus (s
44b0: 71 6c 69 74 65 33 3a 65 78 65 63 75 74 65 20 64 qlite3:execute d
44c0: 62 20 22 55 50 44 41 54 45 20 74 65 73 74 73 20 b "UPDATE tests
44d0: 53 45 54 20 73 74 61 74 75 73 3d 3f 20 20 57 48 SET status=? WH
44e0: 45 52 45 20 69 64 3d 3f 3b 22 20 6e 65 77 73 74 ERE id=?;" newst
44f0: 61 74 75 73 20 20 74 65 73 74 2d 69 64 29 29 0a atus test-id)).
4500: 20 20 28 69 66 20 6e 65 77 63 6f 6d 6d 65 6e 74 (if newcomment
4510: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
4520: 65 20 64 62 20 22 55 50 44 41 54 45 20 74 65 73 e db "UPDATE tes
4530: 74 73 20 53 45 54 20 63 6f 6d 6d 65 6e 74 3d 3f ts SET comment=?
4540: 20 57 48 45 52 45 20 69 64 3d 3f 3b 22 20 6e 65 WHERE id=?;" ne
4550: 77 63 6f 6d 6d 65 6e 74 20 74 65 73 74 2d 69 64 wcomment test-id
4560: 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 )))..(define (db
4570: 3a 67 65 74 2d 63 6f 75 6e 74 2d 74 65 73 74 73 :get-count-tests
4580: 2d 72 75 6e 6e 69 6e 67 20 64 62 29 0a 20 20 28 -running db). (
4590: 6c 65 74 20 28 28 72 65 73 20 30 29 29 0a 20 20 let ((res 0)).
45a0: 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 (sqlite3:for-e
45b0: 61 63 68 2d 72 6f 77 0a 20 20 20 20 20 28 6c 61 ach-row. (la
45c0: 6d 62 64 61 20 28 63 6f 75 6e 74 29 0a 20 20 20 mbda (count).
45d0: 20 20 20 20 28 73 65 74 21 20 72 65 73 20 63 6f (set! res co
45e0: 75 6e 74 29 29 0a 20 20 20 20 20 64 62 0a 20 20 unt)). db.
45f0: 20 20 20 22 53 45 4c 45 43 54 20 63 6f 75 6e 74 "SELECT count
4600: 28 69 64 29 20 46 52 4f 4d 20 74 65 73 74 73 20 (id) FROM tests
4610: 57 48 45 52 45 20 73 74 61 74 65 20 3d 20 27 52 WHERE state = 'R
4620: 55 4e 4e 49 4e 47 27 20 4f 52 20 73 74 61 74 65 UNNING' OR state
4630: 20 3d 20 27 4c 41 55 4e 43 48 45 44 27 20 4f 52 = 'LAUNCHED' OR
4640: 20 73 74 61 74 65 20 3d 20 27 52 45 4d 4f 54 45 state = 'REMOTE
4650: 48 4f 53 54 53 54 41 52 54 27 3b 22 29 0a 20 20 HOSTSTART';").
4660: 20 20 72 65 73 29 29 0a 0a 3b 3b 20 64 6f 6e 65 res))..;; done
4670: 20 77 69 74 68 20 72 75 6e 20 77 68 65 6e 3a 0a with run when:.
4680: 3b 3b 20 20 20 30 20 74 65 73 74 73 20 69 6e 20 ;; 0 tests in
4690: 4c 41 55 4e 43 48 45 44 2c 20 4e 4f 54 5f 53 54 LAUNCHED, NOT_ST
46a0: 41 52 54 45 44 2c 20 52 45 4d 4f 54 45 48 4f 53 ARTED, REMOTEHOS
46b0: 54 53 54 41 52 54 2c 20 52 55 4e 4e 49 4e 47 0a TSTART, RUNNING.
46c0: 28 64 65 66 69 6e 65 20 28 64 62 3a 65 73 74 69 (define (db:esti
46d0: 6d 61 74 65 64 2d 74 65 73 74 73 2d 72 65 6d 61 mated-tests-rema
46e0: 69 6e 69 6e 67 20 64 62 20 72 75 6e 2d 69 64 29 ining db run-id)
46f0: 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 30 29 . (let ((res 0)
4700: 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 ). (sqlite3:f
4710: 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 20 or-each-row.
4720: 20 28 6c 61 6d 62 64 61 20 28 63 6f 75 6e 74 29 (lambda (count)
4730: 0a 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 . (set! re
4740: 73 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 64 s count)). d
4750: 62 20 3b 3b 20 4e 42 2f 2f 20 4b 49 4c 4c 52 45 b ;; NB// KILLRE
4760: 51 20 6d 65 61 6e 73 20 74 68 65 20 6a 6f 62 73 Q means the jobs
4770: 20 69 73 20 73 74 69 6c 6c 20 70 72 6f 62 61 62 is still probab
4780: 6c 79 20 72 75 6e 6e 69 6e 67 0a 20 20 20 20 20 ly running.
4790: 22 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 69 64 "SELECT count(id
47a0: 29 20 46 52 4f 4d 20 74 65 73 74 73 20 57 48 45 ) FROM tests WHE
47b0: 52 45 20 73 74 61 74 65 20 69 6e 20 28 27 4c 41 RE state in ('LA
47c0: 55 4e 43 48 45 44 27 2c 27 4e 4f 54 5f 53 54 41 UNCHED','NOT_STA
47d0: 52 54 45 44 27 2c 27 52 45 4d 4f 54 45 48 4f 53 RTED','REMOTEHOS
47e0: 54 53 54 41 52 54 27 2c 27 52 55 4e 4e 49 4e 47 TSTART','RUNNING
47f0: 27 2c 27 4b 49 4c 4c 52 45 51 27 29 20 41 4e 44 ','KILLREQ') AND
4800: 20 72 75 6e 5f 69 64 3d 3f 3b 22 20 72 75 6e 2d run_id=?;" run-
4810: 69 64 29 0a 20 20 20 20 72 65 73 29 29 0a 0a 3b id). res))..;
4820: 3b 20 4e 42 2f 2f 20 53 79 6e 63 20 74 68 69 73 ; NB// Sync this
4830: 20 77 69 74 68 20 72 75 6e 73 3a 67 65 74 2d 74 with runs:get-t
4840: 65 73 74 2d 69 6e 66 6f 0a 28 64 65 66 69 6e 65 est-info.(define
4850: 20 28 64 62 3a 67 65 74 2d 74 65 73 74 2d 69 6e (db:get-test-in
4860: 66 6f 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 fo db run-id tes
4870: 74 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 29 tname item-path)
4880: 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 23 66 . (let ((res #f
4890: 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a )). (sqlite3:
48a0: 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 for-each-row.
48b0: 20 20 28 6c 61 6d 62 64 61 20 28 69 64 20 72 75 (lambda (id ru
48c0: 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 73 74 n-id testname st
48d0: 61 74 65 20 73 74 61 74 75 73 20 65 76 65 6e 74 ate status event
48e0: 2d 74 69 6d 65 20 68 6f 73 74 20 63 70 75 6c 6f -time host cpulo
48f0: 61 64 20 64 69 73 6b 66 72 65 65 20 75 6e 61 6d ad diskfree unam
4900: 65 20 72 75 6e 64 69 72 20 69 74 65 6d 2d 70 61 e rundir item-pa
4910: 74 68 20 72 75 6e 5f 64 75 72 61 74 69 6f 6e 20 th run_duration
4920: 66 69 6e 61 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 final_logf comme
4930: 6e 74 20 66 69 72 73 74 2d 65 72 72 20 66 69 72 nt first-err fir
4940: 73 74 2d 77 61 72 6e 29 0a 20 20 20 20 20 20 20 st-warn).
4950: 28 73 65 74 21 20 72 65 73 20 28 76 65 63 74 6f (set! res (vecto
4960: 72 20 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 r id run-id test
4970: 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 name state statu
4980: 73 20 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 s event-time hos
4990: 74 20 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 t cpuload diskfr
49a0: 65 65 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 ee uname rundir
49b0: 69 74 65 6d 2d 70 61 74 68 20 72 75 6e 5f 64 75 item-path run_du
49c0: 72 61 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f 67 ration final_log
49d0: 66 20 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 2d f comment first-
49e0: 65 72 72 20 66 69 72 73 74 2d 77 61 72 6e 29 29 err first-warn))
49f0: 29 0a 20 20 20 20 20 64 62 20 0a 20 20 20 20 20 ). db .
4a00: 22 53 45 4c 45 43 54 20 69 64 2c 72 75 6e 5f 69 "SELECT id,run_i
4a10: 64 2c 74 65 73 74 6e 61 6d 65 2c 73 74 61 74 65 d,testname,state
4a20: 2c 73 74 61 74 75 73 2c 65 76 65 6e 74 5f 74 69 ,status,event_ti
4a30: 6d 65 2c 68 6f 73 74 2c 63 70 75 6c 6f 61 64 2c me,host,cpuload,
4a40: 64 69 73 6b 66 72 65 65 2c 75 6e 61 6d 65 2c 72 diskfree,uname,r
4a50: 75 6e 64 69 72 2c 69 74 65 6d 5f 70 61 74 68 2c undir,item_path,
4a60: 72 75 6e 5f 64 75 72 61 74 69 6f 6e 2c 66 69 6e run_duration,fin
4a70: 61 6c 5f 6c 6f 67 66 2c 63 6f 6d 6d 65 6e 74 2c al_logf,comment,
4a80: 66 69 72 73 74 5f 65 72 72 2c 66 69 72 73 74 5f first_err,first_
4a90: 77 61 72 6e 20 46 52 4f 4d 20 74 65 73 74 73 20 warn FROM tests
4aa0: 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 41 WHERE run_id=? A
4ab0: 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 4e ND testname=? AN
4ac0: 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 3b 22 0a D item_path=?;".
4ad0: 20 20 20 20 20 72 75 6e 2d 69 64 20 74 65 73 74 run-id test
4ae0: 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 29 0a name item-path).
4af0: 20 20 20 20 72 65 73 29 29 0a 0a 3b 3b 20 47 65 res))..;; Ge
4b00: 74 20 74 65 73 74 20 64 61 74 61 20 75 73 69 6e t test data usin
4b10: 67 20 74 65 73 74 5f 69 64 0a 28 64 65 66 69 6e g test_id.(defin
4b20: 65 20 28 64 62 3a 67 65 74 2d 74 65 73 74 2d 64 e (db:get-test-d
4b30: 61 74 61 2d 62 79 2d 69 64 20 64 62 20 74 65 73 ata-by-id db tes
4b40: 74 2d 69 64 29 0a 20 20 28 6c 65 74 20 28 28 72 t-id). (let ((r
4b50: 65 73 20 23 66 29 29 0a 20 20 20 20 28 73 71 6c es #f)). (sql
4b60: 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f ite3:for-each-ro
4b70: 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 w. (lambda (
4b80: 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 id run-id testna
4b90: 6d 65 20 73 74 61 74 65 20 73 74 61 74 75 73 20 me state status
4ba0: 65 76 65 6e 74 2d 74 69 6d 65 20 68 6f 73 74 20 event-time host
4bb0: 63 70 75 6c 6f 61 64 20 64 69 73 6b 66 72 65 65 cpuload diskfree
4bc0: 20 75 6e 61 6d 65 20 72 75 6e 64 69 72 20 69 74 uname rundir it
4bd0: 65 6d 2d 70 61 74 68 20 72 75 6e 5f 64 75 72 61 em-path run_dura
4be0: 74 69 6f 6e 20 66 69 6e 61 6c 5f 6c 6f 67 66 20 tion final_logf
4bf0: 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 2d 65 72 comment first-er
4c00: 72 20 66 69 72 73 74 2d 77 61 72 6e 29 0a 20 20 r first-warn).
4c10: 20 20 20 20 20 28 73 65 74 21 20 72 65 73 20 28 (set! res (
4c20: 76 65 63 74 6f 72 20 69 64 20 72 75 6e 2d 69 64 vector id run-id
4c30: 20 74 65 73 74 6e 61 6d 65 20 73 74 61 74 65 20 testname state
4c40: 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 6d status event-tim
4c50: 65 20 68 6f 73 74 20 63 70 75 6c 6f 61 64 20 64 e host cpuload d
4c60: 69 73 6b 66 72 65 65 20 75 6e 61 6d 65 20 72 75 iskfree uname ru
4c70: 6e 64 69 72 20 69 74 65 6d 2d 70 61 74 68 20 72 ndir item-path r
4c80: 75 6e 5f 64 75 72 61 74 69 6f 6e 20 66 69 6e 61 un_duration fina
4c90: 6c 5f 6c 6f 67 66 20 63 6f 6d 6d 65 6e 74 20 66 l_logf comment f
4ca0: 69 72 73 74 2d 65 72 72 20 66 69 72 73 74 2d 77 irst-err first-w
4cb0: 61 72 6e 29 29 29 0a 20 20 20 20 20 64 62 20 0a arn))). db .
4cc0: 20 20 20 20 20 22 53 45 4c 45 43 54 20 69 64 2c "SELECT id,
4cd0: 72 75 6e 5f 69 64 2c 74 65 73 74 6e 61 6d 65 2c run_id,testname,
4ce0: 73 74 61 74 65 2c 73 74 61 74 75 73 2c 65 76 65 state,status,eve
4cf0: 6e 74 5f 74 69 6d 65 2c 68 6f 73 74 2c 63 70 75 nt_time,host,cpu
4d00: 6c 6f 61 64 2c 64 69 73 6b 66 72 65 65 2c 75 6e load,diskfree,un
4d10: 61 6d 65 2c 72 75 6e 64 69 72 2c 69 74 65 6d 5f ame,rundir,item_
4d20: 70 61 74 68 2c 72 75 6e 5f 64 75 72 61 74 69 6f path,run_duratio
4d30: 6e 2c 66 69 6e 61 6c 5f 6c 6f 67 66 2c 63 6f 6d n,final_logf,com
4d40: 6d 65 6e 74 2c 66 69 72 73 74 5f 65 72 72 2c 66 ment,first_err,f
4d50: 69 72 73 74 5f 77 61 72 6e 20 46 52 4f 4d 20 74 irst_warn FROM t
4d60: 65 73 74 73 20 57 48 45 52 45 20 69 64 3d 3f 3b ests WHERE id=?;
4d70: 22 0a 20 20 20 20 20 74 65 73 74 2d 69 64 29 0a ". test-id).
4d80: 20 20 20 20 72 65 73 29 29 0a 0a 0a 28 64 65 66 res))...(def
4d90: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 65 74 ine (db:test-set
4da0: 2d 63 6f 6d 6d 65 6e 74 20 64 62 20 72 75 6e 2d -comment db run-
4db0: 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 6d id testname item
4dc0: 2d 70 61 74 68 20 63 6f 6d 6d 65 6e 74 29 0a 20 -path comment).
4dd0: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
4de0: 65 20 0a 20 20 20 64 62 20 0a 20 20 20 22 55 50 e . db . "UP
4df0: 44 41 54 45 20 74 65 73 74 73 20 53 45 54 20 63 DATE tests SET c
4e00: 6f 6d 6d 65 6e 74 3d 3f 20 57 48 45 52 45 20 72 omment=? WHERE r
4e10: 75 6e 5f 69 64 3d 3f 20 41 4e 44 20 74 65 73 74 un_id=? AND test
4e20: 6e 61 6d 65 3d 3f 20 41 4e 44 20 69 74 65 6d 5f name=? AND item_
4e30: 70 61 74 68 3d 3f 3b 22 0a 20 20 20 20 20 63 6f path=?;". co
4e40: 6d 6d 65 6e 74 20 72 75 6e 2d 69 64 20 74 65 73 mment run-id tes
4e50: 74 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 29 tname item-path)
4e60: 29 0a 0a 3b 3b 0a 28 64 65 66 69 6e 65 20 28 64 )..;;.(define (d
4e70: 62 3a 74 65 73 74 2d 73 65 74 2d 72 75 6e 64 69 b:test-set-rundi
4e80: 72 21 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 r! db run-id tes
4e90: 74 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 tname item-path
4ea0: 72 75 6e 64 69 72 29 0a 20 20 28 73 71 6c 69 74 rundir). (sqlit
4eb0: 65 33 3a 65 78 65 63 75 74 65 20 0a 20 20 20 64 e3:execute . d
4ec0: 62 20 0a 20 20 20 22 55 50 44 41 54 45 20 74 65 b . "UPDATE te
4ed0: 73 74 73 20 53 45 54 20 72 75 6e 64 69 72 3d 3f sts SET rundir=?
4ee0: 20 57 48 45 52 45 20 72 75 6e 5f 69 64 3d 3f 20 WHERE run_id=?
4ef0: 41 4e 44 20 74 65 73 74 6e 61 6d 65 3d 3f 20 41 AND testname=? A
4f00: 4e 44 20 69 74 65 6d 5f 70 61 74 68 3d 3f 3b 22 ND item_path=?;"
4f10: 0a 20 20 20 20 20 72 75 6e 64 69 72 20 72 75 6e . rundir run
4f20: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
4f30: 6d 2d 70 61 74 68 29 29 0a 0a 3b 3b 3d 3d 3d 3d m-path))..;;====
4f40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4f80: 3d 3d 0a 3b 3b 20 54 65 73 74 73 20 6d 65 74 61 ==.;; Tests meta
4f90: 20 64 61 74 61 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d data.;;========
4fa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a ==============..
4fe0: 3b 3b 20 72 65 61 64 20 74 68 65 20 72 65 63 6f ;; read the reco
4ff0: 72 64 20 67 69 76 65 6e 20 61 20 74 65 73 74 6e rd given a testn
5000: 61 6d 65 0a 28 64 65 66 69 6e 65 20 28 64 62 3a ame.(define (db:
5010: 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 72 65 63 testmeta-get-rec
5020: 6f 72 64 20 64 62 20 74 65 73 74 6e 61 6d 65 29 ord db testname)
5030: 0a 20 20 28 6c 65 74 20 28 28 72 65 73 20 23 66 . (let ((res #f
5040: 29 29 0a 20 20 20 20 28 73 71 6c 69 74 65 33 3a )). (sqlite3:
5050: 66 6f 72 2d 65 61 63 68 2d 72 6f 77 0a 20 20 20 for-each-row.
5060: 20 20 28 6c 61 6d 62 64 61 20 28 69 64 20 74 65 (lambda (id te
5070: 73 74 6e 61 6d 65 20 61 75 74 68 6f 72 20 6f 77 stname author ow
5080: 6e 65 72 20 64 65 73 63 72 69 70 74 69 6f 6e 20 ner description
5090: 72 65 76 69 65 77 65 64 20 69 74 65 72 61 74 65 reviewed iterate
50a0: 64 20 61 76 67 5f 72 75 6e 74 69 6d 65 20 61 76 d avg_runtime av
50b0: 67 5f 64 69 73 6b 20 74 61 67 73 29 0a 20 20 20 g_disk tags).
50c0: 20 20 20 20 28 73 65 74 21 20 72 65 73 20 28 76 (set! res (v
50d0: 65 63 74 6f 72 20 69 64 20 74 65 73 74 6e 61 6d ector id testnam
50e0: 65 20 61 75 74 68 6f 72 20 6f 77 6e 65 72 20 64 e author owner d
50f0: 65 73 63 72 69 70 74 69 6f 6e 20 72 65 76 69 65 escription revie
5100: 77 65 64 20 69 74 65 72 61 74 65 64 20 61 76 67 wed iterated avg
5110: 5f 72 75 6e 74 69 6d 65 20 61 76 67 5f 64 69 73 _runtime avg_dis
5120: 6b 20 74 61 67 73 29 29 29 0a 20 20 20 20 20 64 k tags))). d
5130: 62 20 22 53 45 4c 45 43 54 20 69 64 2c 74 65 73 b "SELECT id,tes
5140: 74 6e 61 6d 65 2c 61 75 74 68 6f 72 2c 6f 77 6e tname,author,own
5150: 65 72 2c 64 65 73 63 72 69 70 74 69 6f 6e 2c 72 er,description,r
5160: 65 76 69 65 77 65 64 2c 69 74 65 72 61 74 65 64 eviewed,iterated
5170: 2c 61 76 67 5f 72 75 6e 74 69 6d 65 2c 61 76 67 ,avg_runtime,avg
5180: 5f 64 69 73 6b 2c 74 61 67 73 20 46 52 4f 4d 20 _disk,tags FROM
5190: 74 65 73 74 5f 6d 65 74 61 20 57 48 45 52 45 20 test_meta WHERE
51a0: 74 65 73 74 6e 61 6d 65 3d 3f 3b 22 0a 20 20 20 testname=?;".
51b0: 20 20 74 65 73 74 6e 61 6d 65 29 0a 20 20 20 20 testname).
51c0: 72 65 73 29 29 0a 0a 3b 3b 20 63 72 65 61 74 65 res))..;; create
51d0: 20 61 20 6e 65 77 20 72 65 63 6f 72 64 20 66 6f a new record fo
51e0: 72 20 61 20 67 69 76 65 6e 20 74 65 73 74 6e 61 r a given testna
51f0: 6d 65 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 74 me.(define (db:t
5200: 65 73 74 6d 65 74 61 2d 61 64 64 2d 72 65 63 6f estmeta-add-reco
5210: 72 64 20 64 62 20 74 65 73 74 6e 61 6d 65 29 0a rd db testname).
5220: 20 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 (sqlite3:execu
5230: 74 65 20 64 62 20 22 49 4e 53 45 52 54 20 4f 52 te db "INSERT OR
5240: 20 49 47 4e 4f 52 45 20 49 4e 54 4f 20 74 65 73 IGNORE INTO tes
5250: 74 5f 6d 65 74 61 20 28 74 65 73 74 6e 61 6d 65 t_meta (testname
5260: 2c 61 75 74 68 6f 72 2c 6f 77 6e 65 72 2c 64 65 ,author,owner,de
5270: 73 63 72 69 70 74 69 6f 6e 2c 72 65 76 69 65 77 scription,review
5280: 65 64 2c 69 74 65 72 61 74 65 64 2c 61 76 67 5f ed,iterated,avg_
5290: 72 75 6e 74 69 6d 65 2c 61 76 67 5f 64 69 73 6b runtime,avg_disk
52a0: 2c 74 61 67 73 29 20 56 41 4c 55 45 53 20 28 3f ,tags) VALUES (?
52b0: 2c 27 27 2c 27 27 2c 27 27 2c 27 27 2c 27 27 2c ,'','','','','',
52c0: 27 27 2c 27 27 2c 27 27 29 3b 22 20 74 65 73 74 '','','');" test
52d0: 6e 61 6d 65 29 29 0a 0a 3b 3b 20 75 70 64 61 74 name))..;; updat
52e0: 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 74 65 73 e one of the tes
52f0: 74 6d 65 74 61 20 66 69 65 6c 64 73 0a 28 64 65 tmeta fields.(de
5300: 66 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 fine (db:testmet
5310: 61 2d 75 70 64 61 74 65 2d 66 69 65 6c 64 20 64 a-update-field d
5320: 62 20 74 65 73 74 6e 61 6d 65 20 66 69 65 6c 64 b testname field
5330: 20 76 61 6c 75 65 29 0a 20 20 28 73 71 6c 69 74 value). (sqlit
5340: 65 33 3a 65 78 65 63 75 74 65 20 64 62 20 28 63 e3:execute db (c
5350: 6f 6e 63 20 22 55 50 44 41 54 45 20 74 65 73 74 onc "UPDATE test
5360: 5f 6d 65 74 61 20 53 45 54 20 22 20 66 69 65 6c _meta SET " fiel
5370: 64 20 22 3d 3f 20 57 48 45 52 45 20 74 65 73 74 d "=? WHERE test
5380: 6e 61 6d 65 3d 3f 3b 22 29 20 76 61 6c 75 65 20 name=?;") value
5390: 74 65 73 74 6e 61 6d 65 29 29 0a 0a 3b 3b 3d 3d testname))..;;==
53a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
53e0: 3d 3d 3d 3d 0a 3b 3b 20 54 20 45 20 53 20 54 20 ====.;; T E S T
53f0: 20 20 44 20 41 20 54 20 41 20 0a 3b 3b 3d 3d 3d D A T A .;;===
5400: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5420: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
5440: 3d 3d 3d 0a 0a 28 64 65 66 69 6e 65 20 28 64 62 ===..(define (db
5450: 3a 63 73 76 2d 3e 74 65 73 74 2d 64 61 74 61 20 :csv->test-data
5460: 64 62 20 74 65 73 74 2d 69 64 20 63 73 76 64 61 db test-id csvda
5470: 74 61 29 0a 20 20 28 64 65 62 75 67 3a 70 72 69 ta). (debug:pri
5480: 6e 74 20 34 20 22 74 65 73 74 2d 69 64 20 22 20 nt 4 "test-id "
5490: 74 65 73 74 2d 69 64 20 22 2c 20 63 73 76 64 61 test-id ", csvda
54a0: 74 61 3a 20 22 20 63 73 76 64 61 74 61 29 0a 20 ta: " csvdata).
54b0: 20 28 6c 65 74 20 28 28 63 73 76 6c 69 73 74 20 (let ((csvlist
54c0: 28 63 73 76 2d 3e 6c 69 73 74 20 28 6d 61 6b 65 (csv->list (make
54d0: 2d 63 73 76 2d 72 65 61 64 65 72 0a 09 09 09 20 -csv-reader....
54e0: 20 20 20 20 28 6f 70 65 6e 2d 69 6e 70 75 74 2d (open-input-
54f0: 73 74 72 69 6e 67 20 63 73 76 64 61 74 61 29 0a string csvdata).
5500: 09 09 09 20 20 20 20 20 27 28 28 73 74 72 69 70 ... '((strip
5510: 2d 6c 65 61 64 69 6e 67 2d 77 68 69 74 65 73 70 -leading-whitesp
5520: 61 63 65 3f 20 23 74 29 0a 09 09 09 20 20 20 20 ace? #t)....
5530: 20 20 20 28 73 74 72 69 70 2d 74 72 61 69 6c 69 (strip-traili
5540: 6e 67 2d 77 68 69 74 65 73 70 61 63 65 3f 20 23 ng-whitespace? #
5550: 74 29 29 20 29 29 29 29 20 3b 3b 20 28 63 73 76 t)) )))) ;; (csv
5560: 2d 3e 6c 69 73 74 20 63 73 76 64 61 74 61 29 29 ->list csvdata))
5570: 29 0a 20 20 20 20 28 66 6f 72 2d 65 61 63 68 20 ). (for-each
5580: 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 . (lambda (c
5590: 73 76 72 6f 77 29 0a 20 20 20 20 20 20 20 28 6c svrow). (l
55a0: 65 74 2a 20 28 28 70 61 64 64 65 64 2d 72 6f 77 et* ((padded-row
55b0: 20 20 28 74 61 6b 65 20 28 61 70 70 65 6e 64 20 (take (append
55c0: 63 73 76 72 6f 77 20 28 6c 69 73 74 20 23 66 20 csvrow (list #f
55d0: 23 66 20 23 66 20 23 66 20 23 66 20 23 66 20 23 #f #f #f #f #f #
55e0: 66 20 23 66 29 29 20 38 29 29 0a 09 20 20 20 20 f #f)) 8))..
55f0: 20 20 28 63 61 74 65 67 6f 72 79 20 20 20 20 28 (category (
5600: 6c 69 73 74 2d 72 65 66 20 70 61 64 64 65 64 2d list-ref padded-
5610: 72 6f 77 20 30 29 29 0a 09 20 20 20 20 20 20 28 row 0)).. (
5620: 76 61 72 69 61 62 6c 65 20 20 20 20 28 6c 69 73 variable (lis
5630: 74 2d 72 65 66 20 70 61 64 64 65 64 2d 72 6f 77 t-ref padded-row
5640: 20 31 29 29 0a 09 20 20 20 20 20 20 28 76 61 6c 1)).. (val
5650: 75 65 20 20 20 20 20 20 20 28 61 6e 79 2d 3e 6e ue (any->n
5660: 75 6d 62 65 72 2d 69 66 2d 70 6f 73 73 69 62 6c umber-if-possibl
5670: 65 20 28 6c 69 73 74 2d 72 65 66 20 70 61 64 64 e (list-ref padd
5680: 65 64 2d 72 6f 77 20 32 29 29 29 0a 09 20 20 20 ed-row 2)))..
5690: 20 20 20 28 65 78 70 65 63 74 65 64 20 20 20 20 (expected
56a0: 28 61 6e 79 2d 3e 6e 75 6d 62 65 72 2d 69 66 2d (any->number-if-
56b0: 70 6f 73 73 69 62 6c 65 20 28 6c 69 73 74 2d 72 possible (list-r
56c0: 65 66 20 70 61 64 64 65 64 2d 72 6f 77 20 33 29 ef padded-row 3)
56d0: 29 29 0a 09 20 20 20 20 20 20 28 74 6f 6c 20 20 )).. (tol
56e0: 20 20 20 20 20 20 20 28 61 6e 79 2d 3e 6e 75 6d (any->num
56f0: 62 65 72 2d 69 66 2d 70 6f 73 73 69 62 6c 65 20 ber-if-possible
5700: 28 6c 69 73 74 2d 72 65 66 20 70 61 64 64 65 64 (list-ref padded
5710: 2d 72 6f 77 20 34 29 29 29 20 3b 3b 20 3e 2c 20 -row 4))) ;; >,
5720: 3c 2c 20 3e 3d 2c 20 3c 3d 2c 20 6f 72 20 61 20 <, >=, <=, or a
5730: 6e 75 6d 62 65 72 0a 09 20 20 20 20 20 20 28 75 number.. (u
5740: 6e 69 74 73 20 20 20 20 20 20 20 28 6c 69 73 74 nits (list
5750: 2d 72 65 66 20 70 61 64 64 65 64 2d 72 6f 77 20 -ref padded-row
5760: 35 29 29 0a 09 20 20 20 20 20 20 28 63 6f 6d 6d 5)).. (comm
5770: 65 6e 74 20 20 20 20 20 28 6c 69 73 74 2d 72 65 ent (list-re
5780: 66 20 70 61 64 64 65 64 2d 72 6f 77 20 36 29 29 f padded-row 6))
5790: 0a 09 20 20 20 20 20 20 28 73 74 61 74 75 73 20 .. (status
57a0: 20 20 20 20 20 28 6c 65 74 20 28 28 73 20 28 6c (let ((s (l
57b0: 69 73 74 2d 72 65 66 20 70 61 64 64 65 64 2d 72 ist-ref padded-r
57c0: 6f 77 20 37 29 29 29 0a 09 09 09 20 20 20 20 20 ow 7)))....
57d0: 28 69 66 20 28 61 6e 64 20 28 73 74 72 69 6e 67 (if (and (string
57e0: 3f 20 73 29 28 6f 72 20 28 73 74 72 69 6e 67 2d ? s)(or (string-
57f0: 6d 61 74 63 68 20 28 72 65 67 65 78 70 20 22 5e match (regexp "^
5800: 5c 5c 73 2a 24 22 29 20 73 29 0a 09 09 09 09 09 \\s*$") s)......
5810: 09 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 . (string-ma
5820: 74 63 68 20 28 72 65 67 65 78 70 20 22 5e 6e 2f tch (regexp "^n/
5830: 61 24 22 29 20 73 29 29 29 0a 09 09 09 09 20 23 a$") s)))..... #
5840: 66 0a 09 09 09 09 20 73 29 29 29 29 20 3b 3b 20 f..... s)))) ;;
5850: 69 66 20 73 70 65 63 69 66 69 65 64 20 6f 6e 20 if specified on
5860: 74 68 65 20 69 6e 70 75 74 20 74 68 65 6e 20 75 the input then u
5870: 73 65 2c 20 65 6c 73 65 20 63 61 6c 63 75 6c 61 se, else calcula
5880: 74 65 0a 09 20 3b 3b 20 6c 6f 6f 6b 20 75 70 20 te.. ;; look up
5890: 65 78 70 65 63 74 65 64 2c 74 6f 6c 2c 75 6e 69 expected,tol,uni
58a0: 74 73 20 66 72 6f 6d 20 70 72 65 76 69 6f 75 73 ts from previous
58b0: 20 62 65 73 74 20 66 69 74 20 74 65 73 74 20 69 best fit test i
58c0: 66 20 74 68 65 79 20 61 72 65 20 61 6c 6c 20 65 f they are all e
58d0: 69 74 68 65 72 20 23 66 20 6f 72 20 27 27 0a 09 ither #f or ''..
58e0: 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 34 20 (debug:print 4
58f0: 22 42 45 46 4f 52 45 3a 20 63 61 74 65 67 6f 72 "BEFORE: categor
5900: 79 3a 20 22 20 63 61 74 65 67 6f 72 79 20 22 20 y: " category "
5910: 76 61 72 69 61 62 6c 65 3a 20 22 20 76 61 72 69 variable: " vari
5920: 61 62 6c 65 20 22 20 76 61 6c 75 65 3a 20 22 20 able " value: "
5930: 76 61 6c 75 65 20 0a 09 09 20 20 20 20 20 20 22 value ... "
5940: 2c 20 65 78 70 65 63 74 65 64 3a 20 22 20 65 78 , expected: " ex
5950: 70 65 63 74 65 64 20 22 20 74 6f 6c 3a 20 22 20 pected " tol: "
5960: 74 6f 6c 20 22 20 75 6e 69 74 73 3a 20 22 20 75 tol " units: " u
5970: 6e 69 74 73 20 22 20 73 74 61 74 75 73 3a 20 22 nits " status: "
5980: 20 73 74 61 74 75 73 20 22 20 63 6f 6d 6d 65 6e status " commen
5990: 74 3a 20 22 20 63 6f 6d 6d 65 6e 74 29 0a 0a 09 t: " comment)...
59a0: 20 28 69 66 20 28 61 6e 64 20 28 6f 72 20 28 6e (if (and (or (n
59b0: 6f 74 20 65 78 70 65 63 74 65 64 29 28 65 71 75 ot expected)(equ
59c0: 61 6c 3f 20 65 78 70 65 63 74 65 64 20 22 22 29 al? expected "")
59d0: 29 0a 09 09 20 20 28 6f 72 20 28 6e 6f 74 20 74 )... (or (not t
59e0: 6f 6c 29 20 20 20 20 20 28 65 71 75 61 6c 3f 20 ol) (equal?
59f0: 65 78 70 65 63 74 65 64 20 22 22 29 29 0a 09 09 expected ""))...
5a00: 20 20 28 6f 72 20 28 6e 6f 74 20 75 6e 69 74 73 (or (not units
5a10: 29 20 20 20 28 65 71 75 61 6c 3f 20 65 78 70 65 ) (equal? expe
5a20: 63 74 65 64 20 22 22 29 29 29 0a 09 20 20 20 20 cted "")))..
5a30: 20 28 6c 65 74 2d 76 61 6c 75 65 73 20 28 28 28 (let-values (((
5a40: 6e 65 77 2d 65 78 70 65 63 74 65 64 20 6e 65 77 new-expected new
5a50: 2d 74 6f 6c 20 6e 65 77 2d 75 6e 69 74 73 29 28 -tol new-units)(
5a60: 64 62 3a 67 65 74 2d 70 72 65 76 2d 74 6f 6c 2d db:get-prev-tol-
5a70: 66 6f 72 2d 74 65 73 74 20 64 62 20 74 65 73 74 for-test db test
5a80: 2d 69 64 20 63 61 74 65 67 6f 72 79 20 76 61 72 -id category var
5a90: 69 61 62 6c 65 29 29 29 0a 09 20 20 20 20 20 20 iable)))..
5aa0: 20 28 73 65 74 21 20 65 78 70 65 63 74 65 64 20 (set! expected
5ab0: 6e 65 77 2d 65 78 70 65 63 74 65 64 29 0a 09 20 new-expected)..
5ac0: 20 20 20 20 20 20 28 73 65 74 21 20 74 6f 6c 20 (set! tol
5ad0: 20 20 20 20 20 6e 65 77 2d 74 6f 6c 29 0a 09 20 new-tol)..
5ae0: 20 20 20 20 20 20 28 73 65 74 21 20 75 6e 69 74 (set! unit
5af0: 73 20 20 20 20 6e 65 77 2d 75 6e 69 74 73 29 29 s new-units))
5b00: 29 0a 0a 09 20 28 64 65 62 75 67 3a 70 72 69 6e )... (debug:prin
5b10: 74 20 34 20 22 41 46 54 45 52 3a 20 20 63 61 74 t 4 "AFTER: cat
5b20: 65 67 6f 72 79 3a 20 22 20 63 61 74 65 67 6f 72 egory: " categor
5b30: 79 20 22 20 76 61 72 69 61 62 6c 65 3a 20 22 20 y " variable: "
5b40: 76 61 72 69 61 62 6c 65 20 22 20 76 61 6c 75 65 variable " value
5b50: 3a 20 22 20 76 61 6c 75 65 20 0a 09 09 20 20 20 : " value ...
5b60: 20 20 20 22 2c 20 65 78 70 65 63 74 65 64 3a 20 ", expected:
5b70: 22 20 65 78 70 65 63 74 65 64 20 22 20 74 6f 6c " expected " tol
5b80: 3a 20 22 20 74 6f 6c 20 22 20 75 6e 69 74 73 3a : " tol " units:
5b90: 20 22 20 75 6e 69 74 73 20 22 20 73 74 61 74 75 " units " statu
5ba0: 73 3a 20 22 20 73 74 61 74 75 73 20 22 20 63 6f s: " status " co
5bb0: 6d 6d 65 6e 74 3a 20 22 20 63 6f 6d 6d 65 6e 74 mment: " comment
5bc0: 29 0a 09 20 3b 3b 20 63 61 6c 63 75 6c 61 74 65 ).. ;; calculate
5bd0: 20 73 74 61 74 75 73 20 69 66 20 4e 4f 54 20 73 status if NOT s
5be0: 70 65 63 69 66 69 65 64 0a 09 20 28 69 66 20 28 pecified.. (if (
5bf0: 61 6e 64 20 28 6e 6f 74 20 73 74 61 74 75 73 29 and (not status)
5c00: 28 6e 75 6d 62 65 72 3f 20 65 78 70 65 63 74 65 (number? expecte
5c10: 64 29 28 6e 75 6d 62 65 72 3f 20 76 61 6c 75 65 d)(number? value
5c20: 29 29 20 3b 3b 20 6e 65 65 64 20 65 78 70 65 63 )) ;; need expec
5c30: 74 65 64 20 61 6e 64 20 76 61 6c 75 65 20 74 6f ted and value to
5c40: 20 62 65 20 6e 75 6d 62 65 72 73 0a 09 20 20 20 be numbers..
5c50: 20 20 28 69 66 20 28 6e 75 6d 62 65 72 3f 20 74 (if (number? t
5c60: 6f 6c 29 20 3b 3b 20 69 66 20 74 6f 6c 20 69 73 ol) ;; if tol is
5c70: 20 61 20 6e 75 6d 62 65 72 20 74 68 65 6e 20 77 a number then w
5c80: 65 20 64 6f 20 74 68 65 20 73 74 61 6e 64 61 72 e do the standar
5c90: 64 20 63 6f 6d 70 61 72 69 73 6f 6e 0a 09 09 20 d comparison...
5ca0: 28 6c 65 74 2a 20 28 28 6d 61 78 2d 76 61 6c 20 (let* ((max-val
5cb0: 28 2b 20 65 78 70 65 63 74 65 64 20 74 6f 6c 29 (+ expected tol)
5cc0: 29 0a 09 09 09 28 6d 69 6e 2d 76 61 6c 20 28 2d )....(min-val (-
5cd0: 20 65 78 70 65 63 74 65 64 20 74 6f 6c 29 29 0a expected tol)).
5ce0: 09 09 09 28 72 65 73 75 6c 74 20 20 28 61 6e 64 ...(result (and
5cf0: 20 28 3e 3d 20 20 76 61 6c 75 65 20 6d 69 6e 2d (>= value min-
5d00: 76 61 6c 29 28 3c 3d 20 76 61 6c 75 65 20 6d 61 val)(<= value ma
5d10: 78 2d 76 61 6c 29 29 29 29 0a 09 09 20 20 20 28 x-val))))... (
5d20: 64 65 62 75 67 3a 70 72 69 6e 74 20 34 20 22 6d debug:print 4 "m
5d30: 61 78 2d 76 61 6c 3a 20 22 20 6d 61 78 2d 76 61 ax-val: " max-va
5d40: 6c 20 22 20 6d 69 6e 2d 76 61 6c 3a 20 22 20 6d l " min-val: " m
5d50: 69 6e 2d 76 61 6c 20 22 20 72 65 73 75 6c 74 3a in-val " result:
5d60: 20 22 20 72 65 73 75 6c 74 29 0a 09 09 20 20 20 " result)...
5d70: 28 73 65 74 21 20 73 74 61 74 75 73 20 28 69 66 (set! status (if
5d80: 20 72 65 73 75 6c 74 20 22 70 61 73 73 22 20 22 result "pass" "
5d90: 66 61 69 6c 22 29 29 29 0a 09 09 20 28 73 65 74 fail")))... (set
5da0: 21 20 73 74 61 74 75 73 20 3b 3b 20 4e 42 2f 2f ! status ;; NB//
5db0: 20 6e 65 65 64 20 74 6f 20 61 73 73 65 73 73 20 need to assess
5dc0: 65 61 63 68 20 6f 6e 65 20 28 69 2e 65 2e 20 6e each one (i.e. n
5dd0: 6f 74 20 72 65 74 75 72 6e 20 6f 70 65 72 61 74 ot return operat
5de0: 6f 72 20 73 69 6e 63 65 20 6e 65 65 64 20 74 6f or since need to
5df0: 20 61 63 74 20 69 66 20 6e 6f 74 20 76 61 6c 69 act if not vali
5e00: 64 20 6f 70 2e 0a 09 09 20 20 20 20 20 20 20 28 d op.... (
5e10: 63 61 73 65 20 28 73 74 72 69 6e 67 2d 3e 73 79 case (string->sy
5e20: 6d 62 6f 6c 20 74 6f 6c 29 20 3b 3b 20 74 6f 6c mbol tol) ;; tol
5e30: 20 73 68 6f 75 6c 64 20 62 65 20 3e 2c 20 3c 2c should be >, <,
5e40: 20 3e 3d 2c 20 3c 3d 0a 09 09 09 20 28 28 3e 29 >=, <=.... ((>)
5e50: 20 20 28 69 66 20 28 3e 20 20 76 61 6c 75 65 20 (if (> value
5e60: 65 78 70 65 63 74 65 64 29 20 22 70 61 73 73 22 expected) "pass"
5e70: 20 22 66 61 69 6c 22 29 29 0a 09 09 09 20 28 28 "fail")).... ((
5e80: 3c 29 20 20 28 69 66 20 28 3c 20 20 76 61 6c 75 <) (if (< valu
5e90: 65 20 65 78 70 65 63 74 65 64 29 20 22 70 61 73 e expected) "pas
5ea0: 73 22 20 22 66 61 69 6c 22 29 29 0a 09 09 09 20 s" "fail"))....
5eb0: 28 28 3e 3d 29 20 28 69 66 20 28 3e 3d 20 76 61 ((>=) (if (>= va
5ec0: 6c 75 65 20 65 78 70 65 63 74 65 64 29 20 22 70 lue expected) "p
5ed0: 61 73 73 22 20 22 66 61 69 6c 22 29 29 0a 09 09 ass" "fail"))...
5ee0: 09 20 28 28 3c 3d 29 20 28 69 66 20 28 3c 3d 20 . ((<=) (if (<=
5ef0: 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 29 20 value expected)
5f00: 22 70 61 73 73 22 20 22 66 61 69 6c 22 29 29 0a "pass" "fail")).
5f10: 09 09 09 20 28 65 6c 73 65 20 28 63 6f 6e 63 20 ... (else (conc
5f20: 22 45 52 52 4f 52 3a 20 62 61 64 20 74 6f 6c 20 "ERROR: bad tol
5f30: 63 6f 6d 70 61 72 61 74 6f 72 20 22 20 74 6f 6c comparator " tol
5f40: 29 29 29 29 29 29 0a 09 20 28 64 65 62 75 67 3a )))))).. (debug:
5f50: 70 72 69 6e 74 20 34 20 22 41 46 54 45 52 32 3a print 4 "AFTER2:
5f60: 20 63 61 74 65 67 6f 72 79 3a 20 22 20 63 61 74 category: " cat
5f70: 65 67 6f 72 79 20 22 20 76 61 72 69 61 62 6c 65 egory " variable
5f80: 3a 20 22 20 76 61 72 69 61 62 6c 65 20 22 20 76 : " variable " v
5f90: 61 6c 75 65 3a 20 22 20 76 61 6c 75 65 20 0a 09 alue: " value ..
5fa0: 09 20 20 20 20 20 20 22 2c 20 65 78 70 65 63 74 . ", expect
5fb0: 65 64 3a 20 22 20 65 78 70 65 63 74 65 64 20 22 ed: " expected "
5fc0: 20 74 6f 6c 3a 20 22 20 74 6f 6c 20 22 20 75 6e tol: " tol " un
5fd0: 69 74 73 3a 20 22 20 75 6e 69 74 73 20 22 20 73 its: " units " s
5fe0: 74 61 74 75 73 3a 20 22 20 73 74 61 74 75 73 20 tatus: " status
5ff0: 22 20 63 6f 6d 6d 65 6e 74 3a 20 22 20 63 6f 6d " comment: " com
6000: 6d 65 6e 74 29 0a 09 20 28 73 71 6c 69 74 65 33 ment).. (sqlite3
6010: 3a 65 78 65 63 75 74 65 20 64 62 20 22 49 4e 53 :execute db "INS
6020: 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45 20 49 ERT OR REPLACE I
6030: 4e 54 4f 20 74 65 73 74 5f 64 61 74 61 20 28 74 NTO test_data (t
6040: 65 73 74 5f 69 64 2c 63 61 74 65 67 6f 72 79 2c est_id,category,
6050: 76 61 72 69 61 62 6c 65 2c 76 61 6c 75 65 2c 65 variable,value,e
6060: 78 70 65 63 74 65 64 2c 74 6f 6c 2c 75 6e 69 74 xpected,tol,unit
6070: 73 2c 63 6f 6d 6d 65 6e 74 2c 73 74 61 74 75 73 s,comment,status
6080: 29 20 56 41 4c 55 45 53 20 28 3f 2c 3f 2c 3f 2c ) VALUES (?,?,?,
6090: 3f 2c 3f 2c 3f 2c 3f 2c 3f 2c 3f 29 3b 22 0a 09 ?,?,?,?,?,?);"..
60a0: 20 20 20 20 20 20 74 65 73 74 2d 69 64 20 63 61 test-id ca
60b0: 74 65 67 6f 72 79 20 76 61 72 69 61 62 6c 65 20 tegory variable
60c0: 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 20 74 value expected t
60d0: 6f 6c 20 75 6e 69 74 73 20 28 69 66 20 63 6f 6d ol units (if com
60e0: 6d 65 6e 74 20 63 6f 6d 6d 65 6e 74 20 22 22 29 ment comment "")
60f0: 20 73 74 61 74 75 73 29 29 29 0a 20 20 20 20 20 status))).
6100: 63 73 76 6c 69 73 74 29 29 29 0a 0a 3b 3b 20 67 csvlist)))..;; g
6110: 65 74 20 61 20 6c 69 73 74 20 6f 66 20 74 65 73 et a list of tes
6120: 74 5f 64 61 74 61 20 72 65 63 6f 72 64 73 20 6d t_data records m
6130: 61 74 63 68 69 6e 67 20 63 61 74 65 67 6f 72 79 atching category
6140: 70 61 74 74 0a 28 64 65 66 69 6e 65 20 28 64 62 patt.(define (db
6150: 3a 72 65 61 64 2d 74 65 73 74 2d 64 61 74 61 20 :read-test-data
6160: 64 62 20 74 65 73 74 2d 69 64 20 63 61 74 65 67 db test-id categ
6170: 6f 72 79 70 61 74 74 29 0a 20 20 28 6c 65 74 20 orypatt). (let
6180: 28 28 72 65 73 20 27 28 29 29 29 0a 20 20 20 20 ((res '())).
6190: 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 (sqlite3:for-eac
61a0: 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c 61 6d h-row . (lam
61b0: 62 64 61 20 28 69 64 20 74 65 73 74 5f 69 64 20 bda (id test_id
61c0: 63 61 74 65 67 6f 72 79 20 76 61 72 69 61 62 6c category variabl
61d0: 65 20 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 e value expected
61e0: 20 74 6f 6c 20 75 6e 69 74 73 20 63 6f 6d 6d 65 tol units comme
61f0: 6e 74 20 73 74 61 74 75 73 29 0a 20 20 20 20 20 nt status).
6200: 20 20 28 73 65 74 21 20 72 65 73 20 28 63 6f 6e (set! res (con
6210: 73 20 28 76 65 63 74 6f 72 20 69 64 20 74 65 73 s (vector id tes
6220: 74 5f 69 64 20 63 61 74 65 67 6f 72 79 20 76 61 t_id category va
6230: 72 69 61 62 6c 65 20 76 61 6c 75 65 20 65 78 70 riable value exp
6240: 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 74 73 20 ected tol units
6250: 63 6f 6d 6d 65 6e 74 20 73 74 61 74 75 73 29 20 comment status)
6260: 72 65 73 29 29 29 0a 20 20 20 20 20 64 62 0a 20 res))). db.
6270: 20 20 20 20 22 53 45 4c 45 43 54 20 69 64 2c 74 "SELECT id,t
6280: 65 73 74 5f 69 64 2c 63 61 74 65 67 6f 72 79 2c est_id,category,
6290: 76 61 72 69 61 62 6c 65 2c 76 61 6c 75 65 2c 65 variable,value,e
62a0: 78 70 65 63 74 65 64 2c 74 6f 6c 2c 75 6e 69 74 xpected,tol,unit
62b0: 73 2c 63 6f 6d 6d 65 6e 74 2c 73 74 61 74 75 73 s,comment,status
62c0: 20 46 52 4f 4d 20 74 65 73 74 5f 64 61 74 61 20 FROM test_data
62d0: 57 48 45 52 45 20 74 65 73 74 5f 69 64 3d 3f 20 WHERE test_id=?
62e0: 41 4e 44 20 63 61 74 65 67 6f 72 79 20 4c 49 4b AND category LIK
62f0: 45 20 3f 20 4f 52 44 45 52 20 42 59 20 63 61 74 E ? ORDER BY cat
6300: 65 67 6f 72 79 2c 76 61 72 69 61 62 6c 65 3b 22 egory,variable;"
6310: 20 74 65 73 74 2d 69 64 20 63 61 74 65 67 6f 72 test-id categor
6320: 79 70 61 74 74 29 0a 20 20 20 20 28 72 65 76 65 ypatt). (reve
6330: 72 73 65 20 72 65 73 29 29 29 0a 0a 28 64 65 66 rse res)))..(def
6340: 69 6e 65 20 28 64 62 3a 6c 6f 61 64 2d 74 65 73 ine (db:load-tes
6350: 74 2d 64 61 74 61 20 64 62 20 72 75 6e 2d 69 64 t-data db run-id
6360: 20 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 64 test-name itemd
6370: 61 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 74 at). (let* ((it
6380: 65 6d 2d 70 61 74 68 20 28 69 74 65 6d 2d 6c 69 em-path (item-li
6390: 73 74 2d 3e 70 61 74 68 20 69 74 65 6d 64 61 74 st->path itemdat
63a0: 29 29 0a 09 20 28 74 65 73 74 64 61 74 20 28 64 )).. (testdat (d
63b0: 62 3a 67 65 74 2d 74 65 73 74 2d 69 6e 66 6f 20 b:get-test-info
63c0: 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 2d 6e db run-id test-n
63d0: 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 29 29 0a ame item-path)).
63e0: 09 20 28 74 65 73 74 2d 69 64 20 28 69 66 20 74 . (test-id (if t
63f0: 65 73 74 64 61 74 20 28 64 62 3a 74 65 73 74 2d estdat (db:test-
6400: 67 65 74 2d 69 64 20 74 65 73 74 64 61 74 29 20 get-id testdat)
6410: 23 66 29 29 29 0a 20 20 20 20 3b 3b 20 28 64 65 #f))). ;; (de
6420: 62 75 67 3a 70 72 69 6e 74 20 31 20 22 45 6e 74 bug:print 1 "Ent
6430: 65 72 20 72 65 63 6f 72 64 73 20 74 6f 20 69 6e er records to in
6440: 73 65 72 74 20 69 6e 20 74 68 65 20 74 65 73 74 sert in the test
6450: 5f 64 61 74 61 20 74 61 62 6c 65 2c 20 73 65 76 _data table, sev
6460: 65 6e 20 66 69 65 6c 64 73 2c 20 63 6f 6d 6d 61 en fields, comma
6470: 20 73 65 70 61 72 61 74 65 64 20 70 65 72 20 6c separated per l
6480: 69 6e 65 22 29 0a 20 20 20 20 28 64 65 62 75 67 ine"). (debug
6490: 3a 70 72 69 6e 74 20 34 20 22 69 74 65 6d 64 61 :print 4 "itemda
64a0: 74 3a 20 22 20 69 74 65 6d 64 61 74 20 22 2c 20 t: " itemdat ",
64b0: 74 65 73 74 2d 6e 61 6d 65 3a 20 22 20 74 65 73 test-name: " tes
64c0: 74 2d 6e 61 6d 65 20 22 2c 20 74 65 73 74 2d 69 t-name ", test-i
64d0: 64 3a 20 22 20 74 65 73 74 2d 69 64 29 0a 20 20 d: " test-id).
64e0: 20 20 28 69 66 20 74 65 73 74 2d 69 64 0a 09 28 (if test-id..(
64f0: 6c 65 74 20 6c 6f 6f 70 20 28 28 6c 69 6e 20 28 let loop ((lin (
6500: 72 65 61 64 2d 6c 69 6e 65 29 29 29 0a 09 20 20 read-line)))..
6510: 28 69 66 20 28 6e 6f 74 20 28 65 6f 66 2d 6f 62 (if (not (eof-ob
6520: 6a 65 63 74 3f 20 6c 69 6e 29 29 0a 09 20 20 20 ject? lin))..
6530: 20 20 20 28 62 65 67 69 6e 0a 09 09 28 64 65 62 (begin...(deb
6540: 75 67 3a 70 72 69 6e 74 20 34 20 6c 69 6e 29 0a ug:print 4 lin).
6550: 09 09 28 64 62 3a 63 73 76 2d 3e 74 65 73 74 2d ..(db:csv->test-
6560: 64 61 74 61 20 64 62 20 74 65 73 74 2d 69 64 20 data db test-id
6570: 6c 69 6e 29 0a 09 09 28 6c 6f 6f 70 20 28 72 65 lin)...(loop (re
6580: 61 64 2d 6c 69 6e 65 29 29 29 29 29 29 0a 20 20 ad-line)))))).
6590: 20 20 3b 3b 20 72 6f 6c 6c 20 75 70 20 74 68 65 ;; roll up the
65a0: 20 63 75 72 72 65 6e 74 20 72 65 73 75 6c 74 73 current results
65b0: 2e 0a 20 20 20 20 28 64 62 3a 74 65 73 74 2d 64 .. (db:test-d
65c0: 61 74 61 2d 72 6f 6c 6c 75 70 20 64 62 20 74 65 ata-rollup db te
65d0: 73 74 2d 69 64 29 29 29 0a 20 20 0a 3b 3b 20 57 st-id))). .;; W
65e0: 41 52 4e 49 4e 47 3a 20 44 6f 20 4e 4f 54 20 63 ARNING: Do NOT c
65f0: 61 6c 6c 20 74 68 69 73 20 66 6f 72 20 74 68 65 all this for the
6600: 20 70 61 72 65 6e 74 20 74 65 73 74 20 6f 6e 20 parent test on
6610: 61 6e 20 69 74 65 72 61 74 65 64 20 74 65 73 74 an iterated test
6620: 0a 3b 3b 20 52 6f 6c 6c 20 75 70 20 74 65 73 74 .;; Roll up test
6630: 5f 64 61 74 61 20 70 61 73 73 2f 66 61 69 6c 20 _data pass/fail
6640: 72 65 73 75 6c 74 73 0a 3b 3b 20 6c 6f 6f 6b 20 results.;; look
6650: 61 74 20 74 68 65 20 74 65 73 74 5f 64 61 74 61 at the test_data
6660: 20 73 74 61 74 75 73 20 66 69 65 6c 64 2c 20 0a status field, .
6670: 3b 3b 20 20 20 20 69 66 20 61 6c 6c 20 61 72 65 ;; if all are
6680: 20 70 61 73 73 20 28 61 6e 79 20 63 61 73 65 29 pass (any case)
6690: 20 61 6e 64 20 74 68 65 20 74 65 73 74 20 73 74 and the test st
66a0: 61 74 75 73 20 69 73 20 50 41 53 53 20 6f 72 20 atus is PASS or
66b0: 4e 55 4c 4c 20 6f 72 20 27 27 20 74 68 65 6e 20 NULL or '' then
66c0: 73 65 74 20 74 65 73 74 20 73 74 61 74 75 73 20 set test status
66d0: 74 6f 20 50 41 53 53 2e 0a 3b 3b 20 20 20 20 69 to PASS..;; i
66e0: 66 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 61 72 f one or more ar
66f0: 65 20 66 61 69 6c 20 28 61 6e 79 20 63 61 73 65 e fail (any case
6700: 29 20 74 68 65 6e 20 73 65 74 20 74 65 73 74 20 ) then set test
6710: 73 74 61 74 75 73 20 74 6f 20 50 41 53 53 2c 20 status to PASS,
6720: 6e 6f 6e 20 22 70 61 73 73 22 20 6f 72 20 22 66 non "pass" or "f
6730: 61 69 6c 22 20 61 72 65 20 69 67 6e 6f 72 65 64 ail" are ignored
6740: 0a 28 64 65 66 69 6e 65 20 28 64 62 3a 74 65 73 .(define (db:tes
6750: 74 2d 64 61 74 61 2d 72 6f 6c 6c 75 70 20 64 62 t-data-rollup db
6760: 20 74 65 73 74 2d 69 64 29 0a 20 20 28 73 71 6c test-id). (sql
6770: 69 74 65 33 3a 65 78 65 63 75 74 65 20 0a 20 20 ite3:execute .
6780: 20 64 62 20 0a 20 20 20 22 55 50 44 41 54 45 20 db . "UPDATE
6790: 74 65 73 74 73 20 0a 20 20 20 20 20 20 53 45 54 tests . SET
67a0: 20 66 61 69 6c 5f 63 6f 75 6e 74 3d 28 53 45 4c fail_count=(SEL
67b0: 45 43 54 20 63 6f 75 6e 74 28 69 64 29 20 46 52 ECT count(id) FR
67c0: 4f 4d 20 74 65 73 74 5f 64 61 74 61 20 57 48 45 OM test_data WHE
67d0: 52 45 20 74 65 73 74 5f 69 64 3d 3f 20 41 4e 44 RE test_id=? AND
67e0: 20 73 74 61 74 75 73 20 6c 69 6b 65 20 27 66 61 status like 'fa
67f0: 69 6c 27 29 2c 0a 20 20 20 20 20 20 20 20 20 20 il'),.
6800: 70 61 73 73 5f 63 6f 75 6e 74 3d 28 53 45 4c 45 pass_count=(SELE
6810: 43 54 20 63 6f 75 6e 74 28 69 64 29 20 46 52 4f CT count(id) FRO
6820: 4d 20 74 65 73 74 5f 64 61 74 61 20 57 48 45 52 M test_data WHER
6830: 45 20 74 65 73 74 5f 69 64 3d 3f 20 41 4e 44 20 E test_id=? AND
6840: 73 74 61 74 75 73 20 6c 69 6b 65 20 27 70 61 73 status like 'pas
6850: 73 27 29 0a 20 20 20 20 20 20 57 48 45 52 45 20 s'). WHERE
6860: 69 64 3d 3f 3b 22 0a 20 20 20 74 65 73 74 2d 69 id=?;". test-i
6870: 64 20 74 65 73 74 2d 69 64 20 74 65 73 74 2d 69 d test-id test-i
6880: 64 29 0a 20 20 3b 3b 20 69 66 20 74 68 65 20 74 d). ;; if the t
6890: 65 73 74 20 69 73 20 6e 6f 74 20 46 41 49 4c 20 est is not FAIL
68a0: 74 68 65 6e 20 73 65 74 20 73 74 61 74 75 73 20 then set status
68b0: 62 61 73 65 64 20 6f 6e 20 74 68 65 20 66 61 69 based on the fai
68c0: 6c 20 61 6e 64 20 70 61 73 73 20 63 6f 75 6e 74 l and pass count
68d0: 73 2e 0a 20 20 28 73 6c 65 65 70 20 31 29 0a 20 s.. (sleep 1).
68e0: 20 28 73 71 6c 69 74 65 33 3a 65 78 65 63 75 74 (sqlite3:execut
68f0: 65 0a 20 20 20 64 62 0a 20 20 20 22 55 50 44 41 e. db. "UPDA
6900: 54 45 20 74 65 73 74 73 0a 20 20 20 20 20 20 53 TE tests. S
6910: 45 54 20 73 74 61 74 75 73 3d 43 41 53 45 20 57 ET status=CASE W
6920: 48 45 4e 20 28 53 45 4c 45 43 54 20 66 61 69 6c HEN (SELECT fail
6930: 5f 63 6f 75 6e 74 20 46 52 4f 4d 20 74 65 73 74 _count FROM test
6940: 73 20 57 48 45 52 45 20 69 64 3d 3f 29 20 3e 20 s WHERE id=?) >
6950: 30 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 0 .
6960: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e THEN
6970: 20 27 46 41 49 4c 27 0a 20 20 20 20 20 20 20 20 'FAIL'.
6980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 WH
6990: 45 4e 20 28 53 45 4c 45 43 54 20 70 61 73 73 5f EN (SELECT pass_
69a0: 63 6f 75 6e 74 20 46 52 4f 4d 20 74 65 73 74 73 count FROM tests
69b0: 20 57 48 45 52 45 20 69 64 3d 3f 29 20 3e 20 30 WHERE id=?) > 0
69c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
69d0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 27 THEN '
69e0: 50 41 53 53 27 0a 20 20 20 20 20 20 20 20 20 20 PASS'.
69f0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 ELSE
6a00: 20 73 74 61 74 75 73 0a 20 20 20 20 20 20 20 20 status.
6a10: 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 57 48 END WH
6a20: 45 52 45 20 69 64 3d 3f 3b 22 0a 20 20 20 74 65 ERE id=?;". te
6a30: 73 74 2d 69 64 20 74 65 73 74 2d 69 64 20 74 65 st-id test-id te
6a40: 73 74 2d 69 64 29 29 0a 0a 28 64 65 66 69 6e 65 st-id))..(define
6a50: 20 28 64 62 3a 67 65 74 2d 70 72 65 76 2d 74 6f (db:get-prev-to
6a60: 6c 2d 66 6f 72 2d 74 65 73 74 20 64 62 20 74 65 l-for-test db te
6a70: 73 74 2d 69 64 20 63 61 74 65 67 6f 72 79 20 76 st-id category v
6a80: 61 72 69 61 62 6c 65 29 0a 20 20 3b 3b 20 46 69 ariable). ;; Fi
6a90: 6e 69 73 68 20 6d 65 3f 0a 20 20 28 76 61 6c 75 nish me?. (valu
6aa0: 65 73 20 23 66 20 23 66 20 23 66 29 29 0a 0a 3b es #f #f #f))..;
6ab0: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;===============
6ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6ad0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6ae0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6af0: 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 53 20 54 20 45 =======.;; S T E
6b00: 20 50 20 53 20 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d P S .;;========
6b10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6b40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a ==============..
6b50: 28 64 65 66 69 6e 65 20 28 64 62 3a 73 74 65 70 (define (db:step
6b60: 2d 67 65 74 2d 74 69 6d 65 2d 61 73 2d 73 74 72 -get-time-as-str
6b70: 69 6e 67 20 76 65 63 29 0a 20 20 20 20 28 73 65 ing vec). (se
6b80: 63 6f 6e 64 73 2d 3e 74 69 6d 65 2d 73 74 72 69 conds->time-stri
6b90: 6e 67 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d ng (db:step-get-
6ba0: 65 76 65 6e 74 5f 74 69 6d 65 20 76 65 63 29 29 event_time vec))
6bb0: 29 0a 0a 3b 3b 20 64 62 2d 67 65 74 2d 74 65 73 )..;; db-get-tes
6bc0: 74 2d 73 74 65 70 73 2d 66 6f 72 2d 72 75 6e 0a t-steps-for-run.
6bd0: 28 64 65 66 69 6e 65 20 28 64 62 3a 67 65 74 2d (define (db:get-
6be0: 73 74 65 70 73 2d 66 6f 72 2d 74 65 73 74 20 64 steps-for-test d
6bf0: 62 20 74 65 73 74 2d 69 64 29 0a 20 20 28 6c 65 b test-id). (le
6c00: 74 20 28 28 72 65 73 20 27 28 29 29 29 0a 20 20 t ((res '())).
6c10: 20 20 28 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 (sqlite3:for-e
6c20: 61 63 68 2d 72 6f 77 20 0a 20 20 20 20 20 28 6c ach-row . (l
6c30: 61 6d 62 64 61 20 28 69 64 20 74 65 73 74 2d 69 ambda (id test-i
6c40: 64 20 73 74 65 70 6e 61 6d 65 20 73 74 61 74 65 d stepname state
6c50: 20 73 74 61 74 75 73 20 65 76 65 6e 74 2d 74 69 status event-ti
6c60: 6d 65 29 0a 20 20 20 20 20 20 20 28 73 65 74 21 me). (set!
6c70: 20 72 65 73 20 28 63 6f 6e 73 20 28 76 65 63 74 res (cons (vect
6c80: 6f 72 20 69 64 20 74 65 73 74 2d 69 64 20 73 74 or id test-id st
6c90: 65 70 6e 61 6d 65 20 73 74 61 74 65 20 73 74 61 epname state sta
6ca0: 74 75 73 20 65 76 65 6e 74 2d 74 69 6d 65 29 20 tus event-time)
6cb0: 72 65 73 29 29 29 0a 20 20 20 20 20 64 62 0a 20 res))). db.
6cc0: 20 20 20 20 22 53 45 4c 45 43 54 20 69 64 2c 74 "SELECT id,t
6cd0: 65 73 74 5f 69 64 2c 73 74 65 70 6e 61 6d 65 2c est_id,stepname,
6ce0: 73 74 61 74 65 2c 73 74 61 74 75 73 2c 65 76 65 state,status,eve
6cf0: 6e 74 5f 74 69 6d 65 20 46 52 4f 4d 20 74 65 73 nt_time FROM tes
6d00: 74 5f 73 74 65 70 73 20 57 48 45 52 45 20 74 65 t_steps WHERE te
6d10: 73 74 5f 69 64 3d 3f 20 4f 52 44 45 52 20 42 59 st_id=? ORDER BY
6d20: 20 69 64 20 41 53 43 3b 22 20 3b 3b 20 65 76 65 id ASC;" ;; eve
6d30: 6e 74 5f 74 69 6d 65 20 44 45 53 43 2c 69 64 20 nt_time DESC,id
6d40: 41 53 43 3b 0a 20 20 20 20 20 74 65 73 74 2d 69 ASC;. test-i
6d50: 64 29 0a 20 20 20 20 28 72 65 76 65 72 73 65 20 d). (reverse
6d60: 72 65 73 29 29 29 0a 0a 3b 3b 20 67 65 74 20 61 res)))..;; get a
6d70: 20 70 72 65 74 74 79 20 74 61 62 6c 65 20 74 6f pretty table to
6d80: 20 73 75 6d 6d 61 72 69 7a 65 20 73 74 65 70 73 summarize steps
6d90: 0a 3b 3b 0a 28 64 65 66 69 6e 65 20 28 64 62 3a .;;.(define (db:
6da0: 67 65 74 2d 73 74 65 70 73 2d 74 61 62 6c 65 20 get-steps-table
6db0: 64 62 20 74 65 73 74 2d 69 64 29 0a 20 20 28 6c db test-id). (l
6dc0: 65 74 20 28 28 73 74 65 70 73 20 20 20 28 64 62 et ((steps (db
6dd0: 3a 67 65 74 2d 73 74 65 70 73 2d 66 6f 72 2d 74 :get-steps-for-t
6de0: 65 73 74 20 64 62 20 74 65 73 74 2d 69 64 29 29 est db test-id))
6df0: 29 0a 20 20 20 20 3b 3b 20 6f 72 67 61 6e 69 73 ). ;; organis
6e00: 65 20 74 68 65 20 73 74 65 70 73 20 66 6f 72 20 e the steps for
6e10: 62 65 74 74 65 72 20 72 65 61 64 61 62 69 6c 69 better readabili
6e20: 74 79 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 ty. (let ((re
6e30: 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 s (make-hash-tab
6e40: 6c 65 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 le))). (for
6e50: 2d 65 61 63 68 20 0a 20 20 20 20 20 20 20 28 6c -each . (l
6e60: 61 6d 62 64 61 20 28 73 74 65 70 29 0a 09 20 28 ambda (step).. (
6e70: 64 65 62 75 67 3a 70 72 69 6e 74 20 36 20 22 73 debug:print 6 "s
6e80: 74 65 70 3d 22 20 73 74 65 70 29 0a 09 20 28 6c tep=" step).. (l
6e90: 65 74 20 28 28 72 65 63 6f 72 64 20 28 68 61 73 et ((record (has
6ea0: 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 h-table-ref/defa
6eb0: 75 6c 74 20 0a 09 09 09 72 65 73 20 0a 09 09 09 ult ....res ....
6ec0: 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 (db:step-get-ste
6ed0: 70 6e 61 6d 65 20 73 74 65 70 29 20 0a 09 09 09 pname step) ....
6ee0: 3b 3b 20 20 20 20 20 20 20 20 73 74 65 70 6e 61 ;; stepna
6ef0: 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 me
6f00: 20 20 73 74 61 72 74 20 65 6e 64 20 73 74 61 74 start end stat
6f10: 75 73 20 20 20 20 0a 09 09 09 28 76 65 63 74 6f us ....(vecto
6f20: 72 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 r (db:step-get-s
6f30: 74 65 70 6e 61 6d 65 20 73 74 65 70 29 20 22 22 tepname step) ""
6f40: 20 20 20 22 22 20 22 22 20 20 20 20 20 22 22 29 "" "" "")
6f50: 29 29 29 0a 09 20 20 20 28 64 65 62 75 67 3a 70 ))).. (debug:p
6f60: 72 69 6e 74 20 36 20 22 72 65 63 6f 72 64 28 62 rint 6 "record(b
6f70: 65 66 6f 72 65 29 20 3d 20 22 20 72 65 63 6f 72 efore) = " recor
6f80: 64 20 0a 09 09 09 22 5c 6e 69 64 3a 20 20 20 20 d ...."\nid:
6f90: 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 " (db:step-ge
6fa0: 74 2d 69 64 20 73 74 65 70 29 0a 09 09 09 22 5c t-id step)...."\
6fb0: 6e 73 74 65 70 6e 61 6d 65 3a 20 22 20 28 64 62 nstepname: " (db
6fc0: 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 6e 61 :step-get-stepna
6fd0: 6d 65 20 73 74 65 70 29 0a 09 09 09 22 5c 6e 73 me step)...."\ns
6fe0: 74 61 74 65 3a 20 20 20 20 22 20 28 64 62 3a 73 tate: " (db:s
6ff0: 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 74 tep-get-state st
7000: 65 70 29 0a 09 09 09 22 5c 6e 73 74 61 74 75 73 ep)...."\nstatus
7010: 3a 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 : " (db:step-g
7020: 65 74 2d 73 74 61 74 75 73 20 73 74 65 70 29 0a et-status step).
7030: 09 09 09 22 5c 6e 74 69 6d 65 3a 20 20 20 20 20 ..."\ntime:
7040: 22 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 " (db:step-get-e
7050: 76 65 6e 74 5f 74 69 6d 65 20 73 74 65 70 29 29 vent_time step))
7060: 0a 09 20 20 20 28 63 61 73 65 20 28 73 74 72 69 .. (case (stri
7070: 6e 67 2d 3e 73 79 6d 62 6f 6c 20 28 64 62 3a 73 ng->symbol (db:s
7080: 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 74 tep-get-state st
7090: 65 70 29 29 0a 09 20 20 20 20 20 28 28 73 74 61 ep)).. ((sta
70a0: 72 74 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 rt)(vector-set!
70b0: 72 65 63 6f 72 64 20 31 20 28 64 62 3a 73 74 65 record 1 (db:ste
70c0: 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 p-get-event_time
70d0: 20 73 74 65 70 29 29 0a 09 20 20 20 20 20 20 28 step)).. (
70e0: 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f vector-set! reco
70f0: 72 64 20 33 20 28 69 66 20 28 65 71 75 61 6c 3f rd 3 (if (equal?
7100: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 65 63 (vector-ref rec
7110: 6f 72 64 20 33 29 20 22 22 29 0a 09 09 09 09 09 ord 3) "")......
7120: 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 (db:step-get-sta
7130: 74 75 73 20 73 74 65 70 29 29 29 29 0a 09 20 20 tus step))))..
7140: 20 20 20 28 28 65 6e 64 29 20 20 0a 09 20 20 20 ((end) ..
7150: 20 20 20 28 76 65 63 74 6f 72 2d 73 65 74 21 20 (vector-set!
7160: 72 65 63 6f 72 64 20 32 20 28 61 6e 79 2d 3e 6e record 2 (any->n
7170: 75 6d 62 65 72 20 28 64 62 3a 73 74 65 70 2d 67 umber (db:step-g
7180: 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 73 74 et-event_time st
7190: 65 70 29 29 29 0a 09 20 20 20 20 20 20 28 76 65 ep))).. (ve
71a0: 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 64 ctor-set! record
71b0: 20 33 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 3 (db:step-get-
71c0: 73 74 61 74 75 73 20 73 74 65 70 29 29 0a 09 20 status step))..
71d0: 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 65 74 (vector-set
71e0: 21 20 72 65 63 6f 72 64 20 34 20 28 6c 65 74 20 ! record 4 (let
71f0: 28 28 73 74 61 72 74 74 20 28 61 6e 79 2d 3e 6e ((startt (any->n
7200: 75 6d 62 65 72 20 28 76 65 63 74 6f 72 2d 72 65 umber (vector-re
7210: 66 20 72 65 63 6f 72 64 20 31 29 29 29 0a 09 09 f record 1)))...
7220: 09 09 09 20 20 28 65 6e 64 74 20 20 20 28 61 6e ... (endt (an
7230: 79 2d 3e 6e 75 6d 62 65 72 20 28 76 65 63 74 6f y->number (vecto
7240: 72 2d 72 65 66 20 72 65 63 6f 72 64 20 32 29 29 r-ref record 2))
7250: 29 29 0a 09 09 09 09 20 20 20 20 20 20 28 64 65 ))..... (de
7260: 62 75 67 3a 70 72 69 6e 74 20 34 20 22 72 65 63 bug:print 4 "rec
7270: 6f 72 64 5b 31 5d 3d 22 20 28 76 65 63 74 6f 72 ord[1]=" (vector
7280: 2d 72 65 66 20 72 65 63 6f 72 64 20 31 29 20 0a -ref record 1) .
7290: 09 09 09 09 09 09 20 20 20 22 2c 20 73 74 61 72 ...... ", star
72a0: 74 74 3d 22 20 73 74 61 72 74 74 20 22 2c 20 65 tt=" startt ", e
72b0: 6e 64 74 3d 22 20 65 6e 64 74 0a 09 09 09 09 09 ndt=" endt......
72c0: 09 20 20 20 22 2c 20 67 65 74 2d 73 74 61 74 75 . ", get-statu
72d0: 73 3a 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 s: " (db:step-ge
72e0: 74 2d 73 74 61 74 75 73 20 73 74 65 70 29 29 0a t-status step)).
72f0: 09 09 09 09 20 20 20 20 20 20 28 69 66 20 28 61 .... (if (a
7300: 6e 64 20 28 6e 75 6d 62 65 72 3f 20 73 74 61 72 nd (number? star
7310: 74 74 29 28 6e 75 6d 62 65 72 3f 20 65 6e 64 74 tt)(number? endt
7320: 29 29 0a 09 09 09 09 09 20 20 28 73 65 63 6f 6e ))...... (secon
7330: 64 73 2d 3e 68 72 2d 6d 69 6e 2d 73 65 63 20 28 ds->hr-min-sec (
7340: 2d 20 65 6e 64 74 20 73 74 61 72 74 74 29 29 20 - endt startt))
7350: 22 2d 31 22 29 29 29 29 0a 09 20 20 20 20 20 28 "-1")))).. (
7360: 65 6c 73 65 0a 09 20 20 20 20 20 20 20 20 28 76 else.. (v
7370: 65 63 74 6f 72 2d 73 65 74 21 20 72 65 63 6f 72 ector-set! recor
7380: 64 20 32 20 28 64 62 3a 73 74 65 70 2d 67 65 74 d 2 (db:step-get
7390: 2d 73 74 61 74 65 20 73 74 65 70 29 29 0a 09 20 -state step))..
73a0: 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d 73 (vector-s
73b0: 65 74 21 20 72 65 63 6f 72 64 20 33 20 28 64 62 et! record 3 (db
73c0: 3a 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 :step-get-status
73d0: 20 73 74 65 70 29 29 0a 09 20 20 20 20 20 20 20 step))..
73e0: 20 28 76 65 63 74 6f 72 2d 73 65 74 21 20 72 65 (vector-set! re
73f0: 63 6f 72 64 20 34 20 28 64 62 3a 73 74 65 70 2d cord 4 (db:step-
7400: 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 20 73 get-event_time s
7410: 74 65 70 29 29 29 29 0a 09 20 20 20 28 68 61 73 tep)))).. (has
7420: 68 2d 74 61 62 6c 65 2d 73 65 74 21 20 72 65 73 h-table-set! res
7430: 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 (db:step-get-st
7440: 65 70 6e 61 6d 65 20 73 74 65 70 29 20 72 65 63 epname step) rec
7450: 6f 72 64 29 0a 09 20 20 20 28 64 65 62 75 67 3a ord).. (debug:
7460: 70 72 69 6e 74 20 36 20 22 72 65 63 6f 72 64 28 print 6 "record(
7470: 61 66 74 65 72 29 20 20 3d 20 22 20 72 65 63 6f after) = " reco
7480: 72 64 20 0a 09 09 09 22 5c 6e 69 64 3a 20 20 20 rd ...."\nid:
7490: 20 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d 67 " (db:step-g
74a0: 65 74 2d 69 64 20 73 74 65 70 29 0a 09 09 09 22 et-id step)...."
74b0: 5c 6e 73 74 65 70 6e 61 6d 65 3a 20 22 20 28 64 \nstepname: " (d
74c0: 62 3a 73 74 65 70 2d 67 65 74 2d 73 74 65 70 6e b:step-get-stepn
74d0: 61 6d 65 20 73 74 65 70 29 0a 09 09 09 22 5c 6e ame step)...."\n
74e0: 73 74 61 74 65 3a 20 20 20 20 22 20 28 64 62 3a state: " (db:
74f0: 73 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 step-get-state s
7500: 74 65 70 29 0a 09 09 09 22 5c 6e 73 74 61 74 75 tep)...."\nstatu
7510: 73 3a 20 20 20 22 20 28 64 62 3a 73 74 65 70 2d s: " (db:step-
7520: 67 65 74 2d 73 74 61 74 75 73 20 73 74 65 70 29 get-status step)
7530: 0a 09 09 09 22 5c 6e 74 69 6d 65 3a 20 20 20 20 ...."\ntime:
7540: 20 22 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d " (db:step-get-
7550: 65 76 65 6e 74 5f 74 69 6d 65 20 73 74 65 70 29 event_time step)
7560: 29 29 29 0a 20 20 20 20 20 20 20 3b 3b 20 28 65 ))). ;; (e
7570: 6c 73 65 20 20 20 28 76 65 63 74 6f 72 2d 73 65 lse (vector-se
7580: 74 21 20 72 65 63 6f 72 64 20 31 20 28 64 62 3a t! record 1 (db:
7590: 73 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 step-get-event_t
75a0: 69 6d 65 20 73 74 65 70 29 29 29 0a 20 20 20 20 ime step))).
75b0: 20 20 20 28 73 6f 72 74 20 73 74 65 70 73 20 28 (sort steps (
75c0: 6c 61 6d 62 64 61 20 28 61 20 62 29 28 3c 20 28 lambda (a b)(< (
75d0: 64 62 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 6e db:step-get-even
75e0: 74 5f 74 69 6d 65 20 61 29 28 64 62 3a 73 74 65 t_time a)(db:ste
75f0: 70 2d 67 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 p-get-event_time
7600: 20 62 29 29 29 29 29 0a 20 20 20 20 20 20 72 65 b))))). re
7610: 73 29 29 29 0a 0a 3b 3b 20 55 53 45 3a 20 28 6c s)))..;; USE: (l
7620: 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 73 set-difference s
7630: 74 72 69 6e 67 3d 3f 20 27 28 22 61 22 20 22 62 tring=? '("a" "b
7640: 22 20 22 63 22 29 20 27 28 22 64 22 20 22 63 22 " "c") '("d" "c"
7650: 20 22 65 22 20 22 61 22 29 29 0a 3b 3b 0a 3b 3b "e" "a")).;;.;;
7660: 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f Return a list o
7670: 66 20 70 72 65 72 65 71 73 20 74 68 61 74 20 77 f prereqs that w
7680: 65 72 65 20 4e 4f 54 20 6d 65 74 0a 3b 3b 20 20 ere NOT met.;;
7690: 54 65 73 74 73 20 28 61 6e 64 20 61 6c 6c 20 69 Tests (and all i
76a0: 74 65 6d 73 29 20 69 6e 20 77 61 69 74 6f 6e 20 tems) in waiton
76b0: 6c 69 73 74 20 6d 75 73 74 20 62 65 20 22 43 4f list must be "CO
76c0: 4d 50 4c 45 54 45 44 22 20 61 6e 64 20 22 50 41 MPLETED" and "PA
76d0: 53 53 22 0a 28 64 65 66 69 6e 65 20 28 64 62 2d SS".(define (db-
76e0: 67 65 74 2d 70 72 65 72 65 71 73 2d 6e 6f 74 2d get-prereqs-not-
76f0: 6d 65 74 20 64 62 20 72 75 6e 2d 69 64 20 77 61 met db run-id wa
7700: 69 74 6f 6e 29 0a 20 20 28 69 66 20 28 6e 75 6c iton). (if (nul
7710: 6c 3f 20 77 61 69 74 6f 6e 29 0a 20 20 20 20 20 l? waiton).
7720: 20 27 28 29 0a 20 20 20 20 20 20 28 6c 65 74 2a '(). (let*
7730: 20 28 28 75 6e 6d 65 74 2d 70 72 65 2d 72 65 71 ((unmet-pre-req
7740: 73 20 27 28 29 29 0a 09 20 20 20 20 20 28 74 65 s '()).. (te
7750: 73 74 73 20 20 20 20 20 20 20 20 20 20 20 28 64 sts (d
7760: 62 2d 67 65 74 2d 74 65 73 74 73 2d 66 6f 72 2d b-get-tests-for-
7770: 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 20 23 66 run db run-id #f
7780: 20 23 66 29 29 0a 09 20 20 20 20 20 28 72 65 73 #f)).. (res
7790: 75 6c 74 20 20 20 20 20 20 20 20 20 27 28 29 29 ult '())
77a0: 29 0a 09 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 )..(for-each (la
77b0: 6d 62 64 61 20 28 77 61 69 74 6f 6e 74 65 73 74 mbda (waitontest
77c0: 2d 6e 61 6d 65 29 0a 09 09 20 20 20 20 28 6c 65 -name)... (le
77d0: 74 20 28 28 65 76 65 72 2d 73 65 65 6e 20 23 66 t ((ever-seen #f
77e0: 29 29 0a 09 09 20 20 20 20 20 20 28 66 6f 72 2d ))... (for-
77f0: 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 74 65 each (lambda (te
7800: 73 74 29 0a 09 09 09 09 20 20 28 69 66 20 28 65 st)..... (if (e
7810: 71 75 61 6c 3f 20 77 61 69 74 6f 6e 74 65 73 74 qual? waitontest
7820: 2d 6e 61 6d 65 20 28 64 62 3a 74 65 73 74 2d 67 -name (db:test-g
7830: 65 74 2d 74 65 73 74 6e 61 6d 65 20 74 65 73 74 et-testname test
7840: 29 29 0a 09 09 09 09 20 20 20 20 20 20 28 62 65 ))..... (be
7850: 67 69 6e 0a 09 09 09 09 09 28 73 65 74 21 20 65 gin......(set! e
7860: 76 65 72 2d 73 65 65 6e 20 23 74 29 0a 09 09 09 ver-seen #t)....
7870: 09 09 28 69 66 20 28 6e 6f 74 20 28 61 6e 64 20 ..(if (not (and
7880: 28 65 71 75 61 6c 3f 20 28 64 62 3a 74 65 73 74 (equal? (db:test
7890: 2d 67 65 74 2d 73 74 61 74 65 20 74 65 73 74 29 -get-state test)
78a0: 20 22 43 4f 4d 50 4c 45 54 45 44 22 29 0a 09 09 "COMPLETED")...
78b0: 09 09 09 09 20 20 20 20 20 20 28 6d 65 6d 62 65 .... (membe
78c0: 72 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 r (db:test-get-s
78d0: 74 61 74 75 73 20 74 65 73 74 29 20 27 28 22 50 tatus test) '("P
78e0: 41 53 53 22 20 22 57 41 52 4e 22 20 22 43 48 45 ASS" "WARN" "CHE
78f0: 43 4b 22 29 29 29 29 0a 09 09 09 09 09 20 20 20 CK"))))......
7900: 20 28 73 65 74 21 20 72 65 73 75 6c 74 20 28 63 (set! result (c
7910: 6f 6e 73 20 77 61 69 74 6f 6e 74 65 73 74 2d 6e ons waitontest-n
7920: 61 6d 65 20 72 65 73 75 6c 74 29 29 29 29 29 29 ame result))))))
7930: 0a 09 09 09 09 74 65 73 74 73 29 0a 09 09 20 20 .....tests)...
7940: 20 20 20 20 28 69 66 20 28 6e 6f 74 20 65 76 65 (if (not eve
7950: 72 2d 73 65 65 6e 29 28 73 65 74 21 20 72 65 73 r-seen)(set! res
7960: 75 6c 74 20 28 63 6f 6e 73 20 77 61 69 74 6f 6e ult (cons waiton
7970: 74 65 73 74 2d 6e 61 6d 65 20 72 65 73 75 6c 74 test-name result
7980: 29 29 29 29 29 0a 09 09 20 20 77 61 69 74 6f 6e )))))... waiton
7990: 29 0a 09 28 64 65 6c 65 74 65 2d 64 75 70 6c 69 )..(delete-dupli
79a0: 63 61 74 65 73 20 72 65 73 75 6c 74 29 29 29 29 cates result))))
79b0: 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ..;;============
79c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
79f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 45 78 ==========.;; Ex
7a00: 74 72 61 63 74 20 6f 64 73 20 66 69 6c 65 20 66 tract ods file f
7a10: 72 6f 6d 20 74 68 65 20 64 62 0a 3b 3b 3d 3d 3d rom the db.;;===
7a20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
7a60: 3d 3d 3d 0a 0a 3b 3b 20 72 75 6e 73 70 61 74 74 ===..;; runspatt
7a70: 20 69 73 20 61 20 63 6f 6d 6d 61 20 64 65 6c 69 is a comma deli
7a80: 6d 69 74 65 64 20 6c 69 73 74 20 6f 66 20 72 75 mited list of ru
7a90: 6e 20 70 61 74 74 65 72 6e 73 0a 3b 3b 20 6b 65 n patterns.;; ke
7aa0: 79 70 61 74 74 2d 61 6c 69 73 74 20 6d 75 73 74 ypatt-alist must
7ab0: 20 63 6f 6e 74 61 69 6e 20 2a 61 6c 6c 2a 20 6b contain *all* k
7ac0: 65 79 73 20 77 69 74 68 20 61 6e 20 61 73 73 6f eys with an asso
7ad0: 63 69 61 74 65 64 20 70 61 74 74 65 72 6e 3a 20 ciated pattern:
7ae0: 27 28 20 28 22 4b 45 59 31 22 20 22 25 22 29 20 '( ("KEY1" "%")
7af0: 2e 2e 20 29 0a 28 64 65 66 69 6e 65 20 28 64 62 .. ).(define (db
7b00: 3a 65 78 74 72 61 63 74 2d 6f 64 73 2d 66 69 6c :extract-ods-fil
7b10: 65 20 64 62 20 6f 75 74 70 75 74 66 69 6c 65 20 e db outputfile
7b20: 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 20 72 75 keypatt-alist ru
7b30: 6e 73 70 61 74 74 29 0a 20 20 28 6c 65 74 2a 20 nspatt). (let*
7b40: 28 28 6b 65 79 73 73 74 72 20 20 28 73 74 72 69 ((keysstr (stri
7b50: 6e 67 2d 69 6e 74 65 72 73 70 65 72 73 65 20 28 ng-intersperse (
7b60: 6d 61 70 20 63 61 72 20 6b 65 79 70 61 74 74 2d map car keypatt-
7b70: 61 6c 69 73 74 29 20 22 2c 22 29 29 0a 09 20 28 alist) ",")).. (
7b80: 6b 65 79 71 72 79 20 20 20 28 73 74 72 69 6e 67 keyqry (string
7b90: 2d 69 6e 74 65 72 73 70 65 72 73 65 20 28 6d 61 -intersperse (ma
7ba0: 70 20 28 6c 61 6d 62 64 61 20 28 70 29 28 63 6f p (lambda (p)(co
7bb0: 6e 63 20 28 63 61 72 20 70 29 20 22 20 6c 69 6b nc (car p) " lik
7bc0: 65 20 3f 20 22 29 29 20 6b 65 79 70 61 74 74 2d e ? ")) keypatt-
7bd0: 61 6c 69 73 74 29 20 22 20 41 4e 44 20 22 29 29 alist) " AND "))
7be0: 0a 09 20 28 74 65 73 74 2d 69 64 73 20 27 28 29 .. (test-ids '()
7bf0: 29 0a 09 20 28 74 65 6d 70 64 69 72 20 20 28 63 ).. (tempdir (c
7c00: 6f 6e 63 20 22 2f 74 6d 70 2f 22 20 28 63 75 72 onc "/tmp/" (cur
7c10: 72 65 6e 74 2d 75 73 65 72 2d 6e 61 6d 65 29 20 rent-user-name)
7c20: 22 2f 22 20 72 75 6e 73 70 61 74 74 20 22 5f 22 "/" runspatt "_"
7c30: 20 28 72 61 6e 64 6f 6d 20 31 30 30 30 30 29 20 (random 10000)
7c40: 22 5f 22 20 28 63 75 72 72 65 6e 74 2d 70 72 6f "_" (current-pro
7c50: 63 65 73 73 2d 69 64 29 29 29 0a 09 20 28 72 75 cess-id))).. (ru
7c60: 6e 73 68 65 61 64 65 72 20 28 61 70 70 65 6e 64 nsheader (append
7c70: 20 28 6c 69 73 74 20 22 52 75 6e 20 49 64 22 20 (list "Run Id"
7c80: 22 52 75 6e 6e 61 6d 65 22 29 0a 09 09 09 20 20 "Runname")....
7c90: 20 20 20 28 6d 61 70 20 63 61 72 20 6b 65 79 70 (map car keyp
7ca0: 61 74 74 2d 61 6c 69 73 74 29 0a 09 09 09 20 20 att-alist)....
7cb0: 20 20 20 28 6c 69 73 74 20 22 54 65 73 74 6e 61 (list "Testna
7cc0: 6d 65 22 20 0a 09 09 09 09 20 20 20 22 49 74 65 me" ..... "Ite
7cd0: 6d 20 50 61 74 68 22 0a 09 09 09 09 20 20 20 22 m Path"..... "
7ce0: 44 65 73 63 72 69 70 74 69 6f 6e 22 0a 09 09 09 Description"....
7cf0: 09 20 20 20 22 53 74 61 74 65 22 0a 09 09 09 09 . "State".....
7d00: 20 20 20 22 53 74 61 74 75 73 22 0a 09 09 09 09 "Status".....
7d10: 20 20 20 22 46 69 6e 61 6c 20 4c 6f 67 22 0a 09 "Final Log"..
7d20: 09 09 09 20 20 20 22 52 75 6e 20 44 75 72 61 74 ... "Run Durat
7d30: 69 6f 6e 22 0a 09 09 09 09 20 20 20 22 57 68 65 ion"..... "Whe
7d40: 6e 20 52 75 6e 22 0a 09 09 09 09 20 20 20 22 54 n Run"..... "T
7d50: 61 67 73 22 0a 09 09 09 09 20 20 20 22 52 75 6e ags"..... "Run
7d60: 20 4f 77 6e 65 72 22 0a 09 09 09 09 20 20 20 22 Owner"..... "
7d70: 43 6f 6d 6d 65 6e 74 22 0a 09 09 09 09 20 20 20 Comment".....
7d80: 22 41 75 74 68 6f 72 22 0a 09 09 09 09 20 20 20 "Author".....
7d90: 22 54 65 73 74 20 4f 77 6e 65 72 22 0a 09 09 09 "Test Owner"....
7da0: 09 20 20 20 22 52 65 76 69 65 77 65 64 22 0a 09 . "Reviewed"..
7db0: 09 09 09 20 20 20 22 44 69 73 6b 66 72 65 65 22 ... "Diskfree"
7dc0: 0a 09 09 09 09 20 20 20 22 55 6e 61 6d 65 22 0a ..... "Uname".
7dd0: 09 09 09 09 20 20 20 22 52 75 6e 64 69 72 22 0a .... "Rundir".
7de0: 09 09 09 09 20 20 20 22 48 6f 73 74 22 0a 09 09 .... "Host"...
7df0: 09 09 20 20 20 22 43 70 75 20 4c 6f 61 64 22 0a .. "Cpu Load".
7e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e20: 20 20 20 22 57 61 72 6e 22 0a 20 20 20 20 20 20 "Warn".
7e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 45 72 "Er
7e50: 72 6f 72 22 29 29 29 0a 09 20 28 72 65 73 75 6c ror"))).. (resul
7e60: 74 73 20 28 6c 69 73 74 20 72 75 6e 73 68 65 61 ts (list runshea
7e70: 64 65 72 29 29 0a 09 20 28 74 65 73 74 64 61 74 der)).. (testdat
7e80: 61 2d 68 65 61 64 65 72 20 28 6c 69 73 74 20 22 a-header (list "
7e90: 52 75 6e 20 49 64 22 20 22 54 65 73 74 6e 61 6d Run Id" "Testnam
7ea0: 65 22 20 22 49 74 65 6d 20 50 61 74 68 22 20 22 e" "Item Path" "
7eb0: 43 61 74 65 67 6f 72 79 22 20 22 56 61 72 69 61 Category" "Varia
7ec0: 62 6c 65 22 20 22 56 61 6c 75 65 22 20 22 45 78 ble" "Value" "Ex
7ed0: 70 65 63 74 65 64 22 20 22 54 6f 6c 22 20 22 55 pected" "Tol" "U
7ee0: 6e 69 74 73 22 20 22 53 74 61 74 75 73 22 20 22 nits" "Status" "
7ef0: 43 6f 6d 6d 65 6e 74 22 29 29 29 0a 20 20 20 20 Comment"))).
7f00: 28 64 65 62 75 67 3a 70 72 69 6e 74 20 32 20 22 (debug:print 2 "
7f10: 55 73 69 6e 67 20 22 20 74 65 6d 70 64 69 72 20 Using " tempdir
7f20: 22 20 66 6f 72 20 63 6f 6e 73 74 72 75 63 74 69 " for constructi
7f30: 6e 67 20 74 68 65 20 6f 64 73 20 66 69 6c 65 22 ng the ods file"
7f40: 29 0a 20 20 20 20 3b 3b 20 22 45 78 70 65 63 74 ). ;; "Expect
7f50: 65 64 20 56 61 6c 75 65 22 0a 20 20 20 20 3b 3b ed Value". ;;
7f60: 20 22 56 61 6c 75 65 20 46 6f 75 6e 64 22 0a 20 "Value Found".
7f70: 20 20 20 3b 3b 20 22 54 6f 6c 65 72 61 6e 63 65 ;; "Tolerance
7f80: 22 0a 20 20 20 20 28 61 70 70 6c 79 20 73 71 6c ". (apply sql
7f90: 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 2d 72 6f ite3:for-each-ro
7fa0: 77 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 w. (lambda (
7fb0: 74 65 73 74 2d 69 64 20 2e 20 62 29 0a 20 20 20 test-id . b).
7fc0: 20 20 20 20 28 73 65 74 21 20 74 65 73 74 2d 69 (set! test-i
7fd0: 64 73 20 28 63 6f 6e 73 20 74 65 73 74 2d 69 64 ds (cons test-id
7fe0: 20 74 65 73 74 2d 69 64 73 29 29 20 20 20 3b 3b test-ids)) ;;
7ff0: 20 74 65 73 74 2d 69 64 20 69 73 20 6e 6f 77 20 test-id is now
8000: 74 65 73 74 6e 61 6d 65 0a 20 20 20 20 20 20 20 testname.
8010: 28 73 65 74 21 20 72 65 73 75 6c 74 73 20 28 61 (set! results (a
8020: 70 70 65 6e 64 20 72 65 73 75 6c 74 73 20 28 6c ppend results (l
8030: 69 73 74 20 62 29 29 29 29 20 3b 3b 20 6e 6f 74 ist b)))) ;; not
8040: 65 2c 20 64 72 6f 70 20 74 68 65 20 74 65 73 74 e, drop the test
8050: 2d 69 64 0a 20 20 20 20 20 64 62 0a 20 20 20 20 -id. db.
8060: 20 28 63 6f 6e 63 20 22 53 45 4c 45 43 54 0a 20 (conc "SELECT.
8070: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 2e 74 t.t
8080: 65 73 74 6e 61 6d 65 2c 72 2e 69 64 2c 72 75 6e estname,r.id,run
8090: 6e 61 6d 65 2c 22 20 6b 65 79 73 73 74 72 20 22 name," keysstr "
80a0: 2c 74 2e 74 65 73 74 6e 61 6d 65 2c 0a 20 20 20 ,t.testname,.
80b0: 20 20 20 20 20 20 20 20 20 20 20 74 2e 69 74 65 t.ite
80c0: 6d 5f 70 61 74 68 2c 74 6d 2e 64 65 73 63 72 69 m_path,tm.descri
80d0: 70 74 69 6f 6e 2c 74 2e 73 74 61 74 65 2c 74 2e ption,t.state,t.
80e0: 73 74 61 74 75 73 2c 0a 20 20 20 20 20 20 20 20 status,.
80f0: 20 20 20 20 20 20 66 69 6e 61 6c 5f 6c 6f 67 66 final_logf
8100: 2c 72 75 6e 5f 64 75 72 61 74 69 6f 6e 2c 20 0a ,run_duration, .
8110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
8120: 72 66 74 69 6d 65 28 27 25 6d 2f 25 64 2f 25 59 rftime('%m/%d/%Y
8130: 20 25 48 3a 25 4d 3a 25 53 27 2c 64 61 74 65 74 %H:%M:%S',datet
8140: 69 6d 65 28 74 2e 65 76 65 6e 74 5f 74 69 6d 65 ime(t.event_time
8150: 2c 27 75 6e 69 78 65 70 6f 63 68 27 29 2c 27 6c ,'unixepoch'),'l
8160: 6f 63 61 6c 74 69 6d 65 27 29 2c 0a 20 20 20 20 ocaltime'),.
8170: 20 20 20 20 20 20 20 20 20 20 74 6d 2e 74 61 67 tm.tag
8180: 73 2c 72 2e 6f 77 6e 65 72 2c 74 2e 63 6f 6d 6d s,r.owner,t.comm
8190: 65 6e 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ent,.
81a0: 20 20 20 61 75 74 68 6f 72 2c 0a 20 20 20 20 20 author,.
81b0: 20 20 20 20 20 20 20 20 20 74 6d 2e 6f 77 6e 65 tm.owne
81c0: 72 2c 72 65 76 69 65 77 65 64 2c 0a 20 20 20 20 r,reviewed,.
81d0: 20 20 20 20 20 20 20 20 20 20 64 69 73 6b 66 72 diskfr
81e0: 65 65 2c 75 6e 61 6d 65 2c 72 75 6e 64 69 72 2c ee,uname,rundir,
81f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 . h
8200: 6f 73 74 2c 63 70 75 6c 6f 61 64 2c 66 69 72 73 ost,cpuload,firs
8210: 74 5f 65 72 72 2c 66 69 72 73 74 5f 77 61 72 6e t_err,first_warn
8220: 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4f . FRO
8230: 4d 20 74 65 73 74 73 20 41 53 20 74 20 49 4e 4e M tests AS t INN
8240: 45 52 20 4a 4f 49 4e 20 72 75 6e 73 20 41 53 20 ER JOIN runs AS
8250: 72 20 4f 4e 20 74 2e 72 75 6e 5f 69 64 3d 72 2e r ON t.run_id=r.
8260: 69 64 20 49 4e 4e 45 52 20 4a 4f 49 4e 20 74 65 id INNER JOIN te
8270: 73 74 5f 6d 65 74 61 20 41 53 20 74 6d 20 4f 4e st_meta AS tm ON
8280: 20 74 6d 2e 74 65 73 74 6e 61 6d 65 3d 74 2e 74 tm.testname=t.t
8290: 65 73 74 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 estname.
82a0: 20 20 20 20 57 48 45 52 45 20 72 75 6e 6e 61 6d WHERE runnam
82b0: 65 20 4c 49 4b 45 20 3f 20 41 4e 44 20 22 20 6b e LIKE ? AND " k
82c0: 65 79 71 72 79 20 22 3b 22 29 0a 20 20 20 20 20 eyqry ";").
82d0: 72 75 6e 73 70 61 74 74 20 28 6d 61 70 20 63 61 runspatt (map ca
82e0: 64 72 20 6b 65 79 70 61 74 74 2d 61 6c 69 73 74 dr keypatt-alist
82f0: 29 29 0a 20 20 20 20 28 73 65 74 21 20 72 65 73 )). (set! res
8300: 75 6c 74 73 20 28 6c 69 73 74 20 28 63 6f 6e 73 ults (list (cons
8310: 20 22 52 75 6e 73 22 20 72 65 73 75 6c 74 73 29 "Runs" results)
8320: 29 29 0a 20 20 20 20 3b 3b 20 6e 6f 77 2c 20 66 )). ;; now, f
8330: 6f 72 20 65 61 63 68 20 74 65 73 74 2c 20 63 6f or each test, co
8340: 6c 6c 65 63 74 20 74 68 65 20 74 65 73 74 5f 64 llect the test_d
8350: 61 74 61 20 69 6e 66 6f 20 61 6e 64 20 61 64 64 ata info and add
8360: 20 61 20 6e 65 77 20 73 68 65 65 74 0a 20 20 20 a new sheet.
8370: 20 28 66 6f 72 2d 65 61 63 68 0a 20 20 20 20 20 (for-each.
8380: 28 6c 61 6d 62 64 61 20 28 74 65 73 74 2d 69 64 (lambda (test-id
8390: 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 ). (let ((
83a0: 74 65 73 74 2d 64 61 74 61 20 28 6c 69 73 74 20 test-data (list
83b0: 74 65 73 74 64 61 74 61 2d 68 65 61 64 65 72 29 testdata-header)
83c0: 29 0a 09 20 20 20 20 20 28 63 75 72 72 2d 74 65 ).. (curr-te
83d0: 73 74 2d 6e 61 6d 65 20 23 66 29 29 0a 09 20 28 st-name #f)).. (
83e0: 73 71 6c 69 74 65 33 3a 66 6f 72 2d 65 61 63 68 sqlite3:for-each
83f0: 2d 72 6f 77 0a 09 20 20 28 6c 61 6d 62 64 61 20 -row.. (lambda
8400: 28 72 75 6e 2d 69 64 20 74 65 73 74 6e 61 6d 65 (run-id testname
8410: 20 69 74 65 6d 2d 70 61 74 68 20 63 61 74 65 67 item-path categ
8420: 6f 72 79 20 76 61 72 69 61 62 6c 65 20 76 61 6c ory variable val
8430: 75 65 20 65 78 70 65 63 74 65 64 20 74 6f 6c 20 ue expected tol
8440: 75 6e 69 74 73 20 73 74 61 74 75 73 20 63 6f 6d units status com
8450: 6d 65 6e 74 29 0a 09 20 20 20 20 28 73 65 74 21 ment).. (set!
8460: 20 63 75 72 72 2d 74 65 73 74 2d 6e 61 6d 65 20 curr-test-name
8470: 74 65 73 74 6e 61 6d 65 29 0a 09 20 20 20 20 28 testname).. (
8480: 73 65 74 21 20 74 65 73 74 2d 64 61 74 61 20 28 set! test-data (
8490: 61 70 70 65 6e 64 20 74 65 73 74 2d 64 61 74 61 append test-data
84a0: 20 28 6c 69 73 74 20 28 6c 69 73 74 20 72 75 6e (list (list run
84b0: 2d 69 64 20 74 65 73 74 6e 61 6d 65 20 69 74 65 -id testname ite
84c0: 6d 2d 70 61 74 68 20 63 61 74 65 67 6f 72 79 20 m-path category
84d0: 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 20 65 variable value e
84e0: 78 70 65 63 74 65 64 20 74 6f 6c 20 75 6e 69 74 xpected tol unit
84f0: 73 20 73 74 61 74 75 73 20 63 6f 6d 6d 65 6e 74 s status comment
8500: 29 29 29 29 29 0a 09 20 20 64 62 20 0a 09 20 20 ))))).. db ..
8510: 3b 3b 20 22 53 45 4c 45 43 54 20 72 75 6e 5f 69 ;; "SELECT run_i
8520: 64 2c 74 65 73 74 6e 61 6d 65 2c 69 74 65 6d 5f d,testname,item_
8530: 70 61 74 68 2c 63 61 74 65 67 6f 72 79 2c 76 61 path,category,va
8540: 72 69 61 62 6c 65 2c 74 64 2e 76 61 6c 75 65 20 riable,td.value
8550: 41 53 20 76 61 6c 75 65 2c 65 78 70 65 63 74 65 AS value,expecte
8560: 64 2c 74 6f 6c 2c 75 6e 69 74 73 2c 74 64 2e 73 d,tol,units,td.s
8570: 74 61 74 75 73 20 41 53 20 73 74 61 74 75 73 2c tatus AS status,
8580: 74 64 2e 63 6f 6d 6d 65 6e 74 20 41 53 20 63 6f td.comment AS co
8590: 6d 6d 65 6e 74 20 46 52 4f 4d 20 74 65 73 74 5f mment FROM test_
85a0: 64 61 74 61 20 41 53 20 74 64 20 49 4e 4e 45 52 data AS td INNER
85b0: 20 4a 4f 49 4e 20 74 65 73 74 73 20 4f 4e 20 74 JOIN tests ON t
85c0: 65 73 74 73 2e 69 64 3d 74 64 2e 74 65 73 74 5f ests.id=td.test_
85d0: 69 64 20 57 48 45 52 45 20 74 65 73 74 5f 69 64 id WHERE test_id
85e0: 3d 3f 3b 22 0a 09 20 20 22 53 45 4c 45 43 54 20 =?;".. "SELECT
85f0: 72 75 6e 5f 69 64 2c 74 65 73 74 6e 61 6d 65 2c run_id,testname,
8600: 69 74 65 6d 5f 70 61 74 68 2c 63 61 74 65 67 6f item_path,catego
8610: 72 79 2c 76 61 72 69 61 62 6c 65 2c 74 64 2e 76 ry,variable,td.v
8620: 61 6c 75 65 20 41 53 20 76 61 6c 75 65 2c 74 64 alue AS value,td
8630: 2e 65 78 70 65 63 74 65 64 2c 74 64 2e 74 6f 6c .expected,td.tol
8640: 2c 74 64 2e 75 6e 69 74 73 2c 74 64 2e 73 74 61 ,td.units,td.sta
8650: 74 75 73 20 41 53 20 73 74 61 74 75 73 2c 74 64 tus AS status,td
8660: 2e 63 6f 6d 6d 65 6e 74 20 41 53 20 63 6f 6d 6d .comment AS comm
8670: 65 6e 74 20 46 52 4f 4d 20 74 65 73 74 5f 64 61 ent FROM test_da
8680: 74 61 20 41 53 20 74 64 20 49 4e 4e 45 52 20 4a ta AS td INNER J
8690: 4f 49 4e 20 74 65 73 74 73 20 4f 4e 20 74 65 73 OIN tests ON tes
86a0: 74 73 2e 69 64 3d 74 64 2e 74 65 73 74 5f 69 64 ts.id=td.test_id
86b0: 20 57 48 45 52 45 20 74 65 73 74 6e 61 6d 65 3d WHERE testname=
86c0: 3f 3b 22 0a 09 20 20 74 65 73 74 2d 69 64 29 0a ?;".. test-id).
86d0: 09 20 28 69 66 20 63 75 72 72 2d 74 65 73 74 2d . (if curr-test-
86e0: 6e 61 6d 65 0a 09 20 20 20 20 20 28 73 65 74 21 name.. (set!
86f0: 20 72 65 73 75 6c 74 73 20 28 61 70 70 65 6e 64 results (append
8700: 20 72 65 73 75 6c 74 73 20 28 6c 69 73 74 20 28 results (list (
8710: 63 6f 6e 73 20 63 75 72 72 2d 74 65 73 74 2d 6e cons curr-test-n
8720: 61 6d 65 20 74 65 73 74 2d 64 61 74 61 29 29 29 ame test-data)))
8730: 29 29 0a 09 20 29 29 0a 20 20 20 20 20 28 64 65 )).. )). (de
8740: 6c 65 74 65 2d 64 75 70 6c 69 63 61 74 65 73 20 lete-duplicates
8750: 74 65 73 74 2d 69 64 73 29 29 0a 20 20 20 20 28 test-ids)). (
8760: 73 79 73 74 65 6d 20 28 63 6f 6e 63 20 22 6d 6b system (conc "mk
8770: 64 69 72 20 2d 70 20 22 20 74 65 6d 70 64 69 72 dir -p " tempdir
8780: 29 29 0a 20 20 20 20 3b 3b 20 28 70 70 20 72 65 )). ;; (pp re
8790: 73 75 6c 74 73 29 0a 20 20 20 20 28 6f 64 73 3a sults). (ods:
87a0: 6c 69 73 74 2d 3e 6f 64 73 20 0a 20 20 20 20 20 list->ods .
87b0: 74 65 6d 70 64 69 72 0a 20 20 20 20 20 28 69 66 tempdir. (if
87c0: 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 (string-match (
87d0: 72 65 67 65 78 70 20 22 5e 5b 2f 7e 5d 2b 2e 2a regexp "^[/~]+.*
87e0: 22 29 20 6f 75 74 70 75 74 66 69 6c 65 29 20 3b ") outputfile) ;
87f0: 3b 20 66 75 6c 6c 20 70 61 74 68 3f 0a 09 20 6f ; full path?.. o
8800: 75 74 70 75 74 66 69 6c 65 0a 09 20 28 62 65 67 utputfile.. (beg
8810: 69 6e 0a 09 20 20 20 28 64 65 62 75 67 3a 70 72 in.. (debug:pr
8820: 69 6e 74 20 30 20 22 57 41 52 4e 49 4e 47 3a 20 int 0 "WARNING:
8830: 70 61 74 68 20 67 69 76 65 6e 2c 20 22 20 6f 75 path given, " ou
8840: 74 70 75 74 66 69 6c 65 20 22 20 69 73 20 72 65 tputfile " is re
8850: 6c 61 74 69 76 65 2c 20 70 72 65 66 69 78 69 6e lative, prefixin
8860: 67 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 64 g with current d
8870: 69 72 65 63 74 6f 72 79 22 29 0a 09 20 20 20 28 irectory").. (
8880: 63 6f 6e 63 20 28 63 75 72 72 65 6e 74 2d 64 69 conc (current-di
8890: 72 65 63 74 6f 72 79 29 20 22 2f 22 20 6f 75 74 rectory) "/" out
88a0: 70 75 74 66 69 6c 65 29 29 29 0a 20 20 20 20 20 putfile))).
88b0: 72 65 73 75 6c 74 73 29 29 29 0a 0a 3b 3b 20 28 results)))..;; (
88c0: 64 62 3a 65 78 74 72 61 63 74 2d 6f 64 73 2d 66 db:extract-ods-f
88d0: 69 6c 65 20 64 62 20 22 6f 75 74 70 75 74 66 69 ile db "outputfi
88e0: 6c 65 2e 6f 64 73 22 20 27 28 28 22 73 79 73 6e le.ods" '(("sysn
88f0: 61 6d 65 22 20 22 25 22 29 28 22 66 73 6e 61 6d ame" "%")("fsnam
8900: 65 22 20 22 25 22 29 28 22 64 61 74 61 70 61 74 e" "%")("datapat
8910: 68 22 20 22 25 22 29 29 20 22 25 22 29 0a h" "%")) "%").