0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 36 2d 32 30 31 31 2c 20 4d 61 74 74 68 65 77 20 6-2011, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 0a 3b 3b 20 0a 3b 3b 20 Welland..;; .;;
0030: 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 This program is
0040: 20 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 made available
0050: 75 6e 64 65 72 20 74 68 65 20 47 4e 55 20 47 50 under the GNU GP
0060: 4c 20 76 65 72 73 69 6f 6e 20 32 2e 30 20 6f 72 L version 2.0 or
0070: 0a 3b 3b 20 20 67 72 65 61 74 65 72 2e 20 53 65 .;; greater. Se
0080: 65 20 74 68 65 20 61 63 63 6f 6d 70 61 6e 79 69 e the accompanyi
0090: 6e 67 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 20 ng file COPYING
00a0: 66 6f 72 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 20 for details..;;
00b0: 0a 3b 3b 20 20 54 68 69 73 20 70 72 6f 67 72 61 .;; This progra
00c0: 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 m is distributed
00d0: 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 WITHOUT ANY WAR
00e0: 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 RANTY; without e
00f0: 76 65 6e 20 74 68 65 0a 3b 3b 20 20 69 6d 70 6c ven the.;; impl
0100: 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 20 ied warranty of
0110: 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 MERCHANTABILITY
0120: 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 or FITNESS FOR A
0130: 20 50 41 52 54 49 43 55 4c 41 52 0a 3b 3b 20 20 PARTICULAR.;;
0140: 50 55 52 50 4f 53 45 2e 0a 0a 3b 3b 20 28 69 6e PURPOSE...;; (in
0150: 63 6c 75 64 65 20 22 63 6f 6d 6d 6f 6e 2e 73 63 clude "common.sc
0160: 6d 22 29 0a 3b 3b 20 28 69 6e 63 6c 75 64 65 20 m").;; (include
0170: 22 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 6f "megatest-versio
0180: 6e 2e 73 63 6d 22 29 0a 0a 28 75 73 65 20 73 71 n.scm")..(use sq
0190: 6c 69 74 65 33 20 73 72 66 69 2d 31 20 70 6f 73 lite3 srfi-1 pos
01a0: 69 78 20 72 65 67 65 78 20 72 65 67 65 78 2d 63 ix regex regex-c
01b0: 61 73 65 20 73 72 66 69 2d 36 39 20 62 61 73 65 ase srfi-69 base
01c0: 36 34 20 66 6f 72 6d 61 74 29 0a 28 69 6d 70 6f 64 format).(impo
01d0: 72 74 20 28 70 72 65 66 69 78 20 73 71 6c 69 74 rt (prefix sqlit
01e0: 65 33 20 73 71 6c 69 74 65 33 3a 29 29 0a 28 69 e3 sqlite3:)).(i
01f0: 6d 70 6f 72 74 20 28 70 72 65 66 69 78 20 62 61 mport (prefix ba
0200: 73 65 36 34 20 62 61 73 65 36 34 3a 29 29 0a 0a se64 base64:))..
0210: 28 64 65 63 6c 61 72 65 20 28 75 73 65 73 20 63 (declare (uses c
0220: 6f 6d 6d 6f 6e 29 29 0a 28 64 65 63 6c 61 72 65 ommon)).(declare
0230: 20 28 75 73 65 73 20 6d 65 67 61 74 65 73 74 2d (uses megatest-
0240: 76 65 72 73 69 6f 6e 29 29 0a 28 64 65 63 6c 61 version)).(decla
0250: 72 65 20 28 75 73 65 73 20 6d 61 72 67 73 29 29 re (uses margs))
0260: 0a 28 64 65 63 6c 61 72 65 20 28 75 73 65 73 20 .(declare (uses
0270: 72 75 6e 73 29 29 0a 28 64 65 63 6c 61 72 65 20 runs)).(declare
0280: 28 75 73 65 73 20 6c 61 75 6e 63 68 29 29 0a 28 (uses launch)).(
0290: 64 65 63 6c 61 72 65 20 28 75 73 65 73 20 73 65 declare (uses se
02a0: 72 76 65 72 29 29 0a 0a 28 69 6e 63 6c 75 64 65 rver))..(include
02b0: 20 22 63 6f 6d 6d 6f 6e 5f 72 65 63 6f 72 64 73 "common_records
02c0: 2e 73 63 6d 22 29 0a 28 69 6e 63 6c 75 64 65 20 .scm").(include
02d0: 22 6b 65 79 5f 72 65 63 6f 72 64 73 2e 73 63 6d "key_records.scm
02e0: 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 64 62 5f ").(include "db_
02f0: 72 65 63 6f 72 64 73 2e 73 63 6d 22 29 0a 0a 28 records.scm")..(
0300: 64 65 66 69 6e 65 20 68 65 6c 70 20 28 63 6f 6e define help (con
0310: 63 20 22 0a 4d 65 67 61 74 65 73 74 2c 20 64 6f c ".Megatest, do
0320: 63 75 6d 65 6e 74 61 74 69 6f 6e 20 61 74 20 68 cumentation at h
0330: 74 74 70 3a 2f 2f 77 77 77 2e 6b 69 61 74 6f 61 ttp://www.kiatoa
0340: 2e 63 6f 6d 2f 66 6f 73 73 69 6c 73 2f 6d 65 67 .com/fossils/meg
0350: 61 74 65 73 74 0a 20 20 76 65 72 73 69 6f 6e 20 atest. version
0360: 22 20 6d 65 67 61 74 65 73 74 2d 76 65 72 73 69 " megatest-versi
0370: 6f 6e 20 22 0a 20 20 6c 69 63 65 6e 73 65 20 47 on ". license G
0380: 50 4c 2c 20 43 6f 70 79 72 69 67 68 74 20 4d 61 PL, Copyright Ma
0390: 74 74 20 57 65 6c 6c 61 6e 64 20 32 30 30 36 2d tt Welland 2006-
03a0: 32 30 31 31 0a 0a 55 73 61 67 65 3a 20 6d 65 67 2011..Usage: meg
03b0: 61 74 65 73 74 20 5b 6f 70 74 69 6f 6e 73 5d 0a atest [options].
03c0: 20 20 2d 68 20 20 20 20 20 20 20 20 20 20 20 20 -h
03d0: 20 20 20 20 20 20 20 20 20 20 3a 20 74 68 69 73 : this
03e0: 20 68 65 6c 70 0a 0a 50 72 6f 63 65 73 73 20 61 help..Process a
03f0: 6e 64 20 74 65 73 74 20 72 75 6e 6e 69 6e 67 0a nd test running.
0400: 20 20 2d 72 75 6e 61 6c 6c 20 20 20 20 20 20 20 -runall
0410: 20 20 20 20 20 20 20 20 20 20 3a 20 72 75 6e 20 : run
0420: 61 6c 6c 20 74 65 73 74 73 20 74 68 61 74 20 61 all tests that a
0430: 72 65 20 6e 6f 74 20 73 74 61 74 65 20 43 4f 4d re not state COM
0440: 50 4c 45 54 45 44 20 61 6e 64 20 73 74 61 74 75 PLETED and statu
0450: 73 20 50 41 53 53 2c 20 0a 20 20 20 20 20 20 20 s PASS, .
0460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0470: 20 20 20 20 20 43 48 45 43 4b 20 6f 72 20 4b 49 CHECK or KI
0480: 4c 4c 45 44 0a 20 20 2d 72 75 6e 74 65 73 74 73 LLED. -runtests
0490: 20 74 73 74 31 2c 74 73 74 32 20 2e 2e 2e 20 3a tst1,tst2 ... :
04a0: 20 72 75 6e 20 74 65 73 74 73 0a 0a 52 75 6e 20 run tests..Run
04b0: 73 74 61 74 75 73 20 75 70 64 61 74 65 73 20 28 status updates (
04c0: 74 68 65 73 65 20 72 65 71 75 69 72 65 20 74 68 these require th
04d0: 61 74 20 79 6f 75 20 61 72 65 20 69 6e 20 61 20 at you are in a
04e0: 74 65 73 74 20 64 69 72 65 63 74 6f 72 79 0a 20 test directory.
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0500: 20 20 20 61 6e 64 20 79 6f 75 20 68 61 76 65 20 and you have
0510: 73 6f 75 72 63 65 64 20 74 68 65 20 5c 22 6d 65 sourced the \"me
0520: 67 61 74 65 73 74 2e 63 73 68 5c 22 20 6f 72 0a gatest.csh\" or.
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0540: 20 20 20 20 5c 22 6d 65 67 61 74 65 73 74 2e 73 \"megatest.s
0550: 68 5c 22 20 66 69 6c 65 2e 29 0a 20 20 2d 73 74 h\" file.). -st
0560: 65 70 20 73 74 65 70 6e 61 6d 65 0a 20 20 2d 74 ep stepname. -t
0570: 65 73 74 2d 73 74 61 74 75 73 20 20 20 20 20 20 est-status
0580: 20 20 20 20 20 20 3a 20 73 65 74 20 74 68 65 20 : set the
0590: 73 74 61 74 65 20 61 6e 64 20 73 74 61 74 75 73 state and status
05a0: 20 6f 66 20 61 20 74 65 73 74 20 28 75 73 65 20 of a test (use
05b0: 3a 73 74 61 74 65 20 61 6e 64 20 3a 73 74 61 74 :state and :stat
05c0: 75 73 29 0a 20 20 2d 73 65 74 6c 6f 67 20 6c 6f us). -setlog lo
05d0: 67 66 6e 61 6d 65 20 20 20 20 20 20 20 20 3a 20 gfname :
05e0: 73 65 74 20 74 68 65 20 70 61 74 68 2f 66 69 6c set the path/fil
05f0: 65 6e 61 6d 65 20 74 6f 20 74 68 65 20 66 69 6e ename to the fin
0600: 61 6c 20 6c 6f 67 20 72 65 6c 61 74 69 76 65 20 al log relative
0610: 74 6f 20 74 68 65 20 74 65 73 74 0a 20 20 20 20 to the test.
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0630: 20 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 director
0640: 79 2e 20 6d 61 79 20 62 65 20 75 73 65 64 20 77 y. may be used w
0650: 69 74 68 20 2d 74 65 73 74 2d 73 74 61 74 75 73 ith -test-status
0660: 0a 20 20 2d 73 65 74 2d 74 6f 70 6c 6f 67 20 6c . -set-toplog l
0670: 6f 67 66 6e 61 6d 65 20 20 20 20 3a 20 73 65 74 ogfname : set
0680: 20 74 68 65 20 6f 76 65 72 61 6c 6c 20 6c 6f 67 the overall log
0690: 20 66 6f 72 20 61 20 73 75 69 74 65 20 6f 66 20 for a suite of
06a0: 73 75 62 2d 74 65 73 74 73 0a 20 20 2d 73 75 6d sub-tests. -sum
06b0: 6d 61 72 69 7a 65 2d 69 74 65 6d 73 20 20 20 20 marize-items
06c0: 20 20 20 20 3a 20 66 6f 72 20 61 6e 20 69 74 65 : for an ite
06d0: 6d 69 7a 65 64 20 74 65 73 74 20 63 72 65 61 74 mized test creat
06e0: 65 20 61 20 73 75 6d 6d 61 72 79 20 68 74 6d 6c e a summary html
06f0: 20 0a 20 20 2d 6d 20 63 6f 6d 6d 65 6e 74 20 20 . -m comment
0700: 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e : in
0710: 73 65 72 74 20 61 20 63 6f 6d 6d 65 6e 74 20 66 sert a comment f
0720: 6f 72 20 74 68 69 73 20 74 65 73 74 0a 0a 52 75 or this test..Ru
0730: 6e 20 64 61 74 61 0a 20 20 2d 74 61 72 67 65 74 n data. -target
0740: 20 6b 65 79 31 2f 6b 65 79 32 2f 2e 2e 2e 20 20 key1/key2/...
0750: 20 3a 20 72 75 6e 20 66 6f 72 20 6b 65 79 31 2c : run for key1,
0760: 20 6b 65 79 32 2c 20 65 74 63 2e 0a 20 20 2d 72 key2, etc.. -r
0770: 65 71 74 61 72 67 20 6b 65 79 31 2f 6b 65 79 32 eqtarg key1/key2
0780: 2f 2e 2e 2e 20 20 3a 20 72 75 6e 20 66 6f 72 20 /... : run for
0790: 6b 65 79 31 2c 20 6b 65 79 32 2c 20 65 74 63 2e key1, key2, etc.
07a0: 20 62 75 74 20 6b 65 79 31 2f 6b 65 79 32 20 6d but key1/key2 m
07b0: 75 73 74 20 62 65 20 69 6e 20 72 75 6e 63 6f 6e ust be in runcon
07c0: 66 69 67 0a 20 20 3a 72 75 6e 6e 61 6d 65 20 20 fig. :runname
07d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 :
07e0: 72 65 71 75 69 72 65 64 2c 20 6e 61 6d 65 20 66 required, name f
07f0: 6f 72 20 74 68 69 73 20 70 61 72 74 69 63 75 6c or this particul
0800: 61 72 20 74 65 73 74 20 72 75 6e 0a 20 20 3a 73 ar test run. :s
0810: 74 61 74 65 20 20 20 20 20 20 20 20 20 20 20 20 tate
0820: 20 20 20 20 20 20 3a 20 72 65 71 75 69 72 65 64 : required
0830: 20 69 66 20 75 70 64 61 74 69 6e 67 20 73 74 65 if updating ste
0840: 70 20 73 74 61 74 65 3b 20 65 2e 67 2e 20 73 74 p state; e.g. st
0850: 61 72 74 2c 20 65 6e 64 2c 20 63 6f 6d 70 6c 65 art, end, comple
0860: 74 65 64 0a 20 20 3a 73 74 61 74 75 73 20 20 20 ted. :status
0870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 :
0880: 72 65 71 75 69 72 65 64 20 69 66 20 75 70 64 61 required if upda
0890: 74 69 6e 67 20 73 74 65 70 20 73 74 61 74 75 73 ting step status
08a0: 3b 20 65 2e 67 2e 20 70 61 73 73 2c 20 66 61 69 ; e.g. pass, fai
08b0: 6c 2c 20 6e 2f 61 0a 0a 56 61 6c 75 65 73 20 61 l, n/a..Values a
08c0: 6e 64 20 72 65 63 6f 72 64 20 65 72 72 6f 72 73 nd record errors
08d0: 20 61 6e 64 20 77 61 72 6e 69 6e 67 73 0a 20 20 and warnings.
08e0: 2d 73 65 74 2d 76 61 6c 75 65 73 20 20 20 20 20 -set-values
08f0: 20 20 20 20 20 20 20 20 3a 20 75 70 64 61 74 65 : update
0900: 20 6f 72 20 73 65 74 20 76 61 6c 75 65 73 20 69 or set values i
0910: 6e 20 74 68 65 20 6d 65 67 61 74 65 73 74 20 64 n the megatest d
0920: 62 20 0a 20 20 3a 63 61 74 65 67 6f 72 79 20 20 b . :category
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 73 : s
0940: 65 74 20 74 68 65 20 63 61 74 65 67 6f 72 79 20 et the category
0950: 66 69 65 6c 64 20 28 6f 70 74 69 6f 6e 61 6c 29 field (optional)
0960: 0a 20 20 3a 76 61 72 69 61 62 6c 65 20 20 20 20 . :variable
0970: 20 20 20 20 20 20 20 20 20 20 20 3a 20 73 65 74 : set
0980: 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 6e 61 the variable na
0990: 6d 65 20 28 6f 70 74 69 6f 6e 61 6c 29 0a 20 20 me (optional).
09a0: 3a 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 :value
09b0: 20 20 20 20 20 20 20 20 3a 20 76 61 6c 75 65 20 : value
09c0: 6d 65 61 73 75 72 65 64 20 28 72 65 71 75 69 72 measured (requir
09d0: 65 64 29 0a 20 20 3a 65 78 70 65 63 74 65 64 20 ed). :expected
09e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 :
09f0: 76 61 6c 75 65 20 65 78 70 65 63 74 65 64 20 28 value expected (
0a00: 72 65 71 75 69 72 65 64 29 0a 20 20 3a 74 6f 6c required). :tol
0a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a20: 20 20 20 20 3a 20 7c 76 61 6c 75 65 2d 65 78 70 : |value-exp
0a30: 65 63 74 7c 20 3c 3d 20 74 6f 6c 20 28 72 65 71 ect| <= tol (req
0a40: 75 69 72 65 64 2c 20 63 61 6e 20 62 65 20 3c 2c uired, can be <,
0a50: 20 3e 2c 20 3e 3d 2c 20 3c 3d 20 6f 72 20 6e 75 >, >=, <= or nu
0a60: 6d 62 65 72 29 0a 20 20 3a 75 6e 69 74 73 20 20 mber). :units
0a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a80: 3a 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 75 6e : name of the un
0a90: 69 74 73 20 66 6f 72 20 76 61 6c 75 65 2c 20 65 its for value, e
0aa0: 78 70 65 63 74 65 64 5f 76 61 6c 75 65 20 65 74 xpected_value et
0ab0: 63 2e 20 28 6f 70 74 69 6f 6e 61 6c 29 0a 0a 41 c. (optional)..A
0ac0: 72 62 69 74 72 61 72 79 20 74 65 73 74 20 64 61 rbitrary test da
0ad0: 74 61 20 6c 6f 61 64 69 6e 67 0a 20 20 2d 6c 6f ta loading. -lo
0ae0: 61 64 2d 74 65 73 74 2d 64 61 74 61 20 20 20 20 ad-test-data
0af0: 20 20 20 20 20 3a 20 72 65 61 64 20 74 65 73 74 : read test
0b00: 20 73 70 65 63 69 66 69 63 20 64 61 74 61 20 66 specific data f
0b10: 6f 72 20 73 74 6f 72 61 67 65 20 69 6e 20 74 68 or storage in th
0b20: 65 20 74 65 73 74 5f 64 61 74 61 20 74 61 62 6c e test_data tabl
0b30: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.
0b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 72 fr
0b50: 6f 6d 20 73 74 61 6e 64 61 72 64 20 69 6e 2e 20 om standard in.
0b60: 45 61 63 68 20 6c 69 6e 65 20 69 73 20 63 6f 6d Each line is com
0b70: 6d 61 20 64 65 6c 69 6d 69 74 65 64 20 77 69 74 ma delimited wit
0b80: 68 20 66 6f 75 72 0a 20 20 20 20 20 20 20 20 20 h four.
0b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ba0: 20 20 20 66 69 65 6c 64 73 20 63 61 74 65 67 6f fields catego
0bb0: 72 79 2c 76 61 72 69 61 62 6c 65 2c 76 61 6c 75 ry,variable,valu
0bc0: 65 2c 63 6f 6d 6d 65 6e 74 0a 0a 51 75 65 72 69 e,comment..Queri
0bd0: 65 73 0a 20 20 2d 6c 69 73 74 2d 72 75 6e 73 20 es. -list-runs
0be0: 70 61 74 74 20 20 20 20 20 20 20 20 20 3a 20 6c patt : l
0bf0: 69 73 74 20 72 75 6e 73 20 6d 61 74 63 68 69 6e ist runs matchin
0c00: 67 20 70 61 74 74 65 72 6e 20 5c 22 70 61 74 74 g pattern \"patt
0c10: 5c 22 2c 20 25 20 69 73 20 74 68 65 20 77 69 6c \", % is the wil
0c20: 64 63 61 72 64 0a 20 20 2d 74 65 73 74 70 61 74 dcard. -testpat
0c30: 74 20 70 61 74 74 20 20 20 20 20 20 20 20 20 20 t patt
0c40: 3a 20 69 6e 20 6c 69 73 74 2d 72 75 6e 73 20 73 : in list-runs s
0c50: 68 6f 77 20 6f 6e 6c 79 20 74 68 65 73 65 20 74 how only these t
0c60: 65 73 74 73 2c 20 25 20 69 73 20 74 68 65 20 77 ests, % is the w
0c70: 69 6c 64 63 61 72 64 0a 20 20 2d 69 74 65 6d 70 ildcard. -itemp
0c80: 61 74 74 20 70 61 74 74 20 20 20 20 20 20 20 20 att patt
0c90: 20 20 3a 20 69 6e 20 6c 69 73 74 2d 72 75 6e 73 : in list-runs
0ca0: 20 73 68 6f 77 20 6f 6e 6c 79 20 74 65 73 74 73 show only tests
0cb0: 20 77 69 74 68 20 69 74 65 6d 73 20 74 68 61 74 with items that
0cc0: 20 6d 61 74 63 68 20 70 61 74 74 0a 20 20 2d 73 match patt. -s
0cd0: 68 6f 77 6b 65 79 73 20 20 20 20 20 20 20 20 20 howkeys
0ce0: 20 20 20 20 20 20 3a 20 73 68 6f 77 20 74 68 65 : show the
0cf0: 20 6b 65 79 73 20 75 73 65 64 20 69 6e 20 74 68 keys used in th
0d00: 69 73 20 6d 65 67 61 74 65 73 74 20 73 65 74 75 is megatest setu
0d10: 70 0a 20 20 2d 74 65 73 74 2d 70 61 74 68 73 20 p. -test-paths
0d20: 74 61 72 67 70 61 74 74 20 20 20 20 3a 20 67 65 targpatt : ge
0d30: 74 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e t the most recen
0d40: 74 20 74 65 73 74 20 70 61 74 68 28 73 29 20 6d t test path(s) m
0d50: 61 74 63 68 69 6e 67 20 74 61 72 67 70 61 74 74 atching targpatt
0d60: 20 65 2e 67 2e 20 25 2f 25 2e 2e 2e 20 0a 20 20 e.g. %/%... .
0d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d80: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e return
0d90: 73 20 6c 69 73 74 20 73 6f 72 74 65 64 20 62 79 s list sorted by
0da0: 20 61 67 65 20 61 73 63 65 6e 64 69 6e 67 2c 20 age ascending,
0db0: 73 65 65 20 65 78 61 6d 70 6c 65 73 20 62 65 6c see examples bel
0dc0: 6f 77 0a 0a 4d 69 73 63 20 0a 20 20 2d 66 6f 72 ow..Misc . -for
0dd0: 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ce
0de0: 20 20 20 20 3a 20 6f 76 65 72 72 69 64 65 20 73 : override s
0df0: 6f 6d 65 20 63 68 65 63 6b 73 0a 20 20 2d 72 65 ome checks. -re
0e00: 6d 6f 76 65 2d 72 75 6e 73 20 20 20 20 20 20 20 move-runs
0e10: 20 20 20 20 20 3a 20 72 65 6d 6f 76 65 20 74 68 : remove th
0e20: 65 20 64 61 74 61 20 66 6f 72 20 61 20 72 75 6e e data for a run
0e30: 2c 20 72 65 71 75 69 72 65 73 20 61 6c 6c 20 66 , requires all f
0e40: 69 65 6c 64 73 20 62 65 20 73 70 65 63 69 66 69 ields be specifi
0e50: 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ed.
0e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 a
0e70: 6e 64 20 3a 72 75 6e 6e 61 6d 65 20 2c 2d 74 65 nd :runname ,-te
0e80: 73 74 70 61 74 74 20 61 6e 64 20 2d 69 74 65 6d stpatt and -item
0e90: 70 61 74 74 0a 20 20 20 20 20 20 20 20 20 20 20 patt.
0ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0eb0: 20 61 6e 64 20 2d 74 65 73 74 70 61 74 74 0a 20 and -testpatt.
0ec0: 20 2d 72 65 72 75 6e 20 46 41 49 4c 2c 57 41 52 -rerun FAIL,WAR
0ed0: 4e 2e 2e 2e 20 20 20 20 20 3a 20 72 65 2d 72 75 N... : re-ru
0ee0: 6e 20 69 66 20 63 61 6c 6c 65 64 20 6f 6e 20 61 n if called on a
0ef0: 20 74 65 73 74 20 74 68 61 74 20 70 72 65 76 69 test that previ
0f00: 6f 75 73 6c 79 20 72 61 6e 20 28 6e 75 6c 6c 69 ously ran (nulli
0f10: 66 69 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 fied.
0f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f30: 20 69 66 20 2d 6b 65 65 70 67 6f 69 6e 67 20 69 if -keepgoing i
0f40: 73 20 61 6c 73 6f 20 73 70 65 63 69 66 69 65 64 s also specified
0f50: 29 0a 20 20 2d 72 65 62 75 69 6c 64 2d 64 62 20 ). -rebuild-db
0f60: 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 62 72 : br
0f70: 69 6e 67 20 74 68 65 20 64 61 74 61 62 61 73 65 ing the database
0f80: 20 73 63 68 65 6d 61 20 75 70 20 74 6f 20 64 61 schema up to da
0f90: 74 65 0a 20 20 2d 72 6f 6c 6c 75 70 20 20 20 20 te. -rollup
0fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 66 : f
0fb0: 69 6c 6c 20 72 75 6e 20 28 73 65 74 20 62 79 20 ill run (set by
0fc0: 3a 72 75 6e 6e 61 6d 65 29 20 20 77 69 74 68 20 :runname) with
0fd0: 6c 61 74 65 73 74 20 74 65 73 74 28 73 29 20 66 latest test(s) f
0fe0: 72 6f 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 rom.
0ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1000: 70 72 69 6f 72 20 72 75 6e 73 20 77 69 74 68 20 prior runs with
1010: 73 61 6d 65 20 6b 65 79 73 0a 20 20 2d 75 70 64 same keys. -upd
1020: 61 74 65 2d 6d 65 74 61 20 20 20 20 20 20 20 20 ate-meta
1030: 20 20 20 20 3a 20 75 70 64 61 74 65 20 74 68 65 : update the
1040: 20 74 65 73 74 73 20 6d 65 74 61 64 61 74 61 20 tests metadata
1050: 66 6f 72 20 61 6c 6c 20 74 65 73 74 73 0a 20 20 for all tests.
1060: 2d 65 6e 76 32 66 69 6c 65 20 66 6e 61 6d 65 20 -env2file fname
1070: 20 20 20 20 20 20 20 20 3a 20 77 72 69 74 65 20 : write
1080: 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 the environment
1090: 74 6f 20 66 6e 61 6d 65 2e 63 73 68 20 61 6e 64 to fname.csh and
10a0: 20 66 6e 61 6d 65 2e 73 68 0a 20 20 2d 73 65 74 fname.sh. -set
10b0: 76 61 72 73 20 56 41 52 31 3d 76 61 6c 31 2c 56 vars VAR1=val1,V
10c0: 41 52 32 3d 76 61 6c 32 20 3a 20 41 64 64 20 65 AR2=val2 : Add e
10d0: 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 nvironment varia
10e0: 62 6c 65 73 20 74 6f 20 61 20 72 75 6e 20 4e 42 bles to a run NB
10f0: 2f 2f 20 74 68 65 73 65 20 61 72 65 0a 20 20 20 // these are.
1100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 76 ov
1120: 65 72 77 72 69 74 74 65 6e 20 62 79 20 76 61 6c erwritten by val
1130: 75 65 73 20 73 65 74 20 69 6e 20 63 6f 6e 66 69 ues set in confi
1140: 67 20 66 69 6c 65 73 2e 0a 20 20 2d 61 72 63 68 g files.. -arch
1150: 69 76 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ive
1160: 20 20 20 3a 20 61 72 63 68 69 76 65 20 74 65 73 : archive tes
1170: 74 73 2c 20 75 73 65 20 2d 74 61 72 67 65 74 2c ts, use -target,
1180: 20 3a 72 75 6e 6e 61 6d 65 2c 20 2d 69 74 65 6d :runname, -item
1190: 70 61 74 74 20 61 6e 64 20 2d 74 65 73 74 70 61 patt and -testpa
11a0: 74 74 0a 20 20 2d 73 65 72 76 65 72 20 20 20 20 tt. -server
11b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 73 : s
11c0: 74 61 72 74 20 74 68 65 20 73 65 72 76 65 72 20 tart the server
11d0: 28 72 65 64 75 63 65 73 20 63 6f 6e 74 65 6e 74 (reduces content
11e0: 69 6f 6e 20 6f 6e 20 6d 65 67 61 74 65 73 74 2e ion on megatest.
11f0: 64 62 29 0a 0a 53 70 72 65 61 64 73 68 65 65 74 db)..Spreadsheet
1200: 20 67 65 6e 65 72 61 74 69 6f 6e 0a 20 20 2d 65 generation. -e
1210: 78 74 72 61 63 74 2d 6f 64 73 20 66 6e 61 6d 65 xtract-ods fname
1220: 2e 6f 64 73 20 20 3a 20 65 78 74 72 61 63 74 20 .ods : extract
1230: 61 6e 20 6f 70 65 6e 20 64 6f 63 75 6d 65 6e 74 an open document
1240: 20 73 70 72 65 61 64 73 68 65 65 74 20 66 72 6f spreadsheet fro
1250: 6d 20 74 68 65 20 64 61 74 61 62 61 73 65 0a 20 m the database.
1260: 20 2d 70 61 74 68 6d 6f 64 20 70 61 74 68 20 20 -pathmod path
1270: 20 20 20 20 20 20 20 20 20 3a 20 69 6e 73 65 72 : inser
1280: 74 20 70 61 74 68 2c 20 69 2e 65 2e 20 70 61 74 t path, i.e. pat
1290: 68 2f 72 75 6e 61 6d 65 2f 69 74 65 6d 70 61 74 h/runame/itempat
12a0: 68 2f 6c 6f 67 66 69 6c 65 2e 68 74 6d 6c 0a 20 h/logfile.html.
12b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
12c0: 20 20 20 20 20 20 20 20 20 20 20 77 69 6c 6c 20 will
12d0: 63 6c 65 61 72 20 74 68 65 20 66 69 65 6c 64 20 clear the field
12e0: 69 66 20 6e 6f 20 72 75 6e 64 69 72 2f 74 65 73 if no rundir/tes
12f0: 74 6e 61 6d 65 2f 69 74 65 6d 70 61 74 68 2f 6c tname/itempath/l
1300: 6f 67 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 ogfile.
1310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1320: 20 20 20 69 66 20 69 74 20 63 6f 6e 74 61 69 6e if it contain
1330: 73 20 66 6f 72 77 61 72 64 20 73 6c 61 73 68 65 s forward slashe
1340: 73 20 74 68 65 20 70 61 74 68 20 77 69 6c 6c 20 s the path will
1350: 62 65 20 63 6f 6e 76 65 72 74 65 64 0a 20 20 20 be converted.
1360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1370: 20 20 20 20 20 20 20 20 20 74 6f 20 77 69 6e 64 to wind
1380: 6f 77 73 20 73 74 79 6c 65 0a 0a 48 65 6c 70 65 ows style..Helpe
1390: 72 73 20 28 74 68 65 73 65 20 6f 6e 6c 79 20 61 rs (these only a
13a0: 70 70 6c 79 20 69 6e 20 74 65 73 74 20 72 75 6e pply in test run
13b0: 20 6d 6f 64 65 29 0a 20 20 2d 72 75 6e 73 74 65 mode). -runste
13c0: 70 20 73 74 65 70 6e 61 6d 65 20 20 2e 2e 2e 20 p stepname ...
13d0: 20 3a 20 74 61 6b 65 20 72 65 6d 61 69 6e 69 6e : take remainin
13e0: 67 20 70 61 72 61 6d 73 20 61 73 20 63 6f 6d 61 g params as coma
13f0: 6e 64 20 61 6e 64 20 65 78 65 63 75 74 65 20 61 nd and execute a
1400: 73 20 73 74 65 70 6e 61 6d 65 0a 20 20 20 20 20 s stepname.
1410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1420: 20 20 20 20 20 20 20 6c 6f 67 20 77 69 6c 6c 20 log will
1430: 62 65 20 69 6e 20 73 74 65 70 6e 61 6d 65 2e 6c be in stepname.l
1440: 6f 67 2e 20 42 65 73 74 20 74 6f 20 70 75 74 20 og. Best to put
1450: 63 6f 6d 6d 61 6e 64 20 69 6e 20 71 75 6f 74 65 command in quote
1460: 73 0a 20 20 2d 6c 6f 67 70 72 6f 20 66 69 6c 65 s. -logpro file
1470: 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 77 69 : wi
1480: 74 68 20 2d 65 78 65 63 20 61 70 70 6c 79 20 6c th -exec apply l
1490: 6f 67 70 72 6f 20 66 69 6c 65 20 74 6f 20 73 74 ogpro file to st
14a0: 65 70 6e 61 6d 65 2e 6c 6f 67 2c 20 63 72 65 61 epname.log, crea
14b0: 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 tes.
14c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14d0: 73 74 65 70 6e 61 6d 65 2e 68 74 6d 6c 20 61 6e stepname.html an
14e0: 64 20 73 65 74 73 20 6c 6f 67 20 74 6f 20 73 61 d sets log to sa
14f0: 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 me.
1500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
1510: 66 20 75 73 69 6e 67 20 6d 61 6b 65 20 75 73 65 f using make use
1520: 20 73 74 65 70 6e 61 6d 65 5f 6c 6f 67 70 72 6f stepname_logpro
1530: 2e 6c 6f 67 20 61 73 20 79 6f 75 72 20 74 61 72 .log as your tar
1540: 67 65 74 0a 0a 45 78 61 6d 70 6c 65 73 0a 0a 23 get..Examples..#
1550: 20 47 65 74 20 74 65 73 74 20 70 61 74 68 73 20 Get test paths
1560: 0a 6d 65 67 61 74 65 73 74 20 2d 74 65 73 74 2d .megatest -test-
1570: 70 61 74 68 73 20 2d 74 61 72 67 65 74 20 75 62 paths -target ub
1580: 75 6e 74 75 2f 6e 25 2f 6e 6f 25 20 3a 72 75 6e untu/n%/no% :run
1590: 6e 61 6d 65 20 77 34 39 25 20 2d 74 65 73 74 70 name w49% -testp
15a0: 61 74 74 20 74 65 73 74 5f 6d 74 25 0a 0a 43 61 att test_mt%..Ca
15b0: 6c 6c 65 64 20 61 73 20 22 20 28 73 74 72 69 6e lled as " (strin
15c0: 67 2d 69 6e 74 65 72 73 70 65 72 73 65 20 28 61 g-intersperse (a
15d0: 72 67 76 29 20 22 20 22 29 29 29 0a 0a 3b 3b 20 rgv) " ")))..;;
15e0: 20 2d 67 75 69 20 20 20 20 20 20 20 20 20 20 20 -gui
15f0: 20 20 20 20 20 20 20 20 20 3a 20 73 74 61 72 74 : start
1600: 20 61 20 67 75 69 20 69 6e 74 65 72 66 61 63 65 a gui interface
1610: 0a 3b 3b 20 20 2d 63 6f 6e 66 69 67 20 66 6e 61 .;; -config fna
1620: 6d 65 20 20 20 20 20 20 20 20 20 20 20 3a 20 6f me : o
1630: 76 65 72 72 69 64 65 20 74 68 65 20 72 75 6e 63 verride the runc
1640: 6f 6e 66 69 67 20 66 69 6c 65 20 77 69 74 68 20 onfig file with
1650: 66 6e 61 6d 65 0a 0a 3b 3b 20 70 72 6f 63 65 73 fname..;; proces
1660: 73 20 61 72 67 73 0a 28 64 65 66 69 6e 65 20 72 s args.(define r
1670: 65 6d 61 72 67 73 20 28 61 72 67 73 3a 67 65 74 emargs (args:get
1680: 2d 61 72 67 73 20 0a 09 09 20 28 61 72 67 76 29 -args ... (argv)
1690: 0a 09 09 20 28 6c 69 73 74 20 20 22 2d 72 75 6e ... (list "-run
16a0: 74 65 73 74 73 22 20 20 3b 3b 20 72 75 6e 20 61 tests" ;; run a
16b0: 20 73 70 65 63 69 66 69 63 20 74 65 73 74 0a 09 specific test..
16c0: 09 09 22 2d 63 6f 6e 66 69 67 22 20 20 20 20 3b .."-config" ;
16d0: 3b 20 6f 76 65 72 72 69 64 65 20 74 68 65 20 63 ; override the c
16e0: 6f 6e 66 69 67 20 66 69 6c 65 20 6e 61 6d 65 0a onfig file name.
16f0: 09 09 09 22 2d 65 78 65 63 75 74 65 22 20 20 20 ..."-execute"
1700: 3b 3b 20 72 75 6e 20 74 68 65 20 63 6f 6d 6d 61 ;; run the comma
1710: 6e 64 20 65 6e 63 6f 64 65 64 20 69 6e 20 74 68 nd encoded in th
1720: 65 20 62 61 73 65 36 34 20 70 61 72 61 6d 65 74 e base64 paramet
1730: 65 72 0a 09 09 09 22 2d 73 74 65 70 22 0a 09 09 er...."-step"...
1740: 09 22 3a 72 75 6e 6e 61 6d 65 22 20 20 20 0a 09 .":runname" ..
1750: 09 09 22 2d 74 61 72 67 65 74 22 0a 09 09 09 22 .."-target"...."
1760: 2d 72 65 71 74 61 72 67 22 0a 09 09 09 22 3a 69 -reqtarg"....":i
1770: 74 65 6d 22 0a 09 09 09 22 3a 72 75 6e 6e 61 6d tem"....":runnam
1780: 65 22 20 20 20 0a 09 09 09 22 3a 73 74 61 74 65 e" ....":state
1790: 22 20 20 0a 09 09 09 22 3a 73 74 61 74 75 73 22 " ....":status"
17a0: 0a 09 09 09 22 2d 6c 69 73 74 2d 72 75 6e 73 22 ...."-list-runs"
17b0: 0a 09 09 09 22 2d 74 65 73 74 70 61 74 74 22 20 ...."-testpatt"
17c0: 0a 09 09 09 22 2d 69 74 65 6d 70 61 74 74 22 0a ...."-itempatt".
17d0: 09 09 09 22 2d 73 65 74 6c 6f 67 22 0a 09 09 09 ..."-setlog"....
17e0: 22 2d 73 65 74 2d 74 6f 70 6c 6f 67 22 0a 09 09 "-set-toplog"...
17f0: 09 22 2d 72 75 6e 73 74 65 70 22 0a 09 09 09 22 ."-runstep"...."
1800: 2d 6c 6f 67 70 72 6f 22 0a 09 09 09 22 2d 6d 22 -logpro"...."-m"
1810: 0a 09 09 09 22 2d 72 65 72 75 6e 22 0a 09 09 09 ...."-rerun"....
1820: 22 2d 64 61 79 73 22 0a 09 09 09 22 2d 72 65 6e "-days"...."-ren
1830: 61 6d 65 2d 72 75 6e 22 0a 09 09 09 22 2d 74 6f ame-run"...."-to
1840: 22 0a 09 09 09 3b 3b 20 76 61 6c 75 65 73 20 61 "....;; values a
1850: 6e 64 20 6d 65 73 73 61 67 65 73 0a 09 09 09 22 nd messages...."
1860: 3a 63 61 74 65 67 6f 72 79 22 0a 09 09 09 22 3a :category"....":
1870: 76 61 72 69 61 62 6c 65 22 0a 09 09 09 22 3a 76 variable"....":v
1880: 61 6c 75 65 22 0a 09 09 09 22 3a 65 78 70 65 63 alue"....":expec
1890: 74 65 64 22 0a 09 09 09 22 3a 74 6f 6c 22 0a 09 ted"....":tol"..
18a0: 09 09 22 3a 75 6e 69 74 73 22 0a 09 09 09 3b 3b ..":units"....;;
18b0: 20 6d 69 73 63 0a 09 09 09 22 2d 65 78 74 72 61 misc...."-extra
18c0: 63 74 2d 6f 64 73 22 0a 09 09 09 22 2d 70 61 74 ct-ods"...."-pat
18d0: 68 6d 6f 64 22 0a 09 09 09 22 2d 65 6e 76 32 66 hmod"...."-env2f
18e0: 69 6c 65 22 0a 09 09 09 22 2d 73 65 74 76 61 72 ile"...."-setvar
18f0: 73 22 0a 09 09 09 22 2d 64 65 62 75 67 22 20 3b s"...."-debug" ;
1900: 3b 20 66 6f 72 20 2a 76 65 72 62 6f 73 69 74 79 ; for *verbosity
1910: 2a 20 3e 20 32 0a 09 09 09 29 20 0a 09 09 20 28 * > 2....) ... (
1920: 6c 69 73 74 20 20 22 2d 68 22 0a 09 09 20 20 20 list "-h"...
1930: 20 20 20 20 20 22 2d 66 6f 72 63 65 22 0a 09 09 "-force"...
1940: 20 20 20 20 20 20 20 20 22 2d 78 74 65 72 6d 22 "-xterm"
1950: 0a 09 09 20 20 20 20 20 20 20 20 22 2d 73 68 6f ... "-sho
1960: 77 6b 65 79 73 22 0a 09 09 20 20 20 20 20 20 20 wkeys"...
1970: 20 22 2d 74 65 73 74 2d 73 74 61 74 75 73 22 0a "-test-status".
1980: 09 09 09 22 2d 73 65 74 2d 76 61 6c 75 65 73 22 ..."-set-values"
1990: 0a 09 09 09 22 2d 6c 6f 61 64 2d 74 65 73 74 2d ...."-load-test-
19a0: 64 61 74 61 22 0a 09 09 09 22 2d 73 75 6d 6d 61 data"...."-summa
19b0: 72 69 7a 65 2d 69 74 65 6d 73 22 0a 09 09 20 20 rize-items"...
19c0: 20 20 20 20 20 20 22 2d 67 75 69 22 0a 09 09 09 "-gui"....
19d0: 3b 3b 20 6d 69 73 63 0a 09 09 09 22 2d 61 72 63 ;; misc...."-arc
19e0: 68 69 76 65 22 0a 09 09 09 3b 3b 20 71 75 65 72 hive"....;; quer
19f0: 69 65 73 0a 09 09 09 22 2d 74 65 73 74 2d 70 61 ies...."-test-pa
1a00: 74 68 73 22 20 3b 3b 20 67 65 74 20 70 61 74 68 ths" ;; get path
1a10: 28 73 29 20 74 6f 20 61 20 74 65 73 74 2c 20 6f (s) to a test, o
1a20: 72 64 65 72 65 64 20 62 79 20 79 6f 75 6e 67 65 rdered by younge
1a30: 73 74 20 66 69 72 73 74 0a 0a 09 09 09 22 2d 72 st first....."-r
1a40: 75 6e 61 6c 6c 22 20 20 20 20 3b 3b 20 72 75 6e unall" ;; run
1a50: 20 61 6c 6c 20 74 65 73 74 73 0a 09 09 09 22 2d all tests...."-
1a60: 72 65 6d 6f 76 65 2d 72 75 6e 73 22 0a 09 09 09 remove-runs"....
1a70: 22 2d 6b 65 65 70 67 6f 69 6e 67 22 0a 09 09 09 "-keepgoing"....
1a80: 22 2d 75 73 65 71 75 65 75 65 22 0a 09 09 09 22 "-usequeue"...."
1a90: 2d 72 65 62 75 69 6c 64 2d 64 62 22 0a 09 09 09 -rebuild-db"....
1aa0: 22 2d 72 6f 6c 6c 75 70 22 0a 09 09 09 22 2d 75 "-rollup"...."-u
1ab0: 70 64 61 74 65 2d 6d 65 74 61 22 0a 09 09 09 22 pdate-meta"...."
1ac0: 2d 73 65 72 76 65 72 22 0a 0a 09 09 09 22 2d 76 -server"....."-v
1ad0: 22 20 3b 3b 20 76 65 72 62 6f 73 65 20 32 2c 20 " ;; verbose 2,
1ae0: 6d 6f 72 65 20 74 68 61 6e 20 6e 6f 72 6d 61 6c more than normal
1af0: 20 28 6e 6f 72 6d 61 6c 20 69 73 20 31 29 0a 09 (normal is 1)..
1b00: 09 09 22 2d 71 22 20 3b 3b 20 71 75 69 65 74 20 .."-q" ;; quiet
1b10: 30 2c 20 65 72 72 6f 72 73 2f 77 61 72 6e 69 6e 0, errors/warnin
1b20: 67 73 20 6f 6e 6c 79 0a 09 09 20 20 20 20 20 20 gs only...
1b30: 20 29 0a 09 09 20 61 72 67 73 3a 61 72 67 2d 68 )... args:arg-h
1b40: 61 73 68 0a 09 09 20 30 29 29 0a 0a 28 69 66 20 ash... 0))..(if
1b50: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d (args:get-arg "-
1b60: 68 22 29 0a 20 20 20 20 28 62 65 67 69 6e 0a 20 h"). (begin.
1b70: 20 20 20 20 20 28 70 72 69 6e 74 20 68 65 6c 70 (print help
1b80: 29 0a 20 20 20 20 20 20 28 65 78 69 74 29 29 29 ). (exit)))
1b90: 0a 0a 28 64 65 66 69 6e 65 20 2a 64 69 64 73 6f ..(define *didso
1ba0: 6d 65 74 68 69 6e 67 2a 20 23 66 29 0a 0a 3b 3b mething* #f)..;;
1bb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1bc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1bd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1be0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1bf0: 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 4d 69 73 63 20 73 ======.;; Misc s
1c00: 65 74 75 70 20 73 74 75 66 66 0a 3b 3b 3d 3d 3d etup stuff.;;===
1c10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1c50: 3d 3d 3d 0a 0a 28 73 65 74 21 20 2a 76 65 72 62 ===..(set! *verb
1c60: 6f 73 69 74 79 2a 20 28 63 6f 6e 64 0a 09 09 20 osity* (cond...
1c70: 20 20 28 28 61 72 67 73 3a 67 65 74 2d 61 72 67 ((args:get-arg
1c80: 20 22 2d 64 65 62 75 67 22 29 28 73 74 72 69 6e "-debug")(strin
1c90: 67 2d 3e 6e 75 6d 62 65 72 20 28 61 72 67 73 3a g->number (args:
1ca0: 67 65 74 2d 61 72 67 20 22 2d 64 65 62 75 67 22 get-arg "-debug"
1cb0: 29 29 29 0a 09 09 20 20 20 28 28 61 72 67 73 3a )))... ((args:
1cc0: 67 65 74 2d 61 72 67 20 22 2d 76 22 29 20 20 20 get-arg "-v")
1cd0: 20 32 29 0a 09 09 20 20 20 28 28 61 72 67 73 3a 2)... ((args:
1ce0: 67 65 74 2d 61 72 67 20 22 2d 71 22 29 20 20 20 get-arg "-q")
1cf0: 20 30 29 0a 09 09 20 20 20 28 65 6c 73 65 20 20 0)... (else
1d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d10: 20 31 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 1)))..;;=======
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 0a ===============.
1d60: 3b 3b 20 4d 69 73 63 20 67 65 6e 65 72 61 6c 20 ;; Misc general
1d70: 63 61 6c 6c 73 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d calls.;;========
1d80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1d90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1da0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1db0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a ==============..
1dc0: 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (if (args:get-ar
1dd0: 67 20 22 2d 65 6e 76 32 66 69 6c 65 22 29 0a 20 g "-env2file").
1de0: 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 (begin.
1df0: 28 73 61 76 65 2d 65 6e 76 69 72 6f 6e 6d 65 6e (save-environmen
1e00: 74 2d 61 73 2d 66 69 6c 65 73 20 28 61 72 67 73 t-as-files (args
1e10: 3a 67 65 74 2d 61 72 67 20 22 2d 65 6e 76 32 66 :get-arg "-env2f
1e20: 69 6c 65 22 29 29 0a 20 20 20 20 20 20 28 73 65 ile")). (se
1e30: 74 21 20 2a 64 69 64 73 6f 6d 65 74 68 69 6e 67 t! *didsomething
1e40: 2a 20 23 74 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d * #t)))..;;=====
1e50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1e60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1e70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1e80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1e90: 3d 0a 3b 3b 20 52 65 6d 6f 76 65 20 6f 6c 64 20 =.;; Remove old
1ea0: 72 75 6e 28 73 29 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d run(s).;;=======
1eb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ec0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ed0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1ee0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
1ef0: 0a 3b 3b 20 73 69 6e 63 65 20 73 65 76 65 72 61 .;; since severa
1f00: 6c 20 61 63 74 69 6f 6e 73 20 63 61 6e 20 62 65 l actions can be
1f10: 20 73 70 65 63 69 66 69 65 64 20 6f 6e 20 74 68 specified on th
1f20: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 74 e command line t
1f30: 68 65 20 72 65 6d 6f 76 61 6c 0a 3b 3b 20 69 73 he removal.;; is
1f40: 20 64 6f 6e 65 20 66 69 72 73 74 0a 28 64 65 66 done first.(def
1f50: 69 6e 65 20 28 72 65 6d 6f 76 65 2d 72 75 6e 73 ine (remove-runs
1f60: 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 6e ). (cond. ((n
1f70: 6f 74 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 ot (args:get-arg
1f80: 20 22 3a 72 75 6e 6e 61 6d 65 22 29 29 0a 20 20 ":runname")).
1f90: 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 (debug:print 0
1fa0: 20 22 45 52 52 4f 52 3a 20 4d 69 73 73 69 6e 67 "ERROR: Missing
1fb0: 20 72 65 71 75 69 72 65 64 20 70 61 72 61 6d 65 required parame
1fc0: 74 65 72 20 66 6f 72 20 2d 72 65 6d 6f 76 65 2d ter for -remove-
1fd0: 72 75 6e 73 2c 20 79 6f 75 20 6d 75 73 74 20 73 runs, you must s
1fe0: 70 65 63 69 66 79 20 74 68 65 20 72 75 6e 20 6e pecify the run n
1ff0: 61 6d 65 20 70 61 74 74 65 72 6e 20 77 69 74 68 ame pattern with
2000: 20 3a 72 75 6e 6e 61 6d 65 20 70 61 74 74 22 29 :runname patt")
2010: 0a 20 20 20 20 28 65 78 69 74 20 32 29 29 0a 20 . (exit 2)).
2020: 20 20 28 28 6e 6f 74 20 28 61 72 67 73 3a 67 65 ((not (args:ge
2030: 74 2d 61 72 67 20 22 2d 74 65 73 74 70 61 74 74 t-arg "-testpatt
2040: 22 29 29 0a 20 20 20 20 28 64 65 62 75 67 3a 70 ")). (debug:p
2050: 72 69 6e 74 20 30 20 22 45 52 52 4f 52 3a 20 4d rint 0 "ERROR: M
2060: 69 73 73 69 6e 67 20 72 65 71 75 69 72 65 64 20 issing required
2070: 70 61 72 61 6d 65 74 65 72 20 66 6f 72 20 2d 72 parameter for -r
2080: 65 6d 6f 76 65 2d 72 75 6e 73 2c 20 79 6f 75 20 emove-runs, you
2090: 6d 75 73 74 20 73 70 65 63 69 66 79 20 74 68 65 must specify the
20a0: 20 74 65 73 74 20 70 61 74 74 65 72 6e 20 77 69 test pattern wi
20b0: 74 68 20 2d 74 65 73 74 70 61 74 74 22 29 0a 20 th -testpatt").
20c0: 20 20 20 28 65 78 69 74 20 33 29 29 0a 20 20 20 (exit 3)).
20d0: 28 28 6e 6f 74 20 28 61 72 67 73 3a 67 65 74 2d ((not (args:get-
20e0: 61 72 67 20 22 2d 69 74 65 6d 70 61 74 74 22 29 arg "-itempatt")
20f0: 29 0a 20 20 20 20 28 70 72 69 6e 74 20 22 45 52 ). (print "ER
2100: 52 4f 52 3a 20 4d 69 73 73 69 6e 67 20 72 65 71 ROR: Missing req
2110: 75 69 72 65 64 20 70 61 72 61 6d 65 74 65 72 20 uired parameter
2120: 66 6f 72 20 2d 72 65 6d 6f 76 65 2d 72 75 6e 73 for -remove-runs
2130: 2c 20 79 6f 75 20 6d 75 73 74 20 73 70 65 63 69 , you must speci
2140: 66 79 20 74 68 65 20 69 74 65 6d 73 20 77 69 74 fy the items wit
2150: 68 20 2d 69 74 65 6d 70 61 74 74 22 29 0a 20 20 h -itempatt").
2160: 20 20 28 65 78 69 74 20 34 29 29 0a 20 20 20 28 (exit 4)). (
2170: 28 6c 65 74 20 28 28 64 62 20 23 66 29 29 0a 20 (let ((db #f)).
2180: 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 73 (if (not (s
2190: 65 74 75 70 2d 66 6f 72 2d 72 75 6e 29 29 0a 09 etup-for-run))..
21a0: 20 20 28 62 65 67 69 6e 20 0a 09 20 20 20 20 28 (begin .. (
21b0: 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 70 72 debug:print 0 pr
21c0: 69 6e 74 20 22 46 61 69 6c 65 64 20 74 6f 20 73 int "Failed to s
21d0: 65 74 75 70 2c 20 65 78 69 74 69 6e 67 22 29 0a etup, exiting").
21e0: 09 20 20 20 20 28 65 78 69 74 20 31 29 29 29 0a . (exit 1))).
21f0: 20 20 20 20 20 20 28 73 65 74 21 20 64 62 20 28 (set! db (
2200: 6f 70 65 6e 2d 64 62 29 29 0a 20 20 20 20 20 20 open-db)).
2210: 28 69 66 20 28 6e 6f 74 20 28 63 61 72 20 2a 63 (if (not (car *c
2220: 6f 6e 66 69 67 69 6e 66 6f 2a 29 29 0a 09 20 20 onfiginfo*))..
2230: 28 62 65 67 69 6e 0a 09 20 20 20 20 28 64 65 62 (begin.. (deb
2240: 75 67 3a 70 72 69 6e 74 20 30 20 22 45 52 52 4f ug:print 0 "ERRO
2250: 52 3a 20 41 74 74 65 6d 70 74 65 64 20 74 6f 20 R: Attempted to
2260: 72 65 6d 6f 76 65 20 74 65 73 74 28 73 29 20 62 remove test(s) b
2270: 75 74 20 72 75 6e 20 61 72 65 61 20 63 6f 6e 66 ut run area conf
2280: 69 67 20 66 69 6c 65 20 6e 6f 74 20 66 6f 75 6e ig file not foun
2290: 64 22 29 0a 09 20 20 20 20 28 65 78 69 74 20 31 d").. (exit 1
22a0: 29 29 0a 09 20 20 3b 3b 20 70 75 74 20 74 65 73 )).. ;; put tes
22b0: 74 20 70 61 72 61 6d 65 74 65 72 73 20 69 6e 74 t parameters int
22c0: 6f 20 63 6f 6e 76 65 6e 69 65 6e 74 20 76 61 72 o convenient var
22d0: 69 61 62 6c 65 73 0a 09 20 20 28 72 75 6e 73 3a iables.. (runs:
22e0: 72 65 6d 6f 76 65 2d 72 75 6e 73 20 64 62 0a 09 remove-runs db..
22f0: 09 09 20 20 20 20 28 61 72 67 73 3a 67 65 74 2d .. (args:get-
2300: 61 72 67 20 22 3a 72 75 6e 6e 61 6d 65 22 29 0a arg ":runname").
2310: 09 09 09 20 20 20 20 28 61 72 67 73 3a 67 65 74 ... (args:get
2320: 2d 61 72 67 20 22 2d 74 65 73 74 70 61 74 74 22 -arg "-testpatt"
2330: 29 0a 09 09 09 20 20 20 20 28 61 72 67 73 3a 67 ).... (args:g
2340: 65 74 2d 61 72 67 20 22 2d 69 74 65 6d 70 61 74 et-arg "-itempat
2350: 74 22 29 29 29 0a 20 20 20 20 20 20 28 73 71 6c t"))). (sql
2360: 69 74 65 33 3a 66 69 6e 61 6c 69 7a 65 21 20 64 ite3:finalize! d
2370: 62 29 0a 20 20 20 20 20 20 28 73 65 74 21 20 2a b). (set! *
2380: 64 69 64 73 6f 6d 65 74 68 69 6e 67 2a 20 23 74 didsomething* #t
2390: 29 29 29 29 29 0a 09 20 20 0a 28 69 66 20 28 61 ))))).. .(if (a
23a0: 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 72 65 rgs:get-arg "-re
23b0: 6d 6f 76 65 2d 72 75 6e 73 22 29 0a 20 20 20 20 move-runs").
23c0: 28 67 65 6e 65 72 61 6c 2d 72 75 6e 2d 63 61 6c (general-run-cal
23d0: 6c 20 0a 20 20 20 20 20 22 2d 72 65 6d 6f 76 65 l . "-remove
23e0: 2d 72 75 6e 73 22 0a 20 20 20 20 20 22 72 65 6d -runs". "rem
23f0: 6f 76 65 20 72 75 6e 73 22 0a 20 20 20 20 20 28 ove runs". (
2400: 6c 61 6d 62 64 61 20 28 64 62 20 74 61 72 67 65 lambda (db targe
2410: 74 20 72 75 6e 6e 61 6d 65 20 6b 65 79 73 20 6b t runname keys k
2420: 65 79 6e 61 6d 65 73 20 6b 65 79 76 61 6c 6c 73 eynames keyvalls
2430: 74 29 0a 20 20 20 20 20 20 20 28 72 65 6d 6f 76 t). (remov
2440: 65 2d 72 75 6e 73 29 29 29 29 0a 0a 3b 3b 3d 3d e-runs))))..;;==
2450: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2470: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2490: 3d 3d 3d 3d 0a 3b 3b 20 51 75 65 72 79 20 72 75 ====.;; Query ru
24a0: 6e 73 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ns.;;===========
24b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
24c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
24d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
24e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 28 69 66 ===========..(if
24f0: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
2500: 2d 6c 69 73 74 2d 72 75 6e 73 22 29 0a 20 20 20 -list-runs").
2510: 20 28 6c 65 74 2a 20 28 28 64 62 20 20 20 20 20 (let* ((db
2520: 20 20 28 62 65 67 69 6e 0a 09 09 20 20 20 20 20 (begin...
2530: 20 20 28 73 65 74 75 70 2d 66 6f 72 2d 72 75 6e (setup-for-run
2540: 29 0a 09 09 20 20 20 20 20 20 20 28 6f 70 65 6e )... (open
2550: 2d 64 62 29 29 29 0a 09 20 20 20 28 72 75 6e 70 -db))).. (runp
2560: 61 74 74 20 20 28 61 72 67 73 3a 67 65 74 2d 61 att (args:get-a
2570: 72 67 20 22 2d 6c 69 73 74 2d 72 75 6e 73 22 29 rg "-list-runs")
2580: 29 0a 09 20 20 20 28 74 65 73 74 70 61 74 74 20 ).. (testpatt
2590: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d (args:get-arg "-
25a0: 74 65 73 74 70 61 74 74 22 29 29 0a 09 20 20 20 testpatt"))..
25b0: 28 69 74 65 6d 70 61 74 74 20 28 61 72 67 73 3a (itempatt (args:
25c0: 67 65 74 2d 61 72 67 20 22 2d 69 74 65 6d 70 61 get-arg "-itempa
25d0: 74 74 22 29 29 0a 09 20 20 20 28 72 75 6e 73 64 tt")).. (runsd
25e0: 61 74 20 20 28 64 62 3a 67 65 74 2d 72 75 6e 73 at (db:get-runs
25f0: 20 64 62 20 72 75 6e 70 61 74 74 20 23 66 20 23 db runpatt #f #
2600: 66 20 27 28 29 29 29 0a 09 20 20 20 28 72 75 6e f '())).. (run
2610: 73 20 20 20 20 20 28 64 62 3a 67 65 74 2d 72 6f s (db:get-ro
2620: 77 73 20 72 75 6e 73 64 61 74 29 29 0a 09 20 20 ws runsdat))..
2630: 20 28 68 65 61 64 65 72 20 20 20 28 64 62 3a 67 (header (db:g
2640: 65 74 2d 68 65 61 64 65 72 20 72 75 6e 73 64 61 et-header runsda
2650: 74 29 29 0a 09 20 20 20 28 6b 65 79 73 20 20 20 t)).. (keys
2660: 20 20 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 64 (db-get-keys d
2670: 62 29 29 0a 09 20 20 20 28 6b 65 79 6e 61 6d 65 b)).. (keyname
2680: 73 20 28 6d 61 70 20 6b 65 79 3a 67 65 74 2d 66 s (map key:get-f
2690: 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 29 29 29 ieldname keys)))
26a0: 0a 20 20 20 20 20 20 3b 3b 20 45 61 63 68 20 72 . ;; Each r
26b0: 75 6e 0a 20 20 20 20 20 20 28 66 6f 72 2d 65 61 un. (for-ea
26c0: 63 68 20 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 ch . (lamb
26d0: 64 61 20 28 72 75 6e 29 0a 09 20 28 64 65 62 75 da (run).. (debu
26e0: 67 3a 70 72 69 6e 74 20 32 20 22 52 75 6e 3a 20 g:print 2 "Run:
26f0: 22 0a 09 09 28 73 74 72 69 6e 67 2d 69 6e 74 65 "...(string-inte
2700: 72 73 70 65 72 73 65 20 28 6d 61 70 20 28 6c 61 rsperse (map (la
2710: 6d 62 64 61 20 28 78 29 0a 09 09 09 09 09 20 20 mbda (x)......
2720: 20 28 64 62 3a 67 65 74 2d 76 61 6c 75 65 2d 62 (db:get-value-b
2730: 79 2d 68 65 61 64 65 72 20 72 75 6e 20 68 65 61 y-header run hea
2740: 64 65 72 20 78 29 29 0a 09 09 09 09 09 20 6b 65 der x))...... ke
2750: 79 6e 61 6d 65 73 29 20 22 2f 22 29 0a 09 09 22 ynames) "/")..."
2760: 2f 22 0a 09 09 28 64 62 3a 67 65 74 2d 76 61 6c /"...(db:get-val
2770: 75 65 2d 62 79 2d 68 65 61 64 65 72 20 72 75 6e ue-by-header run
2780: 20 68 65 61 64 65 72 20 22 72 75 6e 6e 61 6d 65 header "runname
2790: 22 29 29 0a 09 20 28 6c 65 74 20 28 28 72 75 6e ")).. (let ((run
27a0: 2d 69 64 20 28 64 62 3a 67 65 74 2d 76 61 6c 75 -id (db:get-valu
27b0: 65 2d 62 79 2d 68 65 61 64 65 72 20 72 75 6e 20 e-by-header run
27c0: 68 65 61 64 65 72 20 22 69 64 22 29 29 29 0a 09 header "id")))..
27d0: 20 20 20 28 6c 65 74 20 28 28 74 65 73 74 73 20 (let ((tests
27e0: 28 64 62 2d 67 65 74 2d 74 65 73 74 73 2d 66 6f (db-get-tests-fo
27f0: 72 2d 72 75 6e 20 64 62 20 72 75 6e 2d 69 64 20 r-run db run-id
2800: 74 65 73 74 70 61 74 74 20 69 74 65 6d 70 61 74 testpatt itempat
2810: 74 20 27 28 29 20 27 28 29 29 29 29 0a 09 20 20 t '() '())))..
2820: 20 20 20 3b 3b 20 45 61 63 68 20 74 65 73 74 0a ;; Each test.
2830: 09 20 20 20 20 20 28 66 6f 72 2d 65 61 63 68 20 . (for-each
2840: 0a 09 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 .. (lambda
2850: 28 74 65 73 74 29 0a 09 09 28 66 6f 72 6d 61 74 (test)...(format
2860: 20 23 74 0a 09 09 09 22 20 20 54 65 73 74 3a 20 #t...." Test:
2870: 7e 32 35 61 20 53 74 61 74 65 3a 20 7e 31 35 61 ~25a State: ~15a
2880: 20 53 74 61 74 75 73 3a 20 7e 31 35 61 20 52 75 Status: ~15a Ru
2890: 6e 74 69 6d 65 3a 20 7e 35 40 61 73 20 54 69 6d ntime: ~5@as Tim
28a0: 65 3a 20 7e 32 32 61 20 48 6f 73 74 3a 20 7e 31 e: ~22a Host: ~1
28b0: 30 61 5c 6e 22 0a 09 09 09 28 63 6f 6e 63 20 28 0a\n"....(conc (
28c0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 74 65 73 74 db:test-get-test
28d0: 6e 61 6d 65 20 74 65 73 74 29 0a 09 09 09 20 20 name test)....
28e0: 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 3f 20 (if (equal?
28f0: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 69 74 65 (db:test-get-ite
2900: 6d 2d 70 61 74 68 20 74 65 73 74 29 20 22 22 29 m-path test) "")
2910: 0a 09 09 09 09 20 20 22 22 20 0a 09 09 09 09 20 ..... "" .....
2920: 20 28 63 6f 6e 63 20 22 28 22 20 28 64 62 3a 74 (conc "(" (db:t
2930: 65 73 74 2d 67 65 74 2d 69 74 65 6d 2d 70 61 74 est-get-item-pat
2940: 68 20 74 65 73 74 29 20 22 29 22 29 29 29 0a 09 h test) ")")))..
2950: 09 09 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 ..(db:test-get-s
2960: 74 61 74 65 20 74 65 73 74 29 0a 09 09 09 28 64 tate test)....(d
2970: 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 61 74 75 b:test-get-statu
2980: 73 20 74 65 73 74 29 0a 09 09 09 28 64 62 3a 74 s test)....(db:t
2990: 65 73 74 2d 67 65 74 2d 72 75 6e 5f 64 75 72 61 est-get-run_dura
29a0: 74 69 6f 6e 20 74 65 73 74 29 0a 09 09 09 28 64 tion test)....(d
29b0: 62 3a 74 65 73 74 2d 67 65 74 2d 65 76 65 6e 74 b:test-get-event
29c0: 5f 74 69 6d 65 20 74 65 73 74 29 0a 09 09 09 28 _time test)....(
29d0: 64 62 3a 74 65 73 74 2d 67 65 74 2d 68 6f 73 74 db:test-get-host
29e0: 20 74 65 73 74 29 29 0a 20 09 09 28 69 66 20 28 test)). ..(if (
29f0: 6e 6f 74 20 28 6f 72 20 28 65 71 75 61 6c 3f 20 not (or (equal?
2a00: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 61 (db:test-get-sta
2a10: 74 75 73 20 74 65 73 74 29 20 22 50 41 53 53 22 tus test) "PASS"
2a20: 29 0a 09 09 09 20 20 20 20 20 28 65 71 75 61 6c ).... (equal
2a30: 3f 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 73 ? (db:test-get-s
2a40: 74 61 74 75 73 20 74 65 73 74 29 20 22 57 41 52 tatus test) "WAR
2a50: 4e 22 29 0a 09 09 09 20 20 20 20 20 28 65 71 75 N").... (equ
2a60: 61 6c 3f 20 28 64 62 3a 74 65 73 74 2d 67 65 74 al? (db:test-get
2a70: 2d 73 74 61 74 65 20 74 65 73 74 29 20 20 22 4e -state test) "N
2a80: 4f 54 5f 53 54 41 52 54 45 44 22 29 29 29 0a 09 OT_STARTED")))..
2a90: 09 20 20 20 20 28 62 65 67 69 6e 0a 09 09 20 20 . (begin...
2aa0: 20 20 20 20 28 70 72 69 6e 74 20 22 20 20 20 20 (print "
2ab0: 20 20 20 20 20 63 70 75 6c 6f 61 64 3a 20 20 22 cpuload: "
2ac0: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 63 70 (db:test-get-cp
2ad0: 75 6c 6f 61 64 20 74 65 73 74 29 0a 09 09 09 20 uload test)....
2ae0: 20 20 20 20 22 5c 6e 20 20 20 20 20 20 20 20 20 "\n
2af0: 64 69 73 6b 66 72 65 65 3a 20 22 20 28 64 62 3a diskfree: " (db:
2b00: 74 65 73 74 2d 67 65 74 2d 64 69 73 6b 66 72 65 test-get-diskfre
2b10: 65 20 74 65 73 74 29 0a 09 09 09 20 20 20 20 20 e test)....
2b20: 22 5c 6e 20 20 20 20 20 20 20 20 20 75 6e 61 6d "\n unam
2b30: 65 3a 20 20 20 20 22 20 28 64 62 3a 74 65 73 74 e: " (db:test
2b40: 2d 67 65 74 2d 75 6e 61 6d 65 20 74 65 73 74 29 -get-uname test)
2b50: 0a 09 09 09 20 20 20 20 20 22 5c 6e 20 20 20 20 .... "\n
2b60: 20 20 20 20 20 72 75 6e 64 69 72 3a 20 20 20 22 rundir: "
2b70: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 (db:test-get-ru
2b80: 6e 64 69 72 20 74 65 73 74 29 0a 09 09 09 20 20 ndir test)....
2b90: 20 20 20 29 0a 09 09 20 20 20 20 20 20 3b 3b 20 )... ;;
2ba0: 45 61 63 68 20 74 65 73 74 0a 09 09 20 20 20 20 Each test...
2bb0: 20 20 28 6c 65 74 20 28 28 73 74 65 70 73 20 28 (let ((steps (
2bc0: 64 62 3a 67 65 74 2d 73 74 65 70 73 2d 66 6f 72 db:get-steps-for
2bd0: 2d 74 65 73 74 20 64 62 20 28 64 62 3a 74 65 73 -test db (db:tes
2be0: 74 2d 67 65 74 2d 69 64 20 74 65 73 74 29 29 29 t-get-id test)))
2bf0: 29 0a 09 09 09 28 66 6f 72 2d 65 61 63 68 20 0a )....(for-each .
2c00: 09 09 09 20 28 6c 61 6d 62 64 61 20 28 73 74 65 ... (lambda (ste
2c10: 70 29 0a 09 09 09 20 20 20 28 66 6f 72 6d 61 74 p).... (format
2c20: 20 23 74 20 0a 09 09 09 09 20 20 20 22 20 20 20 #t ..... "
2c30: 20 53 74 65 70 3a 20 7e 32 30 61 20 53 74 61 74 Step: ~20a Stat
2c40: 65 3a 20 7e 31 30 61 20 53 74 61 74 75 73 3a 20 e: ~10a Status:
2c50: 7e 31 30 61 20 54 69 6d 65 20 7e 32 32 61 5c 6e ~10a Time ~22a\n
2c60: 22 0a 09 09 09 09 20 20 20 28 64 62 3a 73 74 65 "..... (db:ste
2c70: 70 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 20 73 p-get-stepname s
2c80: 74 65 70 29 0a 09 09 09 09 20 20 20 28 64 62 3a tep)..... (db:
2c90: 73 74 65 70 2d 67 65 74 2d 73 74 61 74 65 20 73 step-get-state s
2ca0: 74 65 70 29 0a 09 09 09 09 20 20 20 28 64 62 3a tep)..... (db:
2cb0: 73 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 20 step-get-status
2cc0: 73 74 65 70 29 0a 09 09 09 09 20 20 20 28 64 62 step)..... (db
2cd0: 3a 73 74 65 70 2d 67 65 74 2d 65 76 65 6e 74 5f :step-get-event_
2ce0: 74 69 6d 65 20 73 74 65 70 29 29 29 0a 09 09 09 time step)))....
2cf0: 20 73 74 65 70 73 29 29 29 29 29 0a 09 09 74 65 steps)))))...te
2d00: 73 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 72 sts)))). r
2d10: 75 6e 73 29 0a 20 20 20 20 20 20 28 73 65 74 21 uns). (set!
2d20: 20 2a 64 69 64 73 6f 6d 65 74 68 69 6e 67 2a 20 *didsomething*
2d30: 23 74 29 0a 20 20 20 20 20 20 29 29 0a 0a 3b 3b #t). ))..;;
2d40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2d80: 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 66 75 6c 6c 20 72 ======.;; full r
2d90: 75 6e 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d un.;;===========
2da0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2db0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2dc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2dd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 ===========..;;
2de0: 67 65 74 20 6c 6f 63 6b 20 69 6e 20 64 62 20 66 get lock in db f
2df0: 6f 72 20 66 75 6c 6c 20 72 75 6e 20 66 6f 72 20 or full run for
2e00: 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 0a 3b this directory.;
2e10: 3b 20 66 6f 72 20 61 6c 6c 20 74 65 73 74 73 20 ; for all tests
2e20: 77 69 74 68 20 64 65 70 73 0a 3b 3b 20 20 20 77 with deps.;; w
2e30: 61 6c 6b 20 74 72 65 65 20 6f 66 20 74 65 73 74 alk tree of test
2e40: 73 20 74 6f 20 66 69 6e 64 20 68 65 61 64 20 74 s to find head t
2e50: 61 73 6b 73 0a 3b 3b 20 20 20 61 64 64 20 68 65 asks.;; add he
2e60: 61 64 20 74 61 73 6b 73 20 74 6f 20 74 61 73 6b ad tasks to task
2e70: 20 71 75 65 75 65 0a 3b 3b 20 20 20 61 64 64 20 queue.;; add
2e80: 64 65 70 65 6e 64 61 6e 74 20 74 61 73 6b 73 20 dependant tasks
2e90: 74 6f 20 74 61 73 6b 20 71 75 65 75 65 20 0a 3b to task queue .;
2ea0: 3b 20 20 20 61 64 64 20 72 65 6d 61 69 6e 69 6e ; add remainin
2eb0: 67 20 74 61 73 6b 73 20 74 6f 20 74 61 73 6b 20 g tasks to task
2ec0: 71 75 65 75 65 0a 3b 3b 20 66 6f 72 20 65 61 63 queue.;; for eac
2ed0: 68 20 74 61 73 6b 20 69 6e 20 74 61 73 6b 20 71 h task in task q
2ee0: 75 65 75 65 0a 3b 3b 20 20 20 69 66 20 68 61 76 ueue.;; if hav
2ef0: 65 20 61 64 65 71 75 61 74 65 20 72 65 73 6f 75 e adequate resou
2f00: 72 63 65 73 0a 3b 3b 20 20 20 20 20 6c 61 75 6e rces.;; laun
2f10: 63 68 20 74 61 73 6b 0a 3b 3b 20 20 20 65 6c 73 ch task.;; els
2f20: 65 0a 3b 3b 20 20 20 20 20 70 75 74 20 74 61 73 e.;; put tas
2f30: 6b 20 69 6e 20 64 65 66 65 72 72 65 64 20 71 75 k in deferred qu
2f40: 65 75 65 0a 3b 3b 20 69 66 20 73 74 69 6c 6c 20 eue.;; if still
2f50: 6f 6b 20 74 6f 20 72 75 6e 20 74 61 73 6b 73 0a ok to run tasks.
2f60: 3b 3b 20 20 20 70 72 6f 63 65 73 73 20 64 65 66 ;; process def
2f70: 65 72 72 65 64 20 74 61 73 6b 73 20 70 65 72 20 erred tasks per
2f80: 61 62 6f 76 65 20 73 74 65 70 73 0a 0a 3b 3b 20 above steps..;;
2f90: 72 75 6e 20 61 6c 6c 20 74 65 73 74 73 20 61 72 run all tests ar
2fa0: 65 20 61 72 65 20 4e 6f 74 20 43 4f 4d 50 4c 45 e are Not COMPLE
2fb0: 54 45 44 20 61 6e 64 20 50 41 53 53 20 6f 72 20 TED and PASS or
2fc0: 43 48 45 43 4b 0a 28 69 66 20 28 61 72 67 73 3a CHECK.(if (args:
2fd0: 67 65 74 2d 61 72 67 20 22 2d 72 75 6e 61 6c 6c get-arg "-runall
2fe0: 22 29 0a 20 20 20 20 28 67 65 6e 65 72 61 6c 2d "). (general-
2ff0: 72 75 6e 2d 63 61 6c 6c 20 0a 20 20 20 20 20 22 run-call . "
3000: 2d 72 75 6e 61 6c 6c 22 0a 20 20 20 20 20 22 72 -runall". "r
3010: 75 6e 20 61 6c 6c 20 74 65 73 74 73 22 0a 20 20 un all tests".
3020: 20 20 20 28 6c 61 6d 62 64 61 20 28 64 62 20 74 (lambda (db t
3030: 61 72 67 65 74 20 72 75 6e 6e 61 6d 65 20 6b 65 arget runname ke
3040: 79 73 20 6b 65 79 6e 61 6d 65 73 20 6b 65 79 76 ys keynames keyv
3050: 61 6c 6c 73 74 29 0a 20 20 20 20 20 20 20 28 72 allst). (r
3060: 75 6e 73 3a 72 75 6e 2d 74 65 73 74 73 20 64 62 uns:run-tests db
3070: 0a 09 09 20 20 20 20 20 20 20 74 61 72 67 65 74 ... target
3080: 0a 09 09 20 20 20 20 20 20 20 72 75 6e 6e 61 6d ... runnam
3090: 65 0a 09 09 20 20 20 20 20 20 20 28 61 72 67 73 e... (args
30a0: 3a 67 65 74 2d 61 72 67 20 22 2d 74 65 73 74 70 :get-arg "-testp
30b0: 61 74 74 22 29 0a 09 09 20 20 20 20 20 20 20 28 att")... (
30c0: 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 69 args:get-arg "-i
30d0: 74 65 6d 70 61 74 74 22 29 0a 09 09 20 20 20 20 tempatt")...
30e0: 20 20 20 75 73 65 72 0a 09 09 20 20 20 20 20 20 user...
30f0: 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c (make-hash-tabl
3100: 65 29 29 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d e)))))..;;======
3110: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3120: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3130: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3140: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3150: 0a 3b 3b 20 72 75 6e 20 6f 6e 65 20 74 65 73 74 .;; run one test
3160: 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;=============
3170: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3180: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3190: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
31a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 31 2e =========..;; 1.
31b0: 20 66 69 6e 64 20 74 68 65 20 63 6f 6e 66 69 67 find the config
31c0: 20 66 69 6c 65 0a 3b 3b 20 32 2e 20 63 68 61 6e file.;; 2. chan
31d0: 67 65 20 74 6f 20 74 68 65 20 74 65 73 74 20 64 ge to the test d
31e0: 69 72 65 63 74 6f 72 79 0a 3b 3b 20 33 2e 20 75 irectory.;; 3. u
31f0: 70 64 61 74 65 20 74 68 65 20 64 62 20 77 69 74 pdate the db wit
3200: 68 20 22 74 65 73 74 20 73 74 61 72 74 65 64 22 h "test started"
3210: 20 73 74 61 74 75 73 2c 20 73 65 74 20 72 75 6e status, set run
3220: 6e 69 6e 67 20 68 6f 73 74 0a 3b 3b 20 34 2e 20 ning host.;; 4.
3230: 70 72 6f 63 65 73 73 20 6c 61 75 6e 63 68 20 74 process launch t
3240: 68 65 20 74 65 73 74 0a 3b 3b 20 20 20 20 2d 20 he test.;; -
3250: 6d 6f 6e 69 74 6f 72 20 74 68 65 20 70 72 6f 63 monitor the proc
3260: 65 73 73 2c 20 75 70 64 61 74 65 20 73 74 61 74 ess, update stat
3270: 73 20 69 6e 20 74 68 65 20 64 62 20 65 76 65 72 s in the db ever
3280: 79 20 32 5e 6e 20 6d 69 6e 75 74 65 73 0a 3b 3b y 2^n minutes.;;
3290: 20 35 2e 20 61 73 20 74 68 65 20 74 65 73 74 20 5. as the test
32a0: 70 72 6f 63 65 65 64 73 20 69 6e 74 65 72 6e 61 proceeds interna
32b0: 6c 6c 79 20 69 74 20 63 61 6c 6c 73 20 6d 65 67 lly it calls meg
32c0: 61 74 65 73 74 20 61 73 20 65 61 63 68 20 73 74 atest as each st
32d0: 65 70 20 69 73 0a 3b 3b 20 20 20 20 73 74 61 72 ep is.;; star
32e0: 74 65 64 20 61 6e 64 20 63 6f 6d 70 6c 65 74 65 ted and complete
32f0: 64 0a 3b 3b 20 20 20 20 2d 20 73 74 65 70 20 73 d.;; - step s
3300: 74 61 72 74 65 64 2c 20 74 69 6d 65 73 74 61 6d tarted, timestam
3310: 70 0a 3b 3b 20 20 20 20 2d 20 73 74 65 70 20 63 p.;; - step c
3320: 6f 6d 70 6c 65 74 65 64 2c 20 65 78 69 74 20 73 ompleted, exit s
3330: 74 61 74 75 73 2c 20 74 69 6d 65 73 74 61 6d 70 tatus, timestamp
3340: 0a 3b 3b 20 36 2e 20 74 65 73 74 20 70 68 6f 6e .;; 6. test phon
3350: 65 20 68 6f 6d 65 0a 3b 3b 20 20 20 20 2d 20 69 e home.;; - i
3360: 66 20 74 65 73 74 20 72 75 6e 20 74 69 6d 65 20 f test run time
3370: 3e 20 61 6c 6c 6f 77 65 64 20 72 75 6e 20 74 69 > allowed run ti
3380: 6d 65 20 74 68 65 6e 20 6b 69 6c 6c 20 6a 6f 62 me then kill job
3390: 0a 3b 3b 20 20 20 20 2d 20 69 66 20 63 61 6e 6e .;; - if cann
33a0: 6f 74 20 61 63 63 65 73 73 20 64 62 20 3e 20 61 ot access db > a
33b0: 6c 6c 6f 77 65 64 20 64 69 73 63 6f 6e 6e 65 63 llowed disconnec
33c0: 74 20 74 69 6d 65 20 74 68 65 6e 20 6b 69 6c 6c t time then kill
33d0: 20 6a 6f 62 0a 0a 28 69 66 20 28 61 72 67 73 3a job..(if (args:
33e0: 67 65 74 2d 61 72 67 20 22 2d 72 75 6e 74 65 73 get-arg "-runtes
33f0: 74 73 22 29 0a 20 20 28 67 65 6e 65 72 61 6c 2d ts"). (general-
3400: 72 75 6e 2d 63 61 6c 6c 20 0a 20 20 20 22 2d 72 run-call . "-r
3410: 75 6e 74 65 73 74 73 22 20 0a 20 20 20 22 72 75 untests" . "ru
3420: 6e 20 61 20 74 65 73 74 22 20 0a 20 20 20 28 6c n a test" . (l
3430: 61 6d 62 64 61 20 28 64 62 20 74 61 72 67 65 74 ambda (db target
3440: 20 72 75 6e 6e 61 6d 65 20 6b 65 79 73 20 6b 65 runname keys ke
3450: 79 6e 61 6d 65 73 20 6b 65 79 76 61 6c 6c 73 74 ynames keyvallst
3460: 29 0a 20 20 20 20 20 28 72 75 6e 73 3a 72 75 6e ). (runs:run
3470: 2d 74 65 73 74 73 20 64 62 0a 09 09 20 20 20 20 -tests db...
3480: 20 74 61 72 67 65 74 0a 09 09 20 20 20 20 20 72 target... r
3490: 75 6e 6e 61 6d 65 0a 09 09 20 20 20 20 20 28 61 unname... (a
34a0: 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 72 75 rgs:get-arg "-ru
34b0: 6e 74 65 73 74 73 22 29 0a 09 09 20 20 20 20 20 ntests")...
34c0: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d (args:get-arg "-
34d0: 69 74 65 6d 70 61 74 74 22 29 0a 09 09 20 20 20 itempatt")...
34e0: 20 20 75 73 65 72 0a 09 09 20 20 20 20 20 28 6d user... (m
34f0: 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 ake-hash-table))
3500: 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d )))..;;=========
3510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b =============.;;
3550: 20 53 74 61 72 74 20 74 68 65 20 73 65 72 76 65 Start the serve
3560: 72 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d r.;;============
3570: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3580: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3590: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
35a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 28 69 66 20 28 ==========.(if (
35b0: 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 73 args:get-arg "-s
35c0: 65 72 76 65 72 22 29 0a 20 20 20 20 28 6c 65 74 erver"). (let
35d0: 2a 20 28 28 74 6f 70 70 61 74 68 20 28 73 65 74 * ((toppath (set
35e0: 75 70 2d 66 6f 72 2d 72 75 6e 29 29 0a 09 20 20 up-for-run))..
35f0: 20 28 64 62 20 20 20 20 20 20 28 69 66 20 74 6f (db (if to
3600: 70 70 61 74 68 20 28 6f 70 65 6e 2d 64 62 29 20 ppath (open-db)
3610: 23 66 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 #f))). (if
3620: 64 62 20 0a 09 20 20 28 73 65 72 76 65 72 3a 73 db .. (server:s
3630: 74 61 72 74 20 64 62 29 0a 09 20 20 28 64 65 62 tart db).. (deb
3640: 75 67 3a 70 72 69 6e 74 20 30 20 22 45 52 52 4f ug:print 0 "ERRO
3650: 52 3a 20 46 61 69 6c 65 64 20 74 6f 20 73 65 74 R: Failed to set
3660: 75 70 20 66 6f 72 20 6d 65 67 61 74 65 73 74 22 up for megatest"
3670: 29 29 29 29 0a 0a 3b 3b 3b 3d 3d 3d 3d 3d 3d 3d ))))..;;;=======
3680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3690: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
36c0: 3b 3b 20 52 6f 6c 6c 75 70 20 69 6e 74 6f 20 61 ;; Rollup into a
36d0: 20 72 75 6e 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d run.;;=========
36e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
36f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 28 69 =============.(i
3720: 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 f (args:get-arg
3730: 22 2d 72 6f 6c 6c 75 70 22 29 0a 20 20 20 20 28 "-rollup"). (
3740: 67 65 6e 65 72 61 6c 2d 72 75 6e 2d 63 61 6c 6c general-run-call
3750: 20 0a 20 20 20 20 20 22 2d 72 6f 6c 6c 75 70 22 . "-rollup"
3760: 20 0a 20 20 20 20 20 22 72 6f 6c 6c 75 70 20 74 . "rollup t
3770: 65 73 74 73 22 20 0a 20 20 20 20 20 28 6c 61 6d ests" . (lam
3780: 62 64 61 20 28 64 62 20 6b 65 79 73 20 6b 65 79 bda (db keys key
3790: 6e 61 6d 65 73 20 6b 65 79 76 61 6c 6c 73 74 29 names keyvallst)
37a0: 0a 20 20 20 20 20 20 20 28 72 75 6e 73 3a 72 6f . (runs:ro
37b0: 6c 6c 75 70 2d 72 75 6e 20 64 62 0a 09 09 09 6b llup-run db....k
37c0: 65 79 73 0a 09 09 09 28 6b 65 79 73 2d 3e 61 6c eys....(keys->al
37d0: 69 73 74 20 6b 65 79 73 20 22 6e 61 22 29 0a 09 ist keys "na")..
37e0: 09 09 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 ..(args:get-arg
37f0: 22 3a 72 75 6e 6e 61 6d 65 22 29 20 0a 09 09 09 ":runname") ....
3800: 75 73 65 72 29 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d user))))..;;====
3810: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3820: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3840: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3850: 3d 3d 0a 3b 3b 20 47 65 74 20 70 61 74 68 73 20 ==.;; Get paths
3860: 74 6f 20 74 65 73 74 73 0a 3b 3b 3d 3d 3d 3d 3d to tests.;;=====
3870: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3880: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3890: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
38a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
38b0: 3d 0a 3b 3b 20 47 65 74 20 74 65 73 74 20 70 61 =.;; Get test pa
38c0: 74 68 73 20 6d 61 74 63 68 69 6e 67 20 74 61 72 ths matching tar
38d0: 67 65 74 2c 20 72 75 6e 6e 61 6d 65 2c 20 74 65 get, runname, te
38e0: 73 74 70 61 74 74 2c 20 61 6e 64 20 69 74 65 6d stpatt, and item
38f0: 70 61 74 74 0a 28 69 66 20 28 61 72 67 73 3a 67 patt.(if (args:g
3900: 65 74 2d 61 72 67 20 22 2d 74 65 73 74 2d 70 61 et-arg "-test-pa
3910: 74 68 73 22 29 0a 20 20 20 20 3b 3b 20 69 66 20 ths"). ;; if
3920: 77 65 20 61 72 65 20 69 6e 20 61 20 74 65 73 74 we are in a test
3930: 20 75 73 65 20 74 68 65 20 4d 54 5f 43 4d 44 49 use the MT_CMDI
3940: 4e 46 4f 20 64 61 74 61 0a 20 20 20 20 28 69 66 NFO data. (if
3950: 20 28 67 65 74 65 6e 76 20 22 4d 54 5f 43 4d 44 (getenv "MT_CMD
3960: 49 4e 46 4f 22 29 0a 09 28 6c 65 74 2a 20 28 28 INFO")..(let* ((
3970: 73 74 61 72 74 69 6e 67 64 69 72 20 28 63 75 72 startingdir (cur
3980: 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 rent-directory))
3990: 0a 09 20 20 20 20 20 20 20 28 63 6d 64 69 6e 66 .. (cmdinf
39a0: 6f 20 20 20 28 72 65 61 64 20 28 6f 70 65 6e 2d o (read (open-
39b0: 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 28 62 61 input-string (ba
39c0: 73 65 36 34 3a 62 61 73 65 36 34 2d 64 65 63 6f se64:base64-deco
39d0: 64 65 20 28 67 65 74 65 6e 76 20 22 4d 54 5f 43 de (getenv "MT_C
39e0: 4d 44 49 4e 46 4f 22 29 29 29 29 29 0a 09 20 20 MDINFO")))))..
39f0: 20 20 20 20 20 28 74 65 73 74 70 61 74 68 20 20 (testpath
3a00: 28 61 73 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 (assoc/default '
3a10: 74 65 73 74 70 61 74 68 20 20 63 6d 64 69 6e 66 testpath cmdinf
3a20: 6f 29 29 0a 09 20 20 20 20 20 20 20 28 74 65 73 o)).. (tes
3a30: 74 2d 6e 61 6d 65 20 28 61 73 73 6f 63 2f 64 65 t-name (assoc/de
3a40: 66 61 75 6c 74 20 27 74 65 73 74 2d 6e 61 6d 65 fault 'test-name
3a50: 20 63 6d 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 cmdinfo))..
3a60: 20 20 20 28 72 75 6e 73 63 72 69 70 74 20 28 61 (runscript (a
3a70: 73 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 72 75 ssoc/default 'ru
3a80: 6e 73 63 72 69 70 74 20 63 6d 64 69 6e 66 6f 29 nscript cmdinfo)
3a90: 29 0a 09 20 20 20 20 20 20 20 28 64 62 2d 68 6f ).. (db-ho
3aa0: 73 74 20 20 20 28 61 73 73 6f 63 2f 64 65 66 61 st (assoc/defa
3ab0: 75 6c 74 20 27 64 62 2d 68 6f 73 74 20 20 20 63 ult 'db-host c
3ac0: 6d 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 mdinfo))..
3ad0: 20 28 72 75 6e 2d 69 64 20 20 20 20 28 61 73 73 (run-id (ass
3ae0: 6f 63 2f 64 65 66 61 75 6c 74 20 27 72 75 6e 2d oc/default 'run-
3af0: 69 64 20 20 20 20 63 6d 64 69 6e 66 6f 29 29 0a id cmdinfo)).
3b00: 09 20 20 20 20 20 20 20 28 69 74 65 6d 64 61 74 . (itemdat
3b10: 20 20 20 28 61 73 73 6f 63 2f 64 65 66 61 75 6c (assoc/defaul
3b20: 74 20 27 69 74 65 6d 64 61 74 20 20 20 63 6d 64 t 'itemdat cmd
3b30: 69 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 20 28 info)).. (
3b40: 64 62 20 20 20 20 20 20 20 20 23 66 29 0a 09 20 db #f)..
3b50: 20 20 20 20 20 20 28 73 74 61 74 65 20 20 20 20 (state
3b60: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
3b70: 3a 73 74 61 74 65 22 29 29 0a 09 20 20 20 20 20 :state"))..
3b80: 20 20 28 73 74 61 74 75 73 20 20 20 20 28 61 72 (status (ar
3b90: 67 73 3a 67 65 74 2d 61 72 67 20 22 3a 73 74 61 gs:get-arg ":sta
3ba0: 74 75 73 22 29 29 0a 09 20 20 20 20 20 20 20 28 tus")).. (
3bb0: 74 61 72 67 65 74 20 20 20 20 28 61 72 67 73 3a target (args:
3bc0: 67 65 74 2d 61 72 67 20 22 2d 74 61 72 67 65 74 get-arg "-target
3bd0: 22 29 29 29 0a 09 20 20 28 63 68 61 6e 67 65 2d "))).. (change-
3be0: 64 69 72 65 63 74 6f 72 79 20 74 65 73 74 70 61 directory testpa
3bf0: 74 68 29 0a 09 20 20 28 69 66 20 28 6e 6f 74 20 th).. (if (not
3c00: 74 61 72 67 65 74 29 0a 09 20 20 20 20 20 20 28 target).. (
3c10: 62 65 67 69 6e 0a 09 09 28 64 65 62 75 67 3a 70 begin...(debug:p
3c20: 72 69 6e 74 20 30 20 22 45 52 52 4f 52 3a 20 2d rint 0 "ERROR: -
3c30: 74 61 72 67 65 74 20 69 73 20 72 65 71 75 69 72 target is requir
3c40: 65 64 2e 22 29 0a 09 09 28 65 78 69 74 20 31 29 ed.")...(exit 1)
3c50: 29 29 0a 09 20 20 28 69 66 20 28 6e 6f 74 20 28 )).. (if (not (
3c60: 73 65 74 75 70 2d 66 6f 72 2d 72 75 6e 29 29 0a setup-for-run)).
3c70: 09 20 20 20 20 20 20 28 62 65 67 69 6e 0a 09 09 . (begin...
3c80: 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 22 (debug:print 0 "
3c90: 46 61 69 6c 65 64 20 74 6f 20 73 65 74 75 70 2c Failed to setup,
3ca0: 20 67 69 76 69 6e 67 20 75 70 20 6f 6e 20 2d 74 giving up on -t
3cb0: 65 73 74 2d 70 61 74 68 73 2c 20 65 78 69 74 69 est-paths, exiti
3cc0: 6e 67 22 29 0a 09 09 28 65 78 69 74 20 31 29 29 ng")...(exit 1))
3cd0: 29 0a 09 20 20 28 73 65 74 21 20 64 62 20 28 6f ).. (set! db (o
3ce0: 70 65 6e 2d 64 62 29 29 20 20 20 20 0a 09 20 20 pen-db)) ..
3cf0: 28 6c 65 74 2a 20 28 28 69 74 65 6d 70 61 74 74 (let* ((itempatt
3d00: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
3d10: 2d 69 74 65 6d 70 61 74 74 22 29 29 0a 09 09 20 -itempatt"))...
3d20: 28 6b 65 79 73 20 20 20 20 20 28 64 62 2d 67 65 (keys (db-ge
3d30: 74 2d 6b 65 79 73 20 64 62 29 29 0a 09 09 20 28 t-keys db))... (
3d40: 6b 65 79 6e 61 6d 65 73 20 28 6d 61 70 20 6b 65 keynames (map ke
3d50: 79 3a 67 65 74 2d 66 69 65 6c 64 6e 61 6d 65 20 y:get-fieldname
3d60: 6b 65 79 73 29 29 0a 09 09 20 28 70 61 74 68 73 keys))... (paths
3d70: 20 20 20 20 28 64 62 3a 74 65 73 74 2d 67 65 74 (db:test-get
3d80: 2d 70 61 74 68 73 2d 6d 61 74 63 68 69 6e 67 20 -paths-matching
3d90: 64 62 20 6b 65 79 6e 61 6d 65 73 20 74 61 72 67 db keynames targ
3da0: 65 74 29 29 29 0a 09 20 20 20 20 28 73 65 74 21 et))).. (set!
3db0: 20 2a 64 69 64 73 6f 6d 65 74 68 69 6e 67 2a 20 *didsomething*
3dc0: 23 74 29 0a 09 20 20 20 20 28 66 6f 72 2d 65 61 #t).. (for-ea
3dd0: 63 68 20 28 6c 61 6d 62 64 61 20 28 70 61 74 68 ch (lambda (path
3de0: 29 0a 09 09 09 28 70 72 69 6e 74 20 70 61 74 68 )....(print path
3df0: 29 29 0a 09 09 20 20 20 20 20 20 70 61 74 68 73 ))... paths
3e00: 29 29 29 0a 09 3b 3b 20 65 6c 73 65 20 64 6f 20 )))..;; else do
3e10: 61 20 67 65 6e 65 72 61 6c 2d 72 75 6e 2d 63 61 a general-run-ca
3e20: 6c 6c 0a 09 28 67 65 6e 65 72 61 6c 2d 72 75 6e ll..(general-run
3e30: 2d 63 61 6c 6c 20 0a 09 20 22 2d 74 65 73 74 2d -call .. "-test-
3e40: 70 61 74 68 73 22 0a 09 20 22 47 65 74 20 70 61 paths".. "Get pa
3e50: 74 68 73 20 74 6f 20 74 65 73 74 73 22 0a 09 20 ths to tests"..
3e60: 28 6c 61 6d 62 64 61 20 28 64 62 20 74 61 72 67 (lambda (db targ
3e70: 65 74 20 72 75 6e 6e 61 6d 65 20 6b 65 79 73 20 et runname keys
3e80: 6b 65 79 6e 61 6d 65 73 20 6b 65 79 76 61 6c 6c keynames keyvall
3e90: 73 74 29 0a 09 20 20 20 28 6c 65 74 2a 20 28 28 st).. (let* ((
3ea0: 69 74 65 6d 70 61 74 74 20 28 61 72 67 73 3a 67 itempatt (args:g
3eb0: 65 74 2d 61 72 67 20 22 2d 69 74 65 6d 70 61 74 et-arg "-itempat
3ec0: 74 22 29 29 0a 09 09 20 20 28 70 61 74 68 73 20 t"))... (paths
3ed0: 20 20 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d (db:test-get-
3ee0: 70 61 74 68 73 2d 6d 61 74 63 68 69 6e 67 20 64 paths-matching d
3ef0: 62 20 6b 65 79 6e 61 6d 65 73 20 74 61 72 67 65 b keynames targe
3f00: 74 29 29 29 0a 09 20 20 20 20 20 28 66 6f 72 2d t))).. (for-
3f10: 65 61 63 68 20 28 6c 61 6d 62 64 61 20 28 70 61 each (lambda (pa
3f20: 74 68 29 0a 09 09 09 20 28 70 72 69 6e 74 20 70 th).... (print p
3f30: 61 74 68 29 29 0a 09 09 20 20 20 20 20 20 20 70 ath))... p
3f40: 61 74 68 73 29 29 29 29 29 29 0a 0a 3b 3b 3d 3d aths))))))..;;==
3f50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3f90: 3d 3d 3d 3d 0a 3b 3b 20 41 72 63 68 69 76 65 20 ====.;; Archive
3fa0: 74 65 73 74 73 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d tests.;;========
3fb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3fc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3fd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3fe0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b ==============.;
3ff0: 3b 20 41 72 63 68 69 76 65 20 74 65 73 74 73 20 ; Archive tests
4000: 6d 61 74 63 68 69 6e 67 20 74 61 72 67 65 74 2c matching target,
4010: 20 72 75 6e 6e 61 6d 65 2c 20 74 65 73 74 70 61 runname, testpa
4020: 74 74 2c 20 61 6e 64 20 69 74 65 6d 70 61 74 74 tt, and itempatt
4030: 0a 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 .(if (args:get-a
4040: 72 67 20 22 2d 61 72 63 68 69 76 65 22 29 0a 20 rg "-archive").
4050: 20 20 20 3b 3b 20 69 66 20 77 65 20 61 72 65 20 ;; if we are
4060: 69 6e 20 61 20 74 65 73 74 20 75 73 65 20 74 68 in a test use th
4070: 65 20 4d 54 5f 43 4d 44 49 4e 46 4f 20 64 61 74 e MT_CMDINFO dat
4080: 61 0a 20 20 20 20 28 69 66 20 28 67 65 74 65 6e a. (if (geten
4090: 76 20 22 4d 54 5f 43 4d 44 49 4e 46 4f 22 29 0a v "MT_CMDINFO").
40a0: 09 28 6c 65 74 2a 20 28 28 73 74 61 72 74 69 6e .(let* ((startin
40b0: 67 64 69 72 20 28 63 75 72 72 65 6e 74 2d 64 69 gdir (current-di
40c0: 72 65 63 74 6f 72 79 29 29 0a 09 20 20 20 20 20 rectory))..
40d0: 20 20 28 63 6d 64 69 6e 66 6f 20 20 20 28 72 65 (cmdinfo (re
40e0: 61 64 20 28 6f 70 65 6e 2d 69 6e 70 75 74 2d 73 ad (open-input-s
40f0: 74 72 69 6e 67 20 28 62 61 73 65 36 34 3a 62 61 tring (base64:ba
4100: 73 65 36 34 2d 64 65 63 6f 64 65 20 28 67 65 74 se64-decode (get
4110: 65 6e 76 20 22 4d 54 5f 43 4d 44 49 4e 46 4f 22 env "MT_CMDINFO"
4120: 29 29 29 29 29 0a 09 20 20 20 20 20 20 20 28 74 ))))).. (t
4130: 65 73 74 70 61 74 68 20 20 28 61 73 73 6f 63 2f estpath (assoc/
4140: 64 65 66 61 75 6c 74 20 27 74 65 73 74 70 61 74 default 'testpat
4150: 68 20 20 63 6d 64 69 6e 66 6f 29 29 0a 09 20 20 h cmdinfo))..
4160: 20 20 20 20 20 28 74 65 73 74 2d 6e 61 6d 65 20 (test-name
4170: 28 61 73 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 (assoc/default '
4180: 74 65 73 74 2d 6e 61 6d 65 20 63 6d 64 69 6e 66 test-name cmdinf
4190: 6f 29 29 0a 09 20 20 20 20 20 20 20 28 72 75 6e o)).. (run
41a0: 73 63 72 69 70 74 20 28 61 73 73 6f 63 2f 64 65 script (assoc/de
41b0: 66 61 75 6c 74 20 27 72 75 6e 73 63 72 69 70 74 fault 'runscript
41c0: 20 63 6d 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 cmdinfo))..
41d0: 20 20 20 28 64 62 2d 68 6f 73 74 20 20 20 28 61 (db-host (a
41e0: 73 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 64 62 ssoc/default 'db
41f0: 2d 68 6f 73 74 20 20 20 63 6d 64 69 6e 66 6f 29 -host cmdinfo)
4200: 29 0a 09 20 20 20 20 20 20 20 28 72 75 6e 2d 69 ).. (run-i
4210: 64 20 20 20 20 28 61 73 73 6f 63 2f 64 65 66 61 d (assoc/defa
4220: 75 6c 74 20 27 72 75 6e 2d 69 64 20 20 20 20 63 ult 'run-id c
4230: 6d 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 mdinfo))..
4240: 20 28 69 74 65 6d 64 61 74 20 20 20 28 61 73 73 (itemdat (ass
4250: 6f 63 2f 64 65 66 61 75 6c 74 20 27 69 74 65 6d oc/default 'item
4260: 64 61 74 20 20 20 63 6d 64 69 6e 66 6f 29 29 0a dat cmdinfo)).
4270: 09 20 20 20 20 20 20 20 28 64 62 20 20 20 20 20 . (db
4280: 20 20 20 23 66 29 0a 09 20 20 20 20 20 20 20 28 #f).. (
4290: 73 74 61 74 65 20 20 20 20 20 28 61 72 67 73 3a state (args:
42a0: 67 65 74 2d 61 72 67 20 22 3a 73 74 61 74 65 22 get-arg ":state"
42b0: 29 29 0a 09 20 20 20 20 20 20 20 28 73 74 61 74 )).. (stat
42c0: 75 73 20 20 20 20 28 61 72 67 73 3a 67 65 74 2d us (args:get-
42d0: 61 72 67 20 22 3a 73 74 61 74 75 73 22 29 29 0a arg ":status")).
42e0: 09 20 20 20 20 20 20 20 28 74 61 72 67 65 74 20 . (target
42f0: 20 20 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 (args:get-arg
4300: 20 22 2d 74 61 72 67 65 74 22 29 29 29 0a 09 20 "-target")))..
4310: 20 28 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f (change-directo
4320: 72 79 20 74 65 73 74 70 61 74 68 29 0a 09 20 20 ry testpath)..
4330: 28 69 66 20 28 6e 6f 74 20 74 61 72 67 65 74 29 (if (not target)
4340: 0a 09 20 20 20 20 20 20 28 62 65 67 69 6e 0a 09 .. (begin..
4350: 09 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 .(debug:print 0
4360: 22 45 52 52 4f 52 3a 20 2d 74 61 72 67 65 74 20 "ERROR: -target
4370: 69 73 20 72 65 71 75 69 72 65 64 2e 22 29 0a 09 is required.")..
4380: 09 28 65 78 69 74 20 31 29 29 29 0a 09 20 20 28 .(exit 1))).. (
4390: 69 66 20 28 6e 6f 74 20 28 73 65 74 75 70 2d 66 if (not (setup-f
43a0: 6f 72 2d 72 75 6e 29 29 0a 09 20 20 20 20 20 20 or-run))..
43b0: 28 62 65 67 69 6e 0a 09 09 28 64 65 62 75 67 3a (begin...(debug:
43c0: 70 72 69 6e 74 20 30 20 22 46 61 69 6c 65 64 20 print 0 "Failed
43d0: 74 6f 20 73 65 74 75 70 2c 20 67 69 76 69 6e 67 to setup, giving
43e0: 20 75 70 20 6f 6e 20 2d 61 72 63 68 69 76 65 2c up on -archive,
43f0: 20 65 78 69 74 69 6e 67 22 29 0a 09 09 28 65 78 exiting")...(ex
4400: 69 74 20 31 29 29 29 0a 09 20 20 28 73 65 74 21 it 1))).. (set!
4410: 20 64 62 20 28 6f 70 65 6e 2d 64 62 29 29 20 20 db (open-db))
4420: 20 20 0a 09 20 20 28 6c 65 74 2a 20 28 28 69 74 .. (let* ((it
4430: 65 6d 70 61 74 74 20 28 61 72 67 73 3a 67 65 74 empatt (args:get
4440: 2d 61 72 67 20 22 2d 69 74 65 6d 70 61 74 74 22 -arg "-itempatt"
4450: 29 29 0a 09 09 20 28 6b 65 79 73 20 20 20 20 20 ))... (keys
4460: 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 64 62 29 (db-get-keys db)
4470: 29 0a 09 09 20 28 6b 65 79 6e 61 6d 65 73 20 28 )... (keynames (
4480: 6d 61 70 20 6b 65 79 3a 67 65 74 2d 66 69 65 6c map key:get-fiel
4490: 64 6e 61 6d 65 20 6b 65 79 73 29 29 0a 09 09 20 dname keys))...
44a0: 28 70 61 74 68 73 20 20 20 20 28 64 62 3a 74 65 (paths (db:te
44b0: 73 74 2d 67 65 74 2d 70 61 74 68 73 2d 6d 61 74 st-get-paths-mat
44c0: 63 68 69 6e 67 20 64 62 20 6b 65 79 6e 61 6d 65 ching db keyname
44d0: 73 20 74 61 72 67 65 74 29 29 29 0a 09 20 20 20 s target)))..
44e0: 20 28 73 65 74 21 20 2a 64 69 64 73 6f 6d 65 74 (set! *didsomet
44f0: 68 69 6e 67 2a 20 23 74 29 0a 09 20 20 20 20 28 hing* #t).. (
4500: 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 61 for-each (lambda
4510: 20 28 70 61 74 68 29 0a 09 09 09 28 70 72 69 6e (path)....(prin
4520: 74 20 70 61 74 68 29 29 0a 09 09 20 20 20 20 20 t path))...
4530: 20 70 61 74 68 73 29 29 29 0a 09 3b 3b 20 65 6c paths)))..;; el
4540: 73 65 20 64 6f 20 61 20 67 65 6e 65 72 61 6c 2d se do a general-
4550: 72 75 6e 2d 63 61 6c 6c 0a 09 28 67 65 6e 65 72 run-call..(gener
4560: 61 6c 2d 72 75 6e 2d 63 61 6c 6c 20 0a 09 20 22 al-run-call .. "
4570: 2d 74 65 73 74 2d 70 61 74 68 73 22 0a 09 20 22 -test-paths".. "
4580: 47 65 74 20 70 61 74 68 73 20 74 6f 20 74 65 73 Get paths to tes
4590: 74 73 22 0a 09 20 28 6c 61 6d 62 64 61 20 28 64 ts".. (lambda (d
45a0: 62 20 74 61 72 67 65 74 20 72 75 6e 6e 61 6d 65 b target runname
45b0: 20 6b 65 79 73 20 6b 65 79 6e 61 6d 65 73 20 6b keys keynames k
45c0: 65 79 76 61 6c 6c 73 74 29 0a 09 20 20 20 28 6c eyvallst).. (l
45d0: 65 74 2a 20 28 28 69 74 65 6d 70 61 74 74 20 28 et* ((itempatt (
45e0: 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 69 args:get-arg "-i
45f0: 74 65 6d 70 61 74 74 22 29 29 0a 09 09 20 20 28 tempatt"))... (
4600: 70 61 74 68 73 20 20 20 20 28 64 62 3a 74 65 73 paths (db:tes
4610: 74 2d 67 65 74 2d 70 61 74 68 73 2d 6d 61 74 63 t-get-paths-matc
4620: 68 69 6e 67 20 64 62 20 6b 65 79 6e 61 6d 65 73 hing db keynames
4630: 20 74 61 72 67 65 74 29 29 29 0a 09 20 20 20 20 target)))..
4640: 20 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 (for-each (lamb
4650: 64 61 20 28 70 61 74 68 29 0a 09 09 09 20 28 70 da (path).... (p
4660: 72 69 6e 74 20 70 61 74 68 29 29 0a 09 09 20 20 rint path))...
4670: 20 20 20 20 20 70 61 74 68 73 29 29 29 29 29 29 paths))))))
4680: 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ..;;============
4690: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
46a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
46b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
46c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 45 78 ==========.;; Ex
46d0: 74 72 61 63 74 20 61 20 73 70 72 65 61 64 73 68 tract a spreadsh
46e0: 65 65 74 20 66 72 6f 6d 20 74 68 65 20 72 75 6e eet from the run
46f0: 73 20 64 61 74 61 62 61 73 65 0a 3b 3b 3d 3d 3d s database.;;===
4700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4730: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4740: 3d 3d 3d 0a 0a 28 69 66 20 28 61 72 67 73 3a 67 ===..(if (args:g
4750: 65 74 2d 61 72 67 20 22 2d 65 78 74 72 61 63 74 et-arg "-extract
4760: 2d 6f 64 73 22 29 0a 20 20 20 20 28 67 65 6e 65 -ods"). (gene
4770: 72 61 6c 2d 72 75 6e 2d 63 61 6c 6c 0a 20 20 20 ral-run-call.
4780: 20 20 22 2d 65 78 74 72 61 63 74 2d 6f 64 73 22 "-extract-ods"
4790: 0a 20 20 20 20 20 22 4d 61 6b 65 20 6f 64 73 20 . "Make ods
47a0: 73 70 72 65 61 64 73 68 65 65 74 22 0a 20 20 20 spreadsheet".
47b0: 20 20 28 6c 61 6d 62 64 61 20 28 64 62 20 74 61 (lambda (db ta
47c0: 72 67 65 74 20 72 75 6e 6e 61 6d 65 20 6b 65 79 rget runname key
47d0: 73 20 6b 65 79 6e 61 6d 65 73 20 6b 65 79 76 61 s keynames keyva
47e0: 6c 6c 73 74 29 0a 20 20 20 20 20 20 20 28 6c 65 llst). (le
47f0: 74 20 28 28 6f 75 74 70 75 74 66 69 6c 65 20 28 t ((outputfile (
4800: 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 65 args:get-arg "-e
4810: 78 74 72 61 63 74 2d 6f 64 73 22 29 29 0a 09 20 xtract-ods"))..
4820: 20 20 20 20 28 72 75 6e 73 70 61 74 74 20 20 20 (runspatt
4830: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 3a (args:get-arg ":
4840: 72 75 6e 6e 61 6d 65 22 29 29 0a 09 20 20 20 20 runname"))..
4850: 20 28 70 61 74 68 6d 6f 64 20 20 20 20 28 61 72 (pathmod (ar
4860: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 70 61 74 gs:get-arg "-pat
4870: 68 6d 6f 64 22 29 29 0a 09 20 20 20 20 20 28 6b hmod")).. (k
4880: 65 79 76 61 6c 61 6c 69 73 74 20 28 6b 65 79 73 eyvalalist (keys
4890: 2d 3e 61 6c 69 73 74 20 6b 65 79 73 20 22 25 22 ->alist keys "%"
48a0: 29 29 29 0a 09 20 28 64 65 62 75 67 3a 70 72 69 ))).. (debug:pri
48b0: 6e 74 20 32 20 22 45 78 74 72 61 63 74 20 6f 64 nt 2 "Extract od
48c0: 73 2c 20 6f 75 74 70 75 74 66 69 6c 65 3a 20 22 s, outputfile: "
48d0: 20 6f 75 74 70 75 74 66 69 6c 65 20 22 20 72 75 outputfile " ru
48e0: 6e 73 70 61 74 74 3a 20 22 20 72 75 6e 73 70 61 nspatt: " runspa
48f0: 74 74 20 22 20 6b 65 79 76 61 6c 61 6c 69 73 74 tt " keyvalalist
4900: 3a 20 22 20 6b 65 79 76 61 6c 61 6c 69 73 74 29 : " keyvalalist)
4910: 0a 09 20 28 64 62 3a 65 78 74 72 61 63 74 2d 6f .. (db:extract-o
4920: 64 73 2d 66 69 6c 65 20 64 62 20 6f 75 74 70 75 ds-file db outpu
4930: 74 66 69 6c 65 20 6b 65 79 76 61 6c 61 6c 69 73 tfile keyvalalis
4940: 74 20 28 69 66 20 72 75 6e 73 70 61 74 74 20 72 t (if runspatt r
4950: 75 6e 73 70 61 74 74 20 22 25 22 29 20 70 61 74 unspatt "%") pat
4960: 68 6d 6f 64 29 29 29 29 29 0a 0a 3b 3b 3d 3d 3d hmod)))))..;;===
4970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4980: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4990: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
49a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
49b0: 3d 3d 3d 0a 3b 3b 20 65 78 65 63 75 74 65 20 74 ===.;; execute t
49c0: 68 65 20 74 65 73 74 0a 3b 3b 20 20 20 20 2d 20 he test.;; -
49d0: 67 65 74 73 20 63 61 6c 6c 65 64 20 6f 6e 20 72 gets called on r
49e0: 65 6d 6f 74 65 20 68 6f 73 74 0a 3b 3b 20 20 20 emote host.;;
49f0: 20 2d 20 72 65 63 65 69 76 65 73 20 69 6e 66 6f - receives info
4a00: 20 66 72 6f 6d 20 74 68 65 20 2d 65 78 65 63 75 from the -execu
4a10: 74 65 20 70 61 72 61 6d 0a 3b 3b 20 20 20 20 2d te param.;; -
4a20: 20 70 61 73 73 65 73 20 69 6e 66 6f 20 74 6f 20 passes info to
4a30: 73 74 65 70 73 20 76 69 61 20 4d 54 5f 43 4d 44 steps via MT_CMD
4a40: 49 4e 46 4f 20 65 6e 76 20 76 61 72 20 28 66 75 INFO env var (fu
4a50: 74 75 72 65 20 69 73 20 74 6f 20 75 73 65 20 61 ture is to use a
4a60: 20 64 6f 74 20 66 69 6c 65 29 0a 3b 3b 20 20 20 dot file).;;
4a70: 20 2d 20 67 61 74 68 65 72 73 20 68 6f 73 74 20 - gathers host
4a80: 69 6e 66 6f 20 61 6e 64 20 0a 3b 3b 3d 3d 3d 3d info and .;;====
4a90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4aa0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
4ad0: 3d 3d 0a 0a 28 69 66 20 28 61 72 67 73 3a 67 65 ==..(if (args:ge
4ae0: 74 2d 61 72 67 20 22 2d 65 78 65 63 75 74 65 22 t-arg "-execute"
4af0: 29 0a 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 ). (begin.
4b00: 20 20 20 28 6c 61 75 6e 63 68 3a 65 78 65 63 75 (launch:execu
4b10: 74 65 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 te (args:get-arg
4b20: 20 22 2d 65 78 65 63 75 74 65 22 29 29 0a 20 20 "-execute")).
4b30: 20 20 20 20 28 73 65 74 21 20 2a 64 69 64 73 6f (set! *didso
4b40: 6d 65 74 68 69 6e 67 2a 20 23 74 29 29 29 0a 0a mething* #t)))..
4b50: 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (if (args:get-ar
4b60: 67 20 22 2d 73 74 65 70 22 29 0a 20 20 20 20 28 g "-step"). (
4b70: 69 66 20 28 6e 6f 74 20 28 67 65 74 65 6e 76 20 if (not (getenv
4b80: 22 4d 54 5f 43 4d 44 49 4e 46 4f 22 29 29 0a 09 "MT_CMDINFO"))..
4b90: 28 62 65 67 69 6e 0a 09 20 20 28 64 65 62 75 67 (begin.. (debug
4ba0: 3a 70 72 69 6e 74 20 30 20 22 45 52 52 4f 52 3a :print 0 "ERROR:
4bb0: 20 4d 54 5f 43 4d 44 49 4e 46 4f 20 65 6e 76 20 MT_CMDINFO env
4bc0: 76 61 72 20 6e 6f 74 20 73 65 74 2c 20 2d 73 74 var not set, -st
4bd0: 65 70 20 6d 75 73 74 20 62 65 20 63 61 6c 6c 65 ep must be calle
4be0: 64 20 2a 69 6e 73 69 64 65 2a 20 61 20 6d 65 67 d *inside* a meg
4bf0: 61 74 65 73 74 20 69 6e 76 6f 6b 65 64 20 65 6e atest invoked en
4c00: 76 69 72 6f 6e 6d 65 6e 74 21 22 29 0a 09 20 20 vironment!")..
4c10: 28 65 78 69 74 20 35 29 29 0a 09 28 6c 65 74 2a (exit 5))..(let*
4c20: 20 28 28 73 74 65 70 20 20 20 20 20 20 28 61 72 ((step (ar
4c30: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 73 74 65 gs:get-arg "-ste
4c40: 70 22 29 29 0a 09 20 20 20 20 20 20 20 28 63 6d p")).. (cm
4c50: 64 69 6e 66 6f 20 20 20 28 72 65 61 64 20 28 6f dinfo (read (o
4c60: 70 65 6e 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 pen-input-string
4c70: 20 28 62 61 73 65 36 34 3a 62 61 73 65 36 34 2d (base64:base64-
4c80: 64 65 63 6f 64 65 20 28 67 65 74 65 6e 76 20 22 decode (getenv "
4c90: 4d 54 5f 43 4d 44 49 4e 46 4f 22 29 29 29 29 29 MT_CMDINFO")))))
4ca0: 0a 09 20 20 20 20 20 20 20 28 74 65 73 74 70 61 .. (testpa
4cb0: 74 68 20 20 28 61 73 73 6f 63 2f 64 65 66 61 75 th (assoc/defau
4cc0: 6c 74 20 27 74 65 73 74 70 61 74 68 20 20 63 6d lt 'testpath cm
4cd0: 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 20 dinfo))..
4ce0: 28 74 65 73 74 2d 6e 61 6d 65 20 28 61 73 73 6f (test-name (asso
4cf0: 63 2f 64 65 66 61 75 6c 74 20 27 74 65 73 74 2d c/default 'test-
4d00: 6e 61 6d 65 20 63 6d 64 69 6e 66 6f 29 29 0a 09 name cmdinfo))..
4d10: 20 20 20 20 20 20 20 28 72 75 6e 73 63 72 69 70 (runscrip
4d20: 74 20 28 61 73 73 6f 63 2f 64 65 66 61 75 6c 74 t (assoc/default
4d30: 20 27 72 75 6e 73 63 72 69 70 74 20 63 6d 64 69 'runscript cmdi
4d40: 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 20 28 64 nfo)).. (d
4d50: 62 2d 68 6f 73 74 20 20 20 28 61 73 73 6f 63 2f b-host (assoc/
4d60: 64 65 66 61 75 6c 74 20 27 64 62 2d 68 6f 73 74 default 'db-host
4d70: 20 20 20 63 6d 64 69 6e 66 6f 29 29 0a 09 20 20 cmdinfo))..
4d80: 20 20 20 20 20 28 72 75 6e 2d 69 64 20 20 20 20 (run-id
4d90: 28 61 73 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 (assoc/default '
4da0: 72 75 6e 2d 69 64 20 20 20 20 63 6d 64 69 6e 66 run-id cmdinf
4db0: 6f 29 29 0a 09 20 20 20 20 20 20 20 28 69 74 65 o)).. (ite
4dc0: 6d 64 61 74 20 20 20 28 61 73 73 6f 63 2f 64 65 mdat (assoc/de
4dd0: 66 61 75 6c 74 20 27 69 74 65 6d 64 61 74 20 20 fault 'itemdat
4de0: 20 63 6d 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 cmdinfo))..
4df0: 20 20 20 28 64 62 20 20 20 20 20 20 20 20 23 66 (db #f
4e00: 29 0a 09 20 20 20 20 20 20 20 28 73 74 61 74 65 ).. (state
4e10: 20 20 20 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (args:get-ar
4e20: 67 20 22 3a 73 74 61 74 65 22 29 29 0a 09 20 20 g ":state"))..
4e30: 20 20 20 20 20 28 73 74 61 74 75 73 20 20 20 28 (status (
4e40: 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 3a 73 args:get-arg ":s
4e50: 74 61 74 75 73 22 29 29 0a 09 20 20 20 20 20 20 tatus"))..
4e60: 20 28 6c 6f 67 66 69 6c 65 20 20 28 61 72 67 73 (logfile (args
4e70: 3a 67 65 74 2d 61 72 67 20 22 2d 73 65 74 6c 6f :get-arg "-setlo
4e80: 67 22 29 29 29 0a 09 20 20 28 63 68 61 6e 67 65 g"))).. (change
4e90: 2d 64 69 72 65 63 74 6f 72 79 20 74 65 73 74 70 -directory testp
4ea0: 61 74 68 29 0a 09 20 20 28 69 66 20 28 6e 6f 74 ath).. (if (not
4eb0: 20 28 73 65 74 75 70 2d 66 6f 72 2d 72 75 6e 29 (setup-for-run)
4ec0: 29 0a 09 20 20 20 20 20 20 28 62 65 67 69 6e 0a ).. (begin.
4ed0: 09 09 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 ..(debug:print 0
4ee0: 20 22 46 61 69 6c 65 64 20 74 6f 20 73 65 74 75 "Failed to setu
4ef0: 70 2c 20 65 78 69 74 69 6e 67 22 29 0a 09 09 28 p, exiting")...(
4f00: 65 78 69 74 20 31 29 29 29 0a 09 20 20 28 73 65 exit 1))).. (se
4f10: 74 21 20 64 62 20 28 6f 70 65 6e 2d 64 62 29 29 t! db (open-db))
4f20: 0a 09 20 20 28 69 66 20 28 61 6e 64 20 73 74 61 .. (if (and sta
4f30: 74 65 20 73 74 61 74 75 73 29 0a 09 20 20 20 20 te status)..
4f40: 20 20 28 72 64 62 3a 74 65 73 74 73 74 65 70 2d (rdb:teststep-
4f50: 73 65 74 2d 73 74 61 74 75 73 21 20 64 62 20 72 set-status! db r
4f60: 75 6e 2d 69 64 20 74 65 73 74 2d 6e 61 6d 65 20 un-id test-name
4f70: 73 74 65 70 20 73 74 61 74 65 20 73 74 61 74 75 step state statu
4f80: 73 20 69 74 65 6d 64 61 74 20 28 61 72 67 73 3a s itemdat (args:
4f90: 67 65 74 2d 61 72 67 20 22 2d 6d 22 29 20 6c 6f get-arg "-m") lo
4fa0: 67 66 69 6c 65 29 0a 09 20 20 20 20 20 20 28 62 gfile).. (b
4fb0: 65 67 69 6e 0a 09 09 28 64 65 62 75 67 3a 70 72 egin...(debug:pr
4fc0: 69 6e 74 20 30 20 22 45 52 52 4f 52 3a 20 59 6f int 0 "ERROR: Yo
4fd0: 75 20 6d 75 73 74 20 73 70 65 63 69 66 79 20 3a u must specify :
4fe0: 73 74 61 74 65 20 61 6e 64 20 3a 73 74 61 74 75 state and :statu
4ff0: 73 20 77 69 74 68 20 65 76 65 72 79 20 63 61 6c s with every cal
5000: 6c 20 74 6f 20 2d 73 74 65 70 22 29 0a 09 09 28 l to -step")...(
5010: 65 78 69 74 20 36 29 29 29 0a 09 20 20 28 73 71 exit 6))).. (sq
5020: 6c 69 74 65 33 3a 66 69 6e 61 6c 69 7a 65 21 20 lite3:finalize!
5030: 64 62 29 0a 09 20 20 28 73 65 74 21 20 2a 64 69 db).. (set! *di
5040: 64 73 6f 6d 65 74 68 69 6e 67 2a 20 23 74 29 29 dsomething* #t))
5050: 29 29 0a 0a 28 69 66 20 28 6f 72 20 28 61 72 67 ))..(if (or (arg
5060: 73 3a 67 65 74 2d 61 72 67 20 22 2d 73 65 74 6c s:get-arg "-setl
5070: 6f 67 22 29 20 20 20 20 20 20 20 3b 3b 20 73 69 og") ;; si
5080: 6e 63 65 20 73 65 74 74 69 6e 67 20 75 70 20 69 nce setting up i
5090: 73 20 73 6f 20 63 6f 73 74 6c 79 20 6c 65 74 73 s so costly lets
50a0: 20 70 69 67 67 79 62 61 63 6b 20 6f 6e 20 2d 74 piggyback on -t
50b0: 65 73 74 2d 73 74 61 74 75 73 0a 09 28 61 72 67 est-status..(arg
50c0: 73 3a 67 65 74 2d 61 72 67 20 22 2d 73 65 74 2d s:get-arg "-set-
50d0: 74 6f 70 6c 6f 67 22 29 0a 09 28 61 72 67 73 3a toplog")..(args:
50e0: 67 65 74 2d 61 72 67 20 22 2d 74 65 73 74 2d 73 get-arg "-test-s
50f0: 74 61 74 75 73 22 29 0a 09 28 61 72 67 73 3a 67 tatus")..(args:g
5100: 65 74 2d 61 72 67 20 22 2d 73 65 74 2d 76 61 6c et-arg "-set-val
5110: 75 65 73 22 29 0a 09 28 61 72 67 73 3a 67 65 74 ues")..(args:get
5120: 2d 61 72 67 20 22 2d 6c 6f 61 64 2d 74 65 73 74 -arg "-load-test
5130: 2d 64 61 74 61 22 29 0a 09 28 61 72 67 73 3a 67 -data")..(args:g
5140: 65 74 2d 61 72 67 20 22 2d 72 75 6e 73 74 65 70 et-arg "-runstep
5150: 22 29 0a 09 28 61 72 67 73 3a 67 65 74 2d 61 72 ")..(args:get-ar
5160: 67 20 22 2d 73 75 6d 6d 61 72 69 7a 65 2d 69 74 g "-summarize-it
5170: 65 6d 73 22 29 29 0a 20 20 20 20 28 69 66 20 28 ems")). (if (
5180: 6e 6f 74 20 28 67 65 74 65 6e 76 20 22 4d 54 5f not (getenv "MT_
5190: 43 4d 44 49 4e 46 4f 22 29 29 0a 09 28 62 65 67 CMDINFO"))..(beg
51a0: 69 6e 0a 09 20 20 28 64 65 62 75 67 3a 70 72 69 in.. (debug:pri
51b0: 6e 74 20 30 20 22 45 52 52 4f 52 3a 20 4d 54 5f nt 0 "ERROR: MT_
51c0: 43 4d 44 49 4e 46 4f 20 65 6e 76 20 76 61 72 20 CMDINFO env var
51d0: 6e 6f 74 20 73 65 74 2c 20 63 6f 6d 6d 61 6e 64 not set, command
51e0: 73 20 2d 74 65 73 74 2d 73 74 61 74 75 73 2c 20 s -test-status,
51f0: 2d 72 75 6e 73 74 65 70 20 61 6e 64 20 2d 73 65 -runstep and -se
5200: 74 6c 6f 67 20 6d 75 73 74 20 62 65 20 63 61 6c tlog must be cal
5210: 6c 65 64 20 2a 69 6e 73 69 64 65 2a 20 61 20 6d led *inside* a m
5220: 65 67 61 74 65 73 74 20 65 6e 76 69 72 6f 6e 6d egatest environm
5230: 65 6e 74 21 22 29 0a 09 20 20 28 65 78 69 74 20 ent!").. (exit
5240: 35 29 29 0a 09 28 6c 65 74 2a 20 28 28 73 74 61 5))..(let* ((sta
5250: 72 74 69 6e 67 64 69 72 20 28 63 75 72 72 65 6e rtingdir (curren
5260: 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 09 20 t-directory))..
5270: 20 20 20 20 20 20 28 63 6d 64 69 6e 66 6f 20 20 (cmdinfo
5280: 20 28 72 65 61 64 20 28 6f 70 65 6e 2d 69 6e 70 (read (open-inp
5290: 75 74 2d 73 74 72 69 6e 67 20 28 62 61 73 65 36 ut-string (base6
52a0: 34 3a 62 61 73 65 36 34 2d 64 65 63 6f 64 65 20 4:base64-decode
52b0: 28 67 65 74 65 6e 76 20 22 4d 54 5f 43 4d 44 49 (getenv "MT_CMDI
52c0: 4e 46 4f 22 29 29 29 29 29 0a 09 20 20 20 20 20 NFO")))))..
52d0: 20 20 28 74 65 73 74 70 61 74 68 20 20 28 61 73 (testpath (as
52e0: 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 74 65 73 soc/default 'tes
52f0: 74 70 61 74 68 20 20 63 6d 64 69 6e 66 6f 29 29 tpath cmdinfo))
5300: 0a 09 20 20 20 20 20 20 20 28 74 65 73 74 2d 6e .. (test-n
5310: 61 6d 65 20 28 61 73 73 6f 63 2f 64 65 66 61 75 ame (assoc/defau
5320: 6c 74 20 27 74 65 73 74 2d 6e 61 6d 65 20 63 6d lt 'test-name cm
5330: 64 69 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 20 dinfo))..
5340: 28 72 75 6e 73 63 72 69 70 74 20 28 61 73 73 6f (runscript (asso
5350: 63 2f 64 65 66 61 75 6c 74 20 27 72 75 6e 73 63 c/default 'runsc
5360: 72 69 70 74 20 63 6d 64 69 6e 66 6f 29 29 0a 09 ript cmdinfo))..
5370: 20 20 20 20 20 20 20 28 64 62 2d 68 6f 73 74 20 (db-host
5380: 20 20 28 61 73 73 6f 63 2f 64 65 66 61 75 6c 74 (assoc/default
5390: 20 27 64 62 2d 68 6f 73 74 20 20 20 63 6d 64 69 'db-host cmdi
53a0: 6e 66 6f 29 29 0a 09 20 20 20 20 20 20 20 28 72 nfo)).. (r
53b0: 75 6e 2d 69 64 20 20 20 20 28 61 73 73 6f 63 2f un-id (assoc/
53c0: 64 65 66 61 75 6c 74 20 27 72 75 6e 2d 69 64 20 default 'run-id
53d0: 20 20 20 63 6d 64 69 6e 66 6f 29 29 0a 09 20 20 cmdinfo))..
53e0: 20 20 20 20 20 28 69 74 65 6d 64 61 74 20 20 20 (itemdat
53f0: 28 61 73 73 6f 63 2f 64 65 66 61 75 6c 74 20 27 (assoc/default '
5400: 69 74 65 6d 64 61 74 20 20 20 63 6d 64 69 6e 66 itemdat cmdinf
5410: 6f 29 29 0a 09 20 20 20 20 20 20 20 28 64 62 20 o)).. (db
5420: 20 20 20 20 20 20 20 23 66 29 0a 09 20 20 20 20 #f)..
5430: 20 20 20 28 73 74 61 74 65 20 20 20 20 20 28 61 (state (a
5440: 72 67 73 3a 67 65 74 2d 61 72 67 20 22 3a 73 74 rgs:get-arg ":st
5450: 61 74 65 22 29 29 0a 09 20 20 20 20 20 20 20 28 ate")).. (
5460: 73 74 61 74 75 73 20 20 20 20 28 61 72 67 73 3a status (args:
5470: 67 65 74 2d 61 72 67 20 22 3a 73 74 61 74 75 73 get-arg ":status
5480: 22 29 29 29 0a 09 20 20 28 63 68 61 6e 67 65 2d "))).. (change-
5490: 64 69 72 65 63 74 6f 72 79 20 74 65 73 74 70 61 directory testpa
54a0: 74 68 29 0a 09 20 20 28 69 66 20 28 6e 6f 74 20 th).. (if (not
54b0: 28 73 65 74 75 70 2d 66 6f 72 2d 72 75 6e 29 29 (setup-for-run))
54c0: 0a 09 20 20 20 20 20 20 28 62 65 67 69 6e 0a 09 .. (begin..
54d0: 09 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 .(debug:print 0
54e0: 22 46 61 69 6c 65 64 20 74 6f 20 73 65 74 75 70 "Failed to setup
54f0: 2c 20 65 78 69 74 69 6e 67 22 29 0a 09 09 28 65 , exiting")...(e
5500: 78 69 74 20 31 29 29 29 0a 09 20 20 28 73 65 74 xit 1))).. (set
5510: 21 20 64 62 20 28 6f 70 65 6e 2d 64 62 29 29 0a ! db (open-db)).
5520: 09 20 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 . (if (args:get
5530: 2d 61 72 67 20 22 2d 6c 6f 61 64 2d 74 65 73 74 -arg "-load-test
5540: 2d 64 61 74 61 22 29 0a 09 20 20 20 20 20 20 28 -data").. (
5550: 64 62 3a 6c 6f 61 64 2d 74 65 73 74 2d 64 61 74 db:load-test-dat
5560: 61 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 a db run-id test
5570: 2d 6e 61 6d 65 20 69 74 65 6d 64 61 74 29 29 0a -name itemdat)).
5580: 09 20 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 . (if (args:get
5590: 2d 61 72 67 20 22 2d 73 65 74 6c 6f 67 22 29 0a -arg "-setlog").
55a0: 09 20 20 20 20 20 20 28 74 65 73 74 2d 73 65 74 . (test-set
55b0: 2d 6c 6f 67 21 20 64 62 20 72 75 6e 2d 69 64 20 -log! db run-id
55c0: 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 64 61 test-name itemda
55d0: 74 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 t (args:get-arg
55e0: 22 2d 73 65 74 6c 6f 67 22 29 29 29 0a 09 20 20 "-setlog")))..
55f0: 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (if (args:get-ar
5600: 67 20 22 2d 73 65 74 2d 74 6f 70 6c 6f 67 22 29 g "-set-toplog")
5610: 0a 09 20 20 20 20 20 20 28 74 65 73 74 2d 73 65 .. (test-se
5620: 74 2d 74 6f 70 6c 6f 67 21 20 64 62 20 72 75 6e t-toplog! db run
5630: 2d 69 64 20 74 65 73 74 2d 6e 61 6d 65 20 28 61 -id test-name (a
5640: 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 73 65 rgs:get-arg "-se
5650: 74 2d 74 6f 70 6c 6f 67 22 29 29 29 0a 09 20 20 t-toplog")))..
5660: 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 (if (args:get-ar
5670: 67 20 22 2d 73 75 6d 6d 61 72 69 7a 65 2d 69 74 g "-summarize-it
5680: 65 6d 73 22 29 0a 09 20 20 20 20 20 20 28 74 65 ems").. (te
5690: 73 74 73 3a 73 75 6d 6d 61 72 69 7a 65 2d 69 74 sts:summarize-it
56a0: 65 6d 73 20 64 62 20 72 75 6e 2d 69 64 20 74 65 ems db run-id te
56b0: 73 74 2d 6e 61 6d 65 20 23 74 29 29 20 3b 3b 20 st-name #t)) ;;
56c0: 64 6f 20 66 6f 72 63 65 20 68 65 72 65 0a 09 20 do force here..
56d0: 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 (if (args:get-a
56e0: 72 67 20 22 2d 72 75 6e 73 74 65 70 22 29 0a 09 rg "-runstep")..
56f0: 20 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 3f (if (null?
5700: 20 72 65 6d 61 72 67 73 29 0a 09 09 20 20 28 62 remargs)... (b
5710: 65 67 69 6e 0a 09 09 20 20 20 20 28 64 65 62 75 egin... (debu
5720: 67 3a 70 72 69 6e 74 20 30 20 22 45 52 52 4f 52 g:print 0 "ERROR
5730: 3a 20 6e 6f 74 68 69 6e 67 20 73 70 65 63 69 66 : nothing specif
5740: 69 65 64 20 74 6f 20 72 75 6e 21 22 29 0a 09 09 ied to run!")...
5750: 20 20 20 20 28 73 71 6c 69 74 65 33 3a 66 69 6e (sqlite3:fin
5760: 61 6c 69 7a 65 21 20 64 62 29 0a 09 09 20 20 20 alize! db)...
5770: 20 28 65 78 69 74 20 36 29 29 0a 09 09 20 20 28 (exit 6))... (
5780: 6c 65 74 2a 20 28 28 73 74 65 70 6e 61 6d 65 20 let* ((stepname
5790: 20 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 (args:get-arg
57a0: 22 2d 72 75 6e 73 74 65 70 22 29 29 0a 09 09 09 "-runstep"))....
57b0: 20 28 6c 6f 67 70 72 6f 66 69 6c 65 20 28 61 72 (logprofile (ar
57c0: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 6c 6f 67 gs:get-arg "-log
57d0: 70 72 6f 22 29 29 0a 09 09 09 20 28 6c 6f 67 66 pro")).... (logf
57e0: 69 6c 65 20 20 20 20 28 63 6f 6e 63 20 73 74 65 ile (conc ste
57f0: 70 6e 61 6d 65 20 22 2e 6c 6f 67 22 29 29 0a 09 pname ".log"))..
5800: 09 09 20 28 63 6d 64 20 20 20 20 20 20 20 20 28 .. (cmd (
5810: 69 66 20 28 6e 75 6c 6c 3f 20 72 65 6d 61 72 67 if (null? remarg
5820: 73 29 20 23 66 20 28 63 61 72 20 72 65 6d 61 72 s) #f (car remar
5830: 67 73 29 29 29 0a 09 09 09 20 28 70 61 72 61 6d gs))).... (param
5840: 73 20 20 20 20 20 28 69 66 20 63 6d 64 20 28 63 s (if cmd (c
5850: 64 72 20 72 65 6d 61 72 67 73 29 20 27 28 29 29 dr remargs) '())
5860: 29 0a 09 09 09 20 28 65 78 69 74 73 74 61 74 20 ).... (exitstat
5870: 20 20 23 66 29 0a 09 09 09 20 28 73 68 65 6c 6c #f).... (shell
5880: 20 20 20 20 20 20 28 6c 61 73 74 20 28 73 74 72 (last (str
5890: 69 6e 67 2d 73 70 6c 69 74 20 28 67 65 74 2d 65 ing-split (get-e
58a0: 6e 76 69 72 6f 6e 6d 65 6e 74 2d 76 61 72 69 61 nvironment-varia
58b0: 62 6c 65 20 22 53 48 45 4c 4c 22 29 20 22 2f 22 ble "SHELL") "/"
58c0: 29 29 29 0a 09 09 09 20 28 72 65 64 69 72 20 20 ))).... (redir
58d0: 20 20 20 20 28 63 61 73 65 20 28 73 74 72 69 6e (case (strin
58e0: 67 2d 3e 73 79 6d 62 6f 6c 20 73 68 65 6c 6c 29 g->symbol shell)
58f0: 0a 09 09 09 09 20 20 20 20 20 20 20 28 28 74 63 ..... ((tc
5900: 73 68 20 63 73 68 20 6b 73 68 29 20 20 20 20 22 sh csh ksh) "
5910: 3e 26 22 29 0a 09 09 09 09 20 20 20 20 20 20 20 >&").....
5920: 28 28 7a 73 68 20 62 61 73 68 20 73 68 20 61 73 ((zsh bash sh as
5930: 68 29 20 22 32 3e 26 31 20 3e 22 29 29 29 0a 09 h) "2>&1 >")))..
5940: 09 09 20 28 66 75 6c 6c 63 6d 64 20 20 20 20 28 .. (fullcmd (
5950: 63 6f 6e 63 20 22 28 22 20 28 73 74 72 69 6e 67 conc "(" (string
5960: 2d 69 6e 74 65 72 73 70 65 72 73 65 20 0a 09 09 -intersperse ...
5970: 09 09 09 09 28 63 6f 6e 73 20 63 6d 64 20 70 61 ....(cons cmd pa
5980: 72 61 6d 73 29 20 22 20 22 29 0a 09 09 09 09 09 rams) " ")......
5990: 20 20 20 22 29 20 22 20 72 65 64 69 72 20 22 20 ") " redir "
59a0: 22 20 6c 6f 67 66 69 6c 65 29 29 29 0a 09 09 20 " logfile)))...
59b0: 20 20 20 3b 3b 20 6d 61 72 6b 20 74 68 65 20 73 ;; mark the s
59c0: 74 61 72 74 20 6f 66 20 74 68 65 20 74 65 73 74 tart of the test
59d0: 0a 09 09 20 20 20 20 28 72 64 62 3a 74 65 73 74 ... (rdb:test
59e0: 73 74 65 70 2d 73 65 74 2d 73 74 61 74 75 73 21 step-set-status!
59f0: 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 74 2d db run-id test-
5a00: 6e 61 6d 65 20 73 74 65 70 6e 61 6d 65 20 22 73 name stepname "s
5a10: 74 61 72 74 22 20 22 6e 2f 61 22 20 69 74 65 6d tart" "n/a" item
5a20: 64 61 74 20 28 61 72 67 73 3a 67 65 74 2d 61 72 dat (args:get-ar
5a30: 67 20 22 2d 6d 22 29 20 6c 6f 67 66 69 6c 65 29 g "-m") logfile)
5a40: 0a 09 09 20 20 20 20 3b 3b 20 63 6c 6f 73 65 20 ... ;; close
5a50: 74 68 65 20 64 62 0a 09 09 20 20 20 20 28 73 71 the db... (sq
5a60: 6c 69 74 65 33 3a 66 69 6e 61 6c 69 7a 65 21 20 lite3:finalize!
5a70: 64 62 29 0a 09 09 20 20 20 20 3b 3b 20 72 75 6e db)... ;; run
5a80: 20 74 68 65 20 74 65 73 74 20 73 74 65 70 0a 09 the test step..
5a90: 09 20 20 20 20 28 64 65 62 75 67 3a 70 72 69 6e . (debug:prin
5aa0: 74 20 32 20 22 49 4e 46 4f 3a 20 52 75 6e 6e 69 t 2 "INFO: Runni
5ab0: 6e 67 20 5c 22 22 20 66 75 6c 6c 63 6d 64 20 22 ng \"" fullcmd "
5ac0: 5c 22 22 29 0a 09 09 20 20 20 20 28 63 68 61 6e \"")... (chan
5ad0: 67 65 2d 64 69 72 65 63 74 6f 72 79 20 73 74 61 ge-directory sta
5ae0: 72 74 69 6e 67 64 69 72 29 0a 09 09 20 20 20 20 rtingdir)...
5af0: 28 73 65 74 21 20 65 78 69 74 73 74 61 74 20 28 (set! exitstat (
5b00: 73 79 73 74 65 6d 20 66 75 6c 6c 63 6d 64 29 29 system fullcmd))
5b10: 20 3b 3b 20 63 6d 64 20 70 61 72 61 6d 73 29 29 ;; cmd params))
5b20: 0a 09 09 20 20 20 20 28 73 65 74 21 20 2a 67 6c ... (set! *gl
5b30: 6f 62 61 6c 65 78 69 74 73 74 61 74 75 73 2a 20 obalexitstatus*
5b40: 65 78 69 74 73 74 61 74 29 0a 09 09 20 20 20 20 exitstat)...
5b50: 28 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 (change-director
5b60: 79 20 74 65 73 74 70 61 74 68 29 0a 09 09 20 20 y testpath)...
5b70: 20 20 3b 3b 20 72 65 2d 6f 70 65 6e 20 74 68 65 ;; re-open the
5b80: 20 64 62 0a 09 09 20 20 20 20 28 73 65 74 21 20 db... (set!
5b90: 64 62 20 28 6f 70 65 6e 2d 64 62 29 29 20 0a 09 db (open-db)) ..
5ba0: 09 20 20 20 20 3b 3b 20 72 75 6e 20 6c 6f 67 70 . ;; run logp
5bb0: 72 6f 20 69 66 20 61 70 70 6c 69 63 61 62 6c 65 ro if applicable
5bc0: 20 3b 3b 20 28 70 72 6f 63 65 73 73 2d 72 75 6e ;; (process-run
5bd0: 20 22 6c 73 22 20 28 6c 69 73 74 20 22 2f 66 6f "ls" (list "/fo
5be0: 6f 22 20 22 32 3e 26 31 22 20 22 62 6c 61 68 2e o" "2>&1" "blah.
5bf0: 6c 6f 67 22 29 29 0a 09 09 20 20 20 20 28 69 66 log"))... (if
5c00: 20 6c 6f 67 70 72 6f 66 69 6c 65 0a 09 09 09 28 logprofile....(
5c10: 6c 65 74 2a 20 28 28 68 74 6d 6c 6c 6f 67 66 69 let* ((htmllogfi
5c20: 6c 65 20 28 63 6f 6e 63 20 73 74 65 70 6e 61 6d le (conc stepnam
5c30: 65 20 22 2e 68 74 6d 6c 22 29 29 0a 09 09 09 20 e ".html"))....
5c40: 20 20 20 20 20 20 28 6f 6c 64 65 78 69 74 73 74 (oldexitst
5c50: 61 74 20 65 78 69 74 73 74 61 74 29 0a 09 09 09 at exitstat)....
5c60: 20 20 20 20 20 20 20 28 63 6d 64 20 20 20 20 20 (cmd
5c70: 20 20 20 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 (string-inte
5c80: 72 73 70 65 72 73 65 20 28 6c 69 73 74 20 22 6c rsperse (list "l
5c90: 6f 67 70 72 6f 22 20 6c 6f 67 70 72 6f 66 69 6c ogpro" logprofil
5ca0: 65 20 68 74 6d 6c 6c 6f 67 66 69 6c 65 20 22 3c e htmllogfile "<
5cb0: 22 20 6c 6f 67 66 69 6c 65 20 22 3e 22 20 28 63 " logfile ">" (c
5cc0: 6f 6e 63 20 73 74 65 70 6e 61 6d 65 20 22 5f 6c onc stepname "_l
5cd0: 6f 67 70 72 6f 2e 6c 6f 67 22 29 29 20 22 20 22 ogpro.log")) " "
5ce0: 29 29 29 0a 09 09 09 20 20 28 64 65 62 75 67 3a ))).... (debug:
5cf0: 70 72 69 6e 74 20 32 20 22 49 4e 46 4f 3a 20 72 print 2 "INFO: r
5d00: 75 6e 6e 69 6e 67 20 5c 22 22 20 63 6d 64 20 22 unning \"" cmd "
5d10: 5c 22 22 29 0a 09 09 09 20 20 28 63 68 61 6e 67 \"").... (chang
5d20: 65 2d 64 69 72 65 63 74 6f 72 79 20 73 74 61 72 e-directory star
5d30: 74 69 6e 67 64 69 72 29 0a 09 09 09 20 20 28 73 tingdir).... (s
5d40: 65 74 21 20 65 78 69 74 73 74 61 74 20 28 73 79 et! exitstat (sy
5d50: 73 74 65 6d 20 63 6d 64 29 29 0a 09 09 09 20 20 stem cmd))....
5d60: 28 73 65 74 21 20 2a 67 6c 6f 62 61 6c 65 78 69 (set! *globalexi
5d70: 74 73 74 61 74 75 73 2a 20 65 78 69 74 73 74 61 tstatus* exitsta
5d80: 74 29 20 3b 3b 20 6e 6f 20 6e 65 63 65 73 73 61 t) ;; no necessa
5d90: 72 79 0a 09 09 09 20 20 28 63 68 61 6e 67 65 2d ry.... (change-
5da0: 64 69 72 65 63 74 6f 72 79 20 74 65 73 74 70 61 directory testpa
5db0: 74 68 29 0a 09 09 09 20 20 28 74 65 73 74 2d 73 th).... (test-s
5dc0: 65 74 2d 6c 6f 67 21 20 64 62 20 72 75 6e 2d 69 et-log! db run-i
5dd0: 64 20 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d d test-name item
5de0: 64 61 74 20 68 74 6d 6c 6c 6f 67 66 69 6c 65 29 dat htmllogfile)
5df0: 29 29 0a 09 09 20 20 20 20 28 72 64 62 3a 74 65 ))... (rdb:te
5e00: 73 74 73 74 65 70 2d 73 65 74 2d 73 74 61 74 75 ststep-set-statu
5e10: 73 21 20 64 62 20 72 75 6e 2d 69 64 20 74 65 73 s! db run-id tes
5e20: 74 2d 6e 61 6d 65 20 73 74 65 70 6e 61 6d 65 20 t-name stepname
5e30: 22 65 6e 64 22 20 65 78 69 74 73 74 61 74 20 69 "end" exitstat i
5e40: 74 65 6d 64 61 74 20 28 61 72 67 73 3a 67 65 74 temdat (args:get
5e50: 2d 61 72 67 20 22 2d 6d 22 29 20 6c 6f 67 66 69 -arg "-m") logfi
5e60: 6c 65 29 0a 09 09 20 20 20 20 28 73 71 6c 69 74 le)... (sqlit
5e70: 65 33 3a 66 69 6e 61 6c 69 7a 65 21 20 64 62 29 e3:finalize! db)
5e80: 0a 09 09 20 20 20 20 28 69 66 20 28 6e 6f 74 20 ... (if (not
5e90: 28 65 71 3f 20 65 78 69 74 73 74 61 74 20 30 29 (eq? exitstat 0)
5ea0: 29 0a 09 09 09 28 65 78 69 74 20 32 35 34 29 29 )....(exit 254))
5eb0: 20 3b 3b 20 28 65 78 69 74 20 65 78 69 74 73 74 ;; (exit exitst
5ec0: 61 74 29 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b at) doesn't work
5ed0: 3f 21 3f 0a 09 09 20 20 3b 3b 20 6f 70 65 6e 20 ?!?... ;; open
5ee0: 74 68 65 20 64 62 0a 09 09 20 20 3b 3b 20 6d 61 the db... ;; ma
5ef0: 72 6b 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 rk the end of th
5f00: 65 20 74 65 73 74 0a 09 09 20 20 29 29 29 0a 09 e test... )))..
5f10: 20 20 28 69 66 20 28 6f 72 20 28 61 72 67 73 3a (if (or (args:
5f20: 67 65 74 2d 61 72 67 20 22 2d 74 65 73 74 2d 73 get-arg "-test-s
5f30: 74 61 74 75 73 22 29 0a 09 09 20 20 28 61 72 67 tatus")... (arg
5f40: 73 3a 67 65 74 2d 61 72 67 20 22 2d 73 65 74 2d s:get-arg "-set-
5f50: 76 61 6c 75 65 73 22 29 29 0a 09 20 20 20 20 20 values"))..
5f60: 20 28 6c 65 74 20 28 28 6e 65 77 73 74 61 74 75 (let ((newstatu
5f70: 73 20 28 63 6f 6e 64 0a 09 09 09 09 28 28 6e 75 s (cond.....((nu
5f80: 6d 62 65 72 3f 20 73 74 61 74 75 73 29 20 20 20 mber? status)
5f90: 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 3f 20 (if (equal?
5fa0: 73 74 61 74 75 73 20 30 29 20 22 50 41 53 53 22 status 0) "PASS"
5fb0: 20 22 46 41 49 4c 22 29 29 0a 09 09 09 09 28 28 "FAIL")).....((
5fc0: 61 6e 64 20 28 73 74 72 69 6e 67 3f 20 73 74 61 and (string? sta
5fd0: 74 75 73 29 0a 09 09 09 09 20 20 20 20 20 20 28 tus)..... (
5fe0: 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 65 72 20 73 string->number s
5ff0: 74 61 74 75 73 29 29 28 69 66 20 28 65 71 75 61 tatus))(if (equa
6000: 6c 3f 20 28 73 74 72 69 6e 67 2d 3e 6e 75 6d 62 l? (string->numb
6010: 65 72 20 73 74 61 74 75 73 29 20 30 29 20 22 50 er status) 0) "P
6020: 41 53 53 22 20 22 46 41 49 4c 22 29 29 0a 09 09 ASS" "FAIL"))...
6030: 09 09 28 65 6c 73 65 20 73 74 61 74 75 73 29 29 ..(else status))
6040: 29 0a 09 09 20 20 20 20 3b 3b 20 74 72 61 6e 73 )... ;; trans
6050: 66 65 72 20 72 65 6c 65 76 61 6e 74 20 6b 65 79 fer relevant key
6060: 73 20 69 6e 74 6f 20 61 20 68 61 73 68 20 74 6f s into a hash to
6070: 20 62 65 20 70 61 73 73 65 64 20 74 6f 20 74 65 be passed to te
6080: 73 74 2d 73 65 74 2d 73 74 61 74 75 73 21 0a 09 st-set-status!..
6090: 09 20 20 20 20 3b 3b 20 63 6f 75 6c 64 20 75 73 . ;; could us
60a0: 65 20 61 6e 20 61 73 73 6f 63 20 6c 69 73 74 20 e an assoc list
60b0: 49 20 67 75 65 73 73 2e 20 0a 09 09 20 20 20 20 I guess. ...
60c0: 28 6f 74 68 65 72 64 61 74 61 20 28 6c 65 74 20 (otherdata (let
60d0: 28 28 72 65 73 20 28 6d 61 6b 65 2d 68 61 73 68 ((res (make-hash
60e0: 2d 74 61 62 6c 65 29 29 29 0a 09 09 09 09 20 28 -table)))..... (
60f0: 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 61 for-each (lambda
6100: 20 28 6b 65 79 29 0a 09 09 09 09 09 20 20 20 20 (key)......
6110: 20 28 69 66 20 28 61 72 67 73 3a 67 65 74 2d 61 (if (args:get-a
6120: 72 67 20 6b 65 79 29 0a 09 09 09 09 09 09 20 28 rg key)....... (
6130: 68 61 73 68 2d 74 61 62 6c 65 2d 73 65 74 21 20 hash-table-set!
6140: 72 65 73 20 6b 65 79 20 28 61 72 67 73 3a 67 65 res key (args:ge
6150: 74 2d 61 72 67 20 6b 65 79 29 29 29 29 0a 09 09 t-arg key))))...
6160: 09 09 09 20 20 20 28 6c 69 73 74 20 22 3a 76 61 ... (list ":va
6170: 6c 75 65 22 20 22 3a 74 6f 6c 22 20 22 3a 65 78 lue" ":tol" ":ex
6180: 70 65 63 74 65 64 22 20 22 3a 66 69 72 73 74 5f pected" ":first_
6190: 65 72 72 22 20 22 3a 66 69 72 73 74 5f 77 61 72 err" ":first_war
61a0: 6e 22 20 22 3a 75 6e 69 74 73 22 20 22 3a 63 61 n" ":units" ":ca
61b0: 74 65 67 6f 72 79 22 20 22 3a 76 61 72 69 61 62 tegory" ":variab
61c0: 6c 65 22 29 29 0a 09 09 09 09 20 72 65 73 29 29 le"))..... res))
61d0: 29 0a 09 09 28 69 66 20 28 61 6e 64 20 28 61 72 )...(if (and (ar
61e0: 67 73 3a 67 65 74 2d 61 72 67 20 22 2d 74 65 73 gs:get-arg "-tes
61f0: 74 2d 73 74 61 74 75 73 22 29 0a 09 09 09 20 28 t-status").... (
6200: 6f 72 20 28 6e 6f 74 20 73 74 61 74 65 29 0a 09 or (not state)..
6210: 09 09 20 20 20 20 20 28 6e 6f 74 20 73 74 61 74 .. (not stat
6220: 75 73 29 29 29 0a 09 09 20 20 20 20 28 62 65 67 us)))... (beg
6230: 69 6e 0a 09 09 20 20 20 20 20 20 28 64 65 62 75 in... (debu
6240: 67 3a 70 72 69 6e 74 20 30 20 22 45 52 52 4f 52 g:print 0 "ERROR
6250: 3a 20 59 6f 75 20 6d 75 73 74 20 73 70 65 63 69 : You must speci
6260: 66 79 20 3a 73 74 61 74 65 20 61 6e 64 20 3a 73 fy :state and :s
6270: 74 61 74 75 73 20 77 69 74 68 20 65 76 65 72 79 tatus with every
6280: 20 63 61 6c 6c 20 74 6f 20 2d 74 65 73 74 2d 73 call to -test-s
6290: 74 61 74 75 73 5c 6e 22 20 68 65 6c 70 29 0a 09 tatus\n" help)..
62a0: 09 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 3a . (sqlite3:
62b0: 66 69 6e 61 6c 69 7a 65 21 20 64 62 29 0a 09 09 finalize! db)...
62c0: 20 20 20 20 20 20 28 65 78 69 74 20 36 29 29 29 (exit 6)))
62d0: 0a 09 09 28 74 65 73 74 2d 73 65 74 2d 73 74 61 ...(test-set-sta
62e0: 74 75 73 21 20 64 62 20 72 75 6e 2d 69 64 20 74 tus! db run-id t
62f0: 65 73 74 2d 6e 61 6d 65 20 73 74 61 74 65 20 6e est-name state n
6300: 65 77 73 74 61 74 75 73 20 69 74 65 6d 64 61 74 ewstatus itemdat
6310: 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 (args:get-arg "
6320: 2d 6d 22 29 20 6f 74 68 65 72 64 61 74 61 29 29 -m") otherdata))
6330: 29 0a 09 20 20 28 73 71 6c 69 74 65 33 3a 66 69 ).. (sqlite3:fi
6340: 6e 61 6c 69 7a 65 21 20 64 62 29 0a 09 20 20 28 nalize! db).. (
6350: 73 65 74 21 20 2a 64 69 64 73 6f 6d 65 74 68 69 set! *didsomethi
6360: 6e 67 2a 20 23 74 29 29 29 29 0a 0a 28 69 66 20 ng* #t))))..(if
6370: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d (args:get-arg "-
6380: 73 68 6f 77 6b 65 79 73 22 29 0a 20 20 20 20 28 showkeys"). (
6390: 6c 65 74 20 28 28 64 62 20 23 66 29 0a 09 20 20 let ((db #f)..
63a0: 28 6b 65 79 73 20 23 66 29 29 0a 20 20 20 20 20 (keys #f)).
63b0: 20 28 69 66 20 28 6e 6f 74 20 28 73 65 74 75 70 (if (not (setup
63c0: 2d 66 6f 72 2d 72 75 6e 29 29 0a 09 20 20 28 62 -for-run)).. (b
63d0: 65 67 69 6e 0a 09 20 20 20 20 28 64 65 62 75 67 egin.. (debug
63e0: 3a 70 72 69 6e 74 20 30 20 22 46 61 69 6c 65 64 :print 0 "Failed
63f0: 20 74 6f 20 73 65 74 75 70 2c 20 65 78 69 74 69 to setup, exiti
6400: 6e 67 22 29 0a 09 20 20 20 20 28 65 78 69 74 20 ng").. (exit
6410: 31 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 21 1))). (set!
6420: 20 64 62 20 28 6f 70 65 6e 2d 64 62 29 29 0a 20 db (open-db)).
6430: 20 20 20 20 20 28 73 65 74 21 20 6b 65 79 73 20 (set! keys
6440: 28 64 62 2d 67 65 74 2d 6b 65 79 73 20 64 62 29 (db-get-keys db)
6450: 29 0a 20 20 20 20 20 20 28 64 65 62 75 67 3a 70 ). (debug:p
6460: 72 69 6e 74 20 31 20 22 4b 65 79 73 3a 20 22 20 rint 1 "Keys: "
6470: 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70 65 (string-interspe
6480: 72 73 65 20 28 6d 61 70 20 6b 65 79 3a 67 65 74 rse (map key:get
6490: 2d 66 69 65 6c 64 6e 61 6d 65 20 6b 65 79 73 29 -fieldname keys)
64a0: 20 22 2c 20 22 29 29 0a 20 20 20 20 20 20 28 73 ", ")). (s
64b0: 71 6c 69 74 65 33 3a 66 69 6e 61 6c 69 7a 65 21 qlite3:finalize!
64c0: 20 64 62 29 0a 20 20 20 20 20 20 28 73 65 74 21 db). (set!
64d0: 20 2a 64 69 64 73 6f 6d 65 74 68 69 6e 67 2a 20 *didsomething*
64e0: 23 74 29 29 29 0a 0a 28 69 66 20 28 61 72 67 73 #t)))..(if (args
64f0: 3a 67 65 74 2d 61 72 67 20 22 2d 67 75 69 22 29 :get-arg "-gui")
6500: 0a 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 . (begin.
6510: 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 (debug:print 0
6520: 20 22 4c 6f 6f 6b 20 61 74 20 74 68 65 20 64 61 "Look at the da
6530: 73 68 62 6f 61 72 64 20 66 6f 72 20 6e 6f 77 22 shboard for now"
6540: 29 0a 20 20 20 20 20 20 3b 3b 20 28 6d 65 67 61 ). ;; (mega
6550: 74 65 73 74 2d 67 75 69 29 0a 20 20 20 20 20 20 test-gui).
6560: 28 73 65 74 21 20 2a 64 69 64 73 6f 6d 65 74 68 (set! *didsometh
6570: 69 6e 67 2a 20 23 74 29 29 29 0a 0a 3b 3b 3d 3d ing* #t)))..;;==
6580: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6590: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
65a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
65b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
65c0: 3d 3d 3d 3d 0a 3b 3b 20 55 70 64 61 74 65 20 74 ====.;; Update t
65d0: 68 65 20 64 61 74 61 62 61 73 65 20 73 63 68 65 he database sche
65e0: 6d 61 20 6f 6e 20 72 65 71 75 65 73 74 0a 3b 3b ma on request.;;
65f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6600: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6610: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6620: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6630: 3d 3d 3d 3d 3d 3d 0a 0a 28 69 66 20 28 61 72 67 ======..(if (arg
6640: 73 3a 67 65 74 2d 61 72 67 20 22 2d 72 65 62 75 s:get-arg "-rebu
6650: 69 6c 64 2d 64 62 22 29 0a 20 20 20 20 28 62 65 ild-db"). (be
6660: 67 69 6e 0a 20 20 20 20 20 20 28 69 66 20 28 6e gin. (if (n
6670: 6f 74 20 28 73 65 74 75 70 2d 66 6f 72 2d 72 75 ot (setup-for-ru
6680: 6e 29 29 0a 09 20 20 28 62 65 67 69 6e 0a 09 20 n)).. (begin..
6690: 20 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 (debug:print
66a0: 30 20 22 46 61 69 6c 65 64 20 74 6f 20 73 65 74 0 "Failed to set
66b0: 75 70 2c 20 65 78 69 74 69 6e 67 22 29 20 0a 09 up, exiting") ..
66c0: 20 20 20 20 28 65 78 69 74 20 31 29 29 29 0a 20 (exit 1))).
66d0: 20 20 20 20 20 3b 3b 20 6e 6f 77 20 63 61 6e 20 ;; now can
66e0: 66 69 6e 64 20 6f 75 72 20 64 62 0a 20 20 20 20 find our db.
66f0: 20 20 28 73 65 74 21 20 64 62 20 28 6f 70 65 6e (set! db (open
6700: 2d 64 62 29 29 0a 20 20 20 20 20 20 28 70 61 74 -db)). (pat
6710: 63 68 2d 64 62 20 64 62 29 0a 20 20 20 20 20 20 ch-db db).
6720: 28 73 71 6c 69 74 65 33 3a 66 69 6e 61 6c 69 7a (sqlite3:finaliz
6730: 65 21 20 64 62 29 0a 20 20 20 20 20 20 28 73 65 e! db). (se
6740: 74 21 20 2a 64 69 64 73 6f 6d 65 74 68 69 6e 67 t! *didsomething
6750: 2a 20 23 74 29 29 29 0a 0a 3b 3b 3d 3d 3d 3d 3d * #t)))..;;=====
6760: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6770: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6780: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
6790: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
67a0: 3d 0a 3b 3b 20 55 70 64 61 74 65 20 74 68 65 20 =.;; Update the
67b0: 74 65 73 74 73 20 6d 65 74 61 20 64 61 74 61 20 tests meta data
67c0: 66 72 6f 6d 20 74 68 65 20 74 65 73 74 63 6f 6e from the testcon
67d0: 66 69 67 20 66 69 6c 65 73 0a 3b 3b 0a 0a 28 69 fig files.;;..(i
67e0: 66 20 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 f (args:get-arg
67f0: 22 2d 75 70 64 61 74 65 2d 6d 65 74 61 22 29 0a "-update-meta").
6800: 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 (begin.
6810: 20 28 69 66 20 28 6e 6f 74 20 28 73 65 74 75 70 (if (not (setup
6820: 2d 66 6f 72 2d 72 75 6e 29 29 0a 09 20 20 28 62 -for-run)).. (b
6830: 65 67 69 6e 0a 09 20 20 20 20 28 64 65 62 75 67 egin.. (debug
6840: 3a 70 72 69 6e 74 20 30 20 22 46 61 69 6c 65 64 :print 0 "Failed
6850: 20 74 6f 20 73 65 74 75 70 2c 20 65 78 69 74 69 to setup, exiti
6860: 6e 67 22 29 20 0a 09 20 20 20 20 28 65 78 69 74 ng") .. (exit
6870: 20 31 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 6e 1))). ;; n
6880: 6f 77 20 63 61 6e 20 66 69 6e 64 20 6f 75 72 20 ow can find our
6890: 64 62 0a 20 20 20 20 20 20 28 73 65 74 21 20 64 db. (set! d
68a0: 62 20 28 6f 70 65 6e 2d 64 62 29 29 0a 20 20 20 b (open-db)).
68b0: 20 20 20 28 72 75 6e 73 3a 75 70 64 61 74 65 2d (runs:update-
68c0: 61 6c 6c 2d 74 65 73 74 5f 6d 65 74 61 20 64 62 all-test_meta db
68d0: 29 0a 20 20 20 20 20 20 28 73 71 6c 69 74 65 33 ). (sqlite3
68e0: 3a 66 69 6e 61 6c 69 7a 65 21 20 64 62 29 0a 20 :finalize! db).
68f0: 20 20 20 20 20 28 73 65 74 21 20 2a 64 69 64 73 (set! *dids
6900: 6f 6d 65 74 68 69 6e 67 2a 20 23 74 29 29 29 0a omething* #t))).
6910: 0a 28 69 66 20 28 6e 6f 74 20 2a 64 69 64 73 6f .(if (not *didso
6920: 6d 65 74 68 69 6e 67 2a 29 0a 20 20 20 20 28 64 mething*). (d
6930: 65 62 75 67 3a 70 72 69 6e 74 20 30 20 68 65 6c ebug:print 0 hel
6940: 70 29 29 0a 0a 28 69 66 20 28 6e 6f 74 20 28 65 p))..(if (not (e
6950: 71 3f 20 2a 67 6c 6f 62 61 6c 65 78 69 74 73 74 q? *globalexitst
6960: 61 74 75 73 2a 20 30 29 29 0a 20 20 20 20 28 69 atus* 0)). (i
6970: 66 20 28 6f 72 20 28 61 72 67 73 3a 67 65 74 2d f (or (args:get-
6980: 61 72 67 20 22 2d 72 75 6e 74 65 73 74 73 22 29 arg "-runtests")
6990: 28 61 72 67 73 3a 67 65 74 2d 61 72 67 20 22 2d (args:get-arg "-
69a0: 72 75 6e 61 6c 6c 22 29 29 0a 20 20 20 20 20 20 runall")).
69b0: 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 (begin.
69c0: 20 20 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 (debug:print
69d0: 20 30 20 22 4e 4f 54 45 3a 20 53 75 62 70 72 6f 0 "NOTE: Subpro
69e0: 63 65 73 73 65 73 20 77 69 74 68 20 6e 6f 6e 2d cesses with non-
69f0: 7a 65 72 6f 20 65 78 69 74 20 63 6f 64 65 20 64 zero exit code d
6a00: 65 74 65 63 74 65 64 3a 20 22 20 2a 67 6c 6f 62 etected: " *glob
6a10: 61 6c 65 78 69 74 73 74 61 74 75 73 2a 29 0a 20 alexitstatus*).
6a20: 20 20 20 20 20 20 20 20 20 20 28 65 78 69 74 20 (exit
6a30: 30 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 73 0)). (cas
6a40: 65 20 2a 67 6c 6f 62 61 6c 65 78 69 74 73 74 61 e *globalexitsta
6a50: 74 75 73 2a 0a 20 20 20 20 20 20 20 20 20 28 28 tus*. ((
6a60: 30 29 28 65 78 69 74 20 30 29 29 0a 20 20 20 20 0)(exit 0)).
6a70: 20 20 20 20 20 28 28 31 29 28 65 78 69 74 20 31 ((1)(exit 1
6a80: 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 32 29 )). ((2)
6a90: 28 65 78 69 74 20 32 29 29 0a 20 20 20 20 20 20 (exit 2)).
6aa0: 20 20 20 28 65 6c 73 65 20 28 65 78 69 74 20 33 (else (exit 3
6ab0: 29 29 29 29 29 0a ))))).