Artifact
3218ee6258385a7e1543c165a5150c8ba900efb0:
0000: 3b 3b 20 28 63 29 20 32 30 30 36 2c 32 30 30 37 ;; (c) 2006,2007
0010: 2c 32 30 30 38 2c 32 30 30 39 20 4d 61 74 74 68 ,2008,2009 Matth
0020: 65 77 20 57 65 6c 6c 61 6e 64 20 6d 61 74 74 40 ew Welland matt@
0030: 6b 69 61 74 6f 61 2e 63 6f 6d 0a 3b 3b 20 20 0a kiatoa.com.;; .
0040: 3b 3b 20 20 43 6f 70 79 72 69 67 68 74 20 32 30 ;; Copyright 20
0050: 30 36 2d 32 30 31 37 2c 20 4d 61 74 74 68 65 77 06-2017, Matthew
0060: 20 57 65 6c 6c 61 6e 64 2e 0a 3b 3b 20 0a 3b 3b Welland..;; .;;
0070: 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 70 61 This file is pa
0080: 72 74 20 6f 66 20 4d 65 67 61 74 65 73 74 2e 0a rt of Megatest..
0090: 3b 3b 20 0a 3b 3b 20 20 20 20 20 4d 65 67 61 74 ;; .;; Megat
00a0: 65 73 74 20 69 73 20 66 72 65 65 20 73 6f 66 74 est is free soft
00b0: 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 65 ware: you can re
00c0: 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e distribute it an
00d0: 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 20 d/or modify.;;
00e0: 20 20 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 it under the
00f0: 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 terms of the GNU
0100: 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 General Public
0110: 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 License as publi
0120: 73 68 65 64 20 62 79 0a 3b 3b 20 20 20 20 20 74 shed by.;; t
0130: 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 he Free Software
0140: 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 Foundation, eit
0150: 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 her version 3 of
0160: 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 the License, or
0170: 0a 3b 3b 20 20 20 20 20 28 61 74 20 79 6f 75 72 .;; (at your
0180: 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 option) any lat
0190: 65 72 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 20 0a er version..;; .
01a0: 3b 3b 20 20 20 20 20 4d 65 67 61 74 65 73 74 20 ;; Megatest
01b0: 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 is distributed i
01c0: 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 n the hope that
01d0: 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 it will be usefu
01e0: 6c 2c 0a 3b 3b 20 20 20 20 20 62 75 74 20 57 49 l,.;; but WI
01f0: 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e THOUT ANY WARRAN
0200: 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e TY; without even
0210: 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 the implied war
0220: 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 20 20 20 20 ranty of.;;
0230: 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 MERCHANTABILITY
0240: 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 or FITNESS FOR A
0250: 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 PARTICULAR PURP
0260: 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b OSE. See the.;;
0270: 20 20 20 20 20 47 4e 55 20 47 65 6e 65 72 61 6c GNU General
0280: 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 Public License
0290: 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 for more details
02a0: 2e 0a 3b 3b 20 0a 3b 3b 20 20 20 20 20 59 6f 75 ..;; .;; You
02b0: 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 should have rec
02c0: 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 eived a copy of
02d0: 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 the GNU General
02e0: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b Public License.;
02f0: 3b 20 20 20 20 20 61 6c 6f 6e 67 20 77 69 74 68 ; along with
0300: 20 4d 65 67 61 74 65 73 74 2e 20 20 49 66 20 6e Megatest. If n
0310: 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f ot, see <http://
0320: 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 www.gnu.org/lice
0330: 6e 73 65 73 2f 3e 2e 0a 0a 0a 28 64 65 66 69 6e nses/>....(defin
0340: 65 20 6c 6f 67 62 6f 64 79 20 22 4c 6f 67 46 69 e logbody "LogFi
0350: 6c 65 42 6f 64 79 22 29 0a 0a 28 64 65 66 69 6e leBody")..(defin
0360: 65 20 70 61 73 73 2d 73 70 65 63 73 20 27 28 20 e pass-specs '(
0370: 3b 3b 20 74 65 73 74 6e 61 6d 65 20 6e 75 6d 2d ;; testname num-
0380: 65 78 70 65 63 74 65 64 20 6d 61 78 2d 72 75 6e expected max-run
0390: 74 69 6d 65 0a 09 09 20 20 20 20 20 3b 3b 20 28 time... ;; (
03a0: 22 65 78 69 74 5f 30 22 09 09 20 20 20 20 20 20 "exit_0"..
03b0: 20 20 31 20 20 32 30 29 0a 09 09 20 20 20 20 20 1 20)...
03c0: 3b 3b 20 28 22 65 7a 6c 6f 67 5f 66 61 69 6c 5f ;; ("ezlog_fail_
03d0: 74 68 65 6e 5f 70 61 73 73 22 20 20 20 20 31 20 then_pass" 1
03e0: 20 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 20)... ;; (
03f0: 22 65 7a 6c 6f 67 5f 70 61 73 73 22 09 20 20 20 "ezlog_pass".
0400: 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 20 1 20)...
0410: 20 20 20 3b 3b 20 28 22 65 7a 5f 70 61 73 73 22 ;; ("ez_pass"
0420: 09 09 20 20 20 20 20 20 20 20 31 20 20 32 30 29 .. 1 20)
0430: 0a 09 09 20 20 20 20 20 3b 3b 20 28 22 6c 69 6e ... ;; ("lin
0440: 65 69 74 65 6d 5f 70 61 73 73 22 09 20 20 20 20 eitem_pass".
0450: 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 20 20 1 20)...
0460: 20 20 3b 3b 20 28 22 70 72 69 6f 72 69 74 79 5f ;; ("priority_
0470: 31 22 09 20 20 20 20 20 20 20 20 31 20 20 32 30 1". 1 20
0480: 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 22 70 72 )... ;; ("pr
0490: 69 6f 72 69 74 79 5f 31 30 22 09 20 20 20 20 20 iority_10".
04a0: 20 20 20 31 20 20 32 30 29 0a 09 09 20 20 20 20 1 20)...
04b0: 20 3b 3b 20 28 22 70 72 69 6f 72 69 74 79 5f 31 ;; ("priority_1
04c0: 30 5f 77 61 69 74 6f 6e 5f 31 22 20 20 20 20 31 0_waiton_1" 1
04d0: 20 20 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 20)... ;;
04e0: 28 22 70 72 69 6f 72 69 74 79 5f 33 22 09 20 20 ("priority_3".
04f0: 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 1 20)...
0500: 20 20 20 20 3b 3b 20 28 22 70 72 69 6f 72 69 74 ;; ("priorit
0510: 79 5f 34 22 09 20 20 20 20 20 20 20 20 31 20 20 y_4". 1
0520: 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 3b 3b 20)... ;; ;;
0530: 20 28 22 70 72 69 6f 72 69 74 79 5f 35 22 09 20 ("priority_5".
0540: 20 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 1 20)...
0550: 20 20 20 20 20 3b 3b 20 28 22 70 72 69 6f 72 69 ;; ("priori
0560: 74 79 5f 36 22 09 20 20 20 20 20 20 20 20 31 20 ty_6". 1
0570: 20 32 30 29 0a 3b 3b 09 09 20 20 20 20 20 3b 3b 20).;;.. ;;
0580: 20 28 22 70 72 69 6f 72 69 74 79 5f 37 22 09 20 ("priority_7".
0590: 20 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 1 20)...
05a0: 20 20 20 20 20 3b 3b 20 28 22 70 72 69 6f 72 69 ;; ("priori
05b0: 74 79 5f 38 22 09 20 20 20 20 20 20 20 20 31 20 ty_8". 1
05c0: 20 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 20)... ;; (
05d0: 22 70 72 69 6f 72 69 74 79 5f 39 22 09 20 20 20 "priority_9".
05e0: 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 20 1 20)...
05f0: 20 20 20 28 22 72 75 6e 66 69 72 73 74 22 09 20 ("runfirst".
0600: 20 20 20 20 20 20 20 32 20 20 32 30 29 0a 09 09 2 20)...
0610: 20 20 20 20 20 3b 3b 20 28 22 73 69 6e 67 6c 65 ;; ("single
0620: 74 65 73 74 22 09 20 20 20 20 20 20 20 20 31 20 test". 1
0630: 20 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 20)... ;; (
0640: 22 73 69 6e 67 6c 65 74 65 73 74 32 22 09 20 20 "singletest2".
0650: 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 1 20)...
0660: 20 20 20 20 3b 3b 20 28 22 73 70 65 63 69 61 6c ;; ("special
0670: 22 09 09 20 20 20 20 20 20 20 20 31 20 20 32 30 ".. 1 20
0680: 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 22 73 71 )... ;; ("sq
0690: 6c 69 74 65 73 70 65 65 64 22 09 20 20 20 20 20 litespeed".
06a0: 20 20 31 30 20 20 32 30 29 0a 09 09 20 20 20 20 10 20)...
06b0: 20 3b 3b 20 28 22 74 65 73 74 31 22 09 09 20 20 ;; ("test1"..
06c0: 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 1 20)...
06d0: 20 20 20 20 3b 3b 20 28 22 74 65 73 74 32 22 09 ;; ("test2".
06e0: 09 20 20 20 20 20 20 20 20 36 20 20 32 30 29 0a . 6 20).
06f0: 09 09 20 20 20 20 20 3b 3b 20 28 22 74 65 73 74 .. ;; ("test
0700: 5f 6d 74 5f 76 61 72 73 22 09 20 20 20 20 20 20 _mt_vars".
0710: 20 20 36 20 20 32 30 29 0a 09 09 20 20 20 20 20 6 20)...
0720: 29 29 0a 0a 28 64 65 66 69 6e 65 20 66 61 69 6c ))..(define fail
0730: 2d 73 70 65 63 73 20 27 28 20 3b 3b 20 74 65 73 -specs '( ;; tes
0740: 74 6e 61 6d 65 20 6e 75 6d 2d 65 78 70 65 63 74 tname num-expect
0750: 65 64 20 6d 61 78 2d 72 75 6e 74 69 6d 65 0a 09 ed max-runtime..
0760: 09 20 20 20 20 20 3b 3b 20 28 22 65 78 69 74 5f . ;; ("exit_
0770: 31 22 09 09 20 20 20 20 20 20 20 20 31 20 20 32 1".. 1 2
0780: 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 22 65 0)... ;; ("e
0790: 7a 5f 65 78 69 74 32 5f 66 61 69 6c 22 20 20 20 z_exit2_fail"
07a0: 20 20 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 1 20)..
07b0: 09 20 20 20 20 20 3b 3b 20 28 22 65 7a 5f 66 61 . ;; ("ez_fa
07c0: 69 6c 22 09 09 20 20 20 20 20 20 20 20 31 20 20 il".. 1
07d0: 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 22 20)... ;; ("
07e0: 65 7a 5f 66 61 69 6c 5f 71 75 69 63 6b 22 09 20 ez_fail_quick".
07f0: 20 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 1 20)...
0800: 20 20 20 20 20 3b 3b 20 28 22 65 7a 6c 6f 67 5f ;; ("ezlog_
0810: 66 61 69 6c 22 09 20 20 20 20 20 20 20 20 31 20 fail". 1
0820: 20 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 28 20)... ;; (
0830: 22 6c 69 6e 65 69 74 65 6d 5f 66 61 69 6c 22 09 "lineitem_fail".
0840: 20 20 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 1 20)..
0850: 09 20 20 20 20 20 3b 3b 20 28 22 6c 6f 67 70 72 . ;; ("logpr
0860: 6f 5f 72 65 71 75 69 72 65 64 5f 66 61 69 6c 22 o_required_fail"
0870: 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 20 20 1 20)...
0880: 20 20 3b 3b 20 28 22 6d 61 6e 75 61 6c 5f 65 78 ;; ("manual_ex
0890: 61 6d 70 6c 65 22 09 20 20 20 20 20 20 20 20 31 ample". 1
08a0: 20 20 32 30 29 0a 09 09 20 20 20 20 20 3b 3b 20 20)... ;;
08b0: 28 22 6e 65 76 65 72 72 75 6e 22 09 20 20 20 20 ("neverrun".
08c0: 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 20 20 1 20)...
08d0: 20 20 29 29 0a 09 09 20 20 20 20 20 0a 28 64 65 ))... .(de
08e0: 66 69 6e 65 20 77 61 72 6e 2d 73 70 65 63 73 20 fine warn-specs
08f0: 20 20 27 28 0a 20 20 20 20 20 20 20 20 20 20 20 '(.
0900: 20 20 20 20 20 20 20 20 20 20 3b 3b 20 28 22 65 ;; ("e
0910: 7a 6c 6f 67 5f 77 61 72 6e 22 09 20 20 20 20 20 zlog_warn".
0920: 20 20 20 31 20 20 32 30 29 0a 20 20 20 20 20 20 1 20).
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 )
0940: 29 0a 0a 28 64 65 66 69 6e 65 20 6e 6f 73 74 2d )..(define nost-
0950: 73 70 65 63 73 20 20 20 27 28 0a 20 20 20 20 20 specs '(.
0960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0970: 20 20 3b 3b 20 28 22 77 61 69 74 5f 6e 6f 5f 69 ;; ("wait_no_i
0980: 74 65 6d 73 31 22 20 20 20 20 20 20 20 20 31 20 tems1" 1
0990: 20 32 30 29 0a 09 09 20 20 20 20 20 20 20 3b 3b 20)... ;;
09a0: 20 28 22 77 61 69 74 5f 6e 6f 5f 69 74 65 6d 73 ("wait_no_items
09b0: 32 22 20 20 20 20 20 20 20 20 31 20 20 32 30 29 2" 1 20)
09c0: 0a 09 09 20 20 20 20 20 20 20 3b 3b 20 28 22 77 ... ;; ("w
09d0: 61 69 74 5f 6e 6f 5f 69 74 65 6d 73 33 22 20 20 ait_no_items3"
09e0: 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 20 1 20)...
09f0: 20 20 20 20 20 20 3b 3b 20 28 22 77 61 69 74 5f ;; ("wait_
0a00: 6e 6f 5f 69 74 65 6d 73 34 22 20 20 20 20 20 20 no_items4"
0a10: 20 20 31 20 20 32 30 29 0a 09 09 20 20 20 20 20 1 20)...
0a20: 20 20 3b 3b 20 28 22 6e 6f 5f 69 74 65 6d 73 22 ;; ("no_items"
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 1
0a40: 20 32 30 29 0a 09 09 20 20 20 20 20 20 20 29 29 20)... ))
0a50: 0a 0a 28 64 65 66 69 6e 65 20 28 63 68 65 63 6b ..(define (check
0a60: 2d 6f 6e 65 2d 74 65 73 74 20 65 73 74 61 74 65 -one-test estate
0a70: 20 65 73 74 61 74 75 73 20 74 65 73 74 6e 61 6d estatus testnam
0a80: 65 20 63 6f 75 6e 74 20 72 75 6e 74 69 6d 65 29 e count runtime)
0a90: 0a 20 20 20 28 6c 65 74 2a 20 28 28 72 78 65 20 . (let* ((rxe
0aa0: 20 20 20 20 20 28 72 65 67 65 78 70 20 28 63 6f (regexp (co
0ab0: 6e 63 20 22 5e 5c 5c 73 2b 54 65 73 74 3a 20 22 nc "^\\s+Test: "
0ac0: 20 74 65 73 74 6e 61 6d 65 20 22 28 5c 5c 28 2e testname "(\\(.
0ad0: 2a 7c 5c 5c 73 2b 29 5c 5c 73 2b 53 74 61 74 65 *|\\s+)\\s+State
0ae0: 3a 20 22 20 65 73 74 61 74 65 20 22 5c 5c 73 2b : " estate "\\s+
0af0: 53 74 61 74 75 73 3a 20 22 20 65 73 74 61 74 75 Status: " estatu
0b00: 73 20 22 5c 5c 73 2b 52 75 6e 74 69 6d 65 3a 5c s "\\s+Runtime:\
0b10: 5c 73 2b 28 5c 5c 64 2b 29 73 22 29 29 29 0a 09 \s+(\\d+)s")))..
0b20: 20 20 28 6d 73 67 31 20 20 20 20 20 28 63 6f 6e (msg1 (con
0b30: 63 20 74 65 73 74 6e 61 6d 65 20 22 20 65 78 70 c testname " exp
0b40: 65 63 74 69 6e 67 20 63 6f 75 6e 74 20 6f 66 20 ecting count of
0b50: 22 20 63 6f 75 6e 74 29 29 0a 09 20 20 28 6d 73 " count)).. (ms
0b60: 67 32 20 20 20 20 20 28 63 6f 6e 63 20 74 65 73 g2 (conc tes
0b70: 74 6e 61 6d 65 20 22 20 65 78 70 65 63 74 69 6e tname " expectin
0b80: 67 20 72 75 6e 74 69 6d 65 20 6c 65 73 73 20 74 g runtime less t
0b90: 68 61 6e 20 22 20 72 75 6e 74 69 6d 65 29 29 29 han " runtime)))
0ba0: 0a 20 20 20 20 20 28 65 78 70 65 63 74 3a 72 65 . (expect:re
0bb0: 71 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f 64 quired in logbod
0bc0: 79 20 3d 20 63 6f 75 6e 74 20 6d 73 67 31 20 72 y = count msg1 r
0bd0: 78 65 29 0a 20 20 20 20 20 3b 3b 28 65 78 70 65 xe). ;;(expe
0be0: 63 74 3a 76 61 6c 75 65 20 20 20 20 69 6e 20 6c ct:value in l
0bf0: 6f 67 62 6f 64 79 20 63 6f 75 6e 74 20 3c 20 6d ogbody count < m
0c00: 73 67 32 20 72 78 65 29 0a 20 20 20 20 20 29 29 sg2 rxe). ))
0c10: 0a 0a 3b 3b 20 53 70 65 63 69 61 6c 20 63 61 73 ..;; Special cas
0c20: 65 73 0a 3b 3b 0a 3b 3b 20 28 65 78 70 65 63 74 es.;;.;; (expect
0c30: 3a 69 67 6e 6f 72 65 20 20 20 69 6e 20 6c 6f 67 :ignore in log
0c40: 62 6f 64 79 20 3e 3d 20 30 20 20 22 64 62 5f 73 body >= 0 "db_s
0c50: 79 6e 63 20 74 65 73 74 20 6d 69 67 68 74 20 6e ync test might n
0c60: 6f 74 20 68 61 76 65 20 72 75 6e 22 20 20 23 2f ot have run" #/
0c70: 54 65 73 74 3a 20 64 62 5f 73 79 6e 63 2f 29 0a Test: db_sync/).
0c80: 3b 3b 20 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 ;; (expect:ignor
0c90: 65 20 20 20 69 6e 20 6c 6f 67 62 6f 64 79 20 3e e in logbody >
0ca0: 3d 20 30 20 20 22 61 6c 6c 5f 74 6f 70 6c 65 76 = 0 "all_toplev
0cb0: 65 6c 20 6d 61 79 20 6e 6f 74 20 79 65 74 20 62 el may not yet b
0cc0: 65 20 64 6f 6e 65 22 20 23 2f 54 65 73 74 3a 20 e done" #/Test:
0cd0: 61 6c 6c 5f 74 6f 70 6c 65 76 65 6c 2f 29 0a 28 all_toplevel/).(
0ce0: 65 78 70 65 63 74 3a 65 72 72 6f 72 20 20 20 20 expect:error
0cf0: 69 6e 20 6c 6f 67 62 6f 64 79 20 3d 20 20 30 20 in logbody = 0
0d00: 20 22 74 65 73 74 73 20 6c 65 66 74 20 69 6e 20 "tests left in
0d10: 52 55 4e 4e 49 4e 47 20 73 74 61 74 65 22 20 20 RUNNING state"
0d20: 20 20 20 20 23 2f 53 74 61 74 65 3a 20 52 55 4e #/State: RUN
0d30: 4e 49 4e 47 2f 29 0a 3b 3b 20 28 65 78 70 65 63 NING/).;; (expec
0d40: 74 3a 72 65 71 75 69 72 65 64 20 69 6e 20 6c 6f t:required in lo
0d50: 67 62 6f 64 79 20 3d 20 20 31 20 20 22 70 72 69 gbody = 1 "pri
0d60: 6f 72 69 74 79 5f 32 20 69 73 20 4b 49 4c 4c 45 ority_2 is KILLE
0d70: 44 22 20 20 20 20 20 20 20 20 20 20 20 20 20 23 D" #
0d80: 2f 54 65 73 74 3a 20 70 72 69 6f 72 69 74 79 5f /Test: priority_
0d90: 32 5c 73 2b 53 74 61 74 65 3a 20 4b 49 4c 4c 45 2\s+State: KILLE
0da0: 44 5c 73 2b 53 74 61 74 75 73 3a 20 4b 49 4c 4c D\s+Status: KILL
0db0: 45 44 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 3a ED/).;; (expect:
0dc0: 72 65 71 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 required in logb
0dd0: 6f 64 79 20 3d 20 20 31 20 20 22 70 72 69 6f 72 ody = 1 "prior
0de0: 69 74 79 5f 35 20 69 73 20 65 69 74 68 65 72 20 ity_5 is either
0df0: 50 41 53 53 20 6f 72 20 53 4b 49 50 22 20 23 2f PASS or SKIP" #/
0e00: 54 65 73 74 3a 20 70 72 69 6f 72 69 74 79 5f 35 Test: priority_5
0e10: 5c 73 2b 53 74 61 74 65 3a 20 43 4f 4d 50 4c 45 \s+State: COMPLE
0e20: 54 45 44 5c 73 2b 53 74 61 74 75 73 3a 20 28 53 TED\s+Status: (S
0e30: 4b 49 50 7c 50 41 53 53 29 2f 29 0a 3b 3b 20 28 KIP|PASS)/).;; (
0e40: 65 78 70 65 63 74 3a 72 65 71 75 69 72 65 64 20 expect:required
0e50: 69 6e 20 6c 6f 67 62 6f 64 79 20 3d 20 20 31 20 in logbody = 1
0e60: 20 22 70 72 69 6f 72 69 74 79 5f 37 20 69 73 20 "priority_7 is
0e70: 65 69 74 68 65 72 20 50 41 53 53 20 6f 72 20 53 either PASS or S
0e80: 4b 49 50 22 20 23 2f 54 65 73 74 3a 20 70 72 69 KIP" #/Test: pri
0e90: 6f 72 69 74 79 5f 37 5c 73 2b 53 74 61 74 65 3a ority_7\s+State:
0ea0: 20 43 4f 4d 50 4c 45 54 45 44 5c 73 2b 53 74 61 COMPLETED\s+Sta
0eb0: 74 75 73 3a 20 28 53 4b 49 50 7c 50 41 53 53 29 tus: (SKIP|PASS)
0ec0: 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 3a 72 65 /).;; (expect:re
0ed0: 71 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f 64 quired in logbod
0ee0: 79 20 3d 20 20 31 20 20 22 74 65 73 74 78 7a 20 y = 1 "testxz
0ef0: 68 61 73 20 31 20 4e 4f 54 5f 53 54 41 52 54 45 has 1 NOT_STARTE
0f00: 44 20 74 65 73 74 22 20 20 20 20 23 2f 54 65 73 D test" #/Tes
0f10: 74 3a 20 74 65 73 74 78 7a 5c 73 2b 53 74 61 74 t: testxz\s+Stat
0f20: 65 3a 20 4e 4f 54 5f 53 54 41 52 54 45 44 2f 29 e: NOT_STARTED/)
0f30: 0a 3b 3b 20 28 65 78 70 65 63 74 3a 72 65 71 75 .;; (expect:requ
0f40: 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f 64 79 20 ired in logbody
0f50: 3d 20 20 31 20 20 22 6e 6f 20 69 74 65 6d 73 22 = 1 "no items"
0f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f70: 20 20 20 20 20 20 20 20 20 23 2f 54 65 73 74 3a #/Test:
0f80: 20 6e 6f 5f 69 74 65 6d 73 5c 73 2b 53 74 61 74 no_items\s+Stat
0f90: 65 3a 20 4e 4f 54 5f 53 54 41 52 54 45 44 5c 73 e: NOT_STARTED\s
0fa0: 2b 53 74 61 74 75 73 3a 20 5a 45 52 4f 5f 49 54 +Status: ZERO_IT
0fb0: 45 4d 53 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 EMS/).;; (expect
0fc0: 3a 77 61 72 6e 69 6e 67 20 20 69 6e 20 6c 6f 67 :warning in log
0fd0: 62 6f 64 79 20 3d 20 20 31 20 20 22 64 79 6e 61 body = 1 "dyna
0fe0: 6d 69 63 20 77 61 69 74 6f 6e 22 20 20 20 20 20 mic waiton"
0ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 2f #/
1000: 54 65 73 74 3a 20 64 79 6e 61 6d 69 63 5f 77 61 Test: dynamic_wa
1010: 69 74 6f 6e 2f 29 0a 3b 3b 20 28 65 78 70 65 63 iton/).;; (expec
1020: 74 3a 72 65 71 75 69 72 65 64 20 69 6e 20 6c 6f t:required in lo
1030: 67 62 6f 64 79 20 3d 20 32 39 20 20 22 62 6c 6f gbody = 29 "blo
1040: 63 6b 74 65 73 74 78 7a 20 68 61 73 20 32 39 20 cktestxz has 29
1050: 74 65 73 74 73 22 20 20 20 20 20 20 20 20 20 23 tests" #
1060: 2f 54 65 73 74 3a 20 62 6c 6f 63 6b 74 65 73 74 /Test: blocktest
1070: 78 7a 2f 29 0a 0a 3b 3b 20 47 65 6e 65 72 61 6c xz/)..;; General
1080: 20 63 61 73 65 73 0a 3b 3b 0a 28 66 6f 72 2d 65 cases.;;.(for-e
1090: 61 63 68 20 0a 20 28 6c 61 6d 62 64 61 20 28 74 ach . (lambda (t
10a0: 65 73 74 64 61 74 29 0a 20 20 20 28 61 70 70 6c estdat). (appl
10b0: 79 20 63 68 65 63 6b 2d 6f 6e 65 2d 74 65 73 74 y check-one-test
10c0: 20 22 43 4f 4d 50 4c 45 54 45 44 22 20 22 50 41 "COMPLETED" "PA
10d0: 53 53 22 20 74 65 73 74 64 61 74 29 29 0a 20 70 SS" testdat)). p
10e0: 61 73 73 2d 73 70 65 63 73 29 0a 0a 28 66 6f 72 ass-specs)..(for
10f0: 2d 65 61 63 68 20 0a 20 28 6c 61 6d 62 64 61 20 -each . (lambda
1100: 28 74 65 73 74 64 61 74 29 0a 20 20 20 28 61 70 (testdat). (ap
1110: 70 6c 79 20 63 68 65 63 6b 2d 6f 6e 65 2d 74 65 ply check-one-te
1120: 73 74 20 22 43 4f 4d 50 4c 45 54 45 44 22 20 22 st "COMPLETED" "
1130: 46 41 49 4c 22 20 74 65 73 74 64 61 74 29 29 0a FAIL" testdat)).
1140: 20 66 61 69 6c 2d 73 70 65 63 73 29 0a 0a 28 66 fail-specs)..(f
1150: 6f 72 2d 65 61 63 68 20 0a 20 28 6c 61 6d 62 64 or-each . (lambd
1160: 61 20 28 74 65 73 74 64 61 74 29 0a 20 20 20 28 a (testdat). (
1170: 61 70 70 6c 79 20 63 68 65 63 6b 2d 6f 6e 65 2d apply check-one-
1180: 74 65 73 74 20 22 43 4f 4d 50 4c 45 54 45 44 22 test "COMPLETED"
1190: 20 22 57 41 52 4e 22 20 74 65 73 74 64 61 74 29 "WARN" testdat)
11a0: 29 0a 20 77 61 72 6e 2d 73 70 65 63 73 29 0a 0a ). warn-specs)..
11b0: 28 66 6f 72 2d 65 61 63 68 20 0a 20 28 6c 61 6d (for-each . (lam
11c0: 62 64 61 20 28 74 65 73 74 64 61 74 29 0a 20 20 bda (testdat).
11d0: 20 28 61 70 70 6c 79 20 63 68 65 63 6b 2d 6f 6e (apply check-on
11e0: 65 2d 74 65 73 74 20 22 4e 4f 54 5f 53 54 41 52 e-test "NOT_STAR
11f0: 54 45 44 22 20 22 50 52 45 51 5f 44 49 53 43 41 TED" "PREQ_DISCA
1200: 52 44 45 44 22 20 74 65 73 74 64 61 74 29 29 0a RDED" testdat)).
1210: 20 6e 6f 73 74 2d 73 70 65 63 73 29 0a 0a 3b 3b nost-specs)..;;
1220: 20 43 61 74 63 68 20 61 6c 6c 2e 0a 3b 3b 0a 28 Catch all..;;.(
1230: 65 78 70 65 63 74 3a 65 72 72 6f 72 20 20 20 20 expect:error
1240: 69 6e 20 6c 6f 67 62 6f 64 79 20 3d 20 30 20 20 in logbody = 0
1250: 20 22 54 65 73 74 73 20 6e 6f 74 20 61 63 63 6f "Tests not acco
1260: 75 6e 74 65 64 20 66 6f 72 22 20 20 20 20 20 23 unted for" #
1270: 2f 54 65 73 74 3a 20 2f 29 0a 0a 0a 3b 3b 20 3b /Test: /)...;; ;
1280: 3b 20 64 65 66 69 6e 65 20 79 6f 75 72 20 68 6f ; define your ho
1290: 6f 6b 73 0a 3b 3b 20 28 68 6f 6f 6b 3a 66 69 72 oks.;; (hook:fir
12a0: 73 74 2d 65 72 72 6f 72 20 20 20 22 65 63 68 6f st-error "echo
12b0: 20 5c 22 45 72 72 6f 72 20 68 6f 6f 6b 20 61 63 \"Error hook ac
12c0: 74 69 76 61 74 65 64 3a 20 23 7b 65 73 63 61 70 tivated: #{escap
12d0: 65 64 20 65 72 72 6d 73 67 7d 5c 22 22 29 0a 3b ed errmsg}\"").;
12e0: 3b 20 28 68 6f 6f 6b 3a 66 69 72 73 74 2d 77 61 ; (hook:first-wa
12f0: 72 6e 69 6e 67 20 22 65 63 68 6f 20 5c 22 47 6f rning "echo \"Go
1300: 74 20 77 61 72 6e 69 6e 67 3a 20 23 7b 65 73 63 t warning: #{esc
1310: 61 70 65 64 20 77 61 72 6e 6d 73 67 7d 5c 22 22 aped warnmsg}\""
1320: 29 0a 3b 3b 20 28 68 6f 6f 6b 3a 76 61 6c 75 65 ).;; (hook:value
1330: 20 22 65 63 68 6f 20 5c 22 56 61 6c 75 65 20 68 "echo \"Value h
1340: 6f 6f 6b 20 61 63 74 69 76 61 74 65 64 3a 20 65 ook activated: e
1350: 78 70 65 63 74 65 64 3d 23 7b 65 78 70 65 63 74 xpected=#{expect
1360: 65 64 7d 2c 20 6d 65 61 73 75 72 65 64 3d 23 7b ed}, measured=#{
1370: 6d 65 61 73 75 72 65 64 7d 2c 20 74 6f 6c 65 72 measured}, toler
1380: 61 6e 63 65 3d 23 7b 74 6f 6c 65 72 61 6e 63 65 ance=#{tolerance
1390: 7d 2c 20 6d 65 73 73 61 67 65 3d 23 7b 6d 65 73 }, message=#{mes
13a0: 73 61 67 65 7d 5c 22 22 29 0a 3b 3b 20 0a 3b 3b sage}\"").;; .;;
13b0: 20 3b 3b 20 66 69 72 73 74 20 65 6e 73 75 72 65 ;; first ensure
13c0: 20 79 6f 75 72 20 72 75 6e 20 61 74 20 6c 65 61 your run at lea
13d0: 73 74 20 73 74 61 72 74 65 64 0a 3b 3b 20 3b 3b st started.;; ;;
13e0: 0a 3b 3b 20 28 74 72 69 67 67 65 72 20 22 49 6e .;; (trigger "In
13f0: 69 74 22 20 20 20 20 20 23 2f 54 68 69 73 20 69 it" #/This i
1400: 73 20 61 20 68 65 61 64 65 72 2f 29 0a 3b 3b 20 s a header/).;;
1410: 28 74 72 69 67 67 65 72 20 22 49 6e 69 74 45 6e (trigger "InitEn
1420: 64 22 20 20 23 2f 5e 5c 73 2a 24 2f 29 0a 3b 3b d" #/^\s*$/).;;
1430: 20 28 73 65 63 74 69 6f 6e 20 22 49 6e 69 74 22 (section "Init"
1440: 20 22 49 6e 69 74 22 20 22 49 6e 69 74 45 6e 64 "Init" "InitEnd
1450: 22 29 0a 3b 3b 20 0a 3b 3b 20 28 74 72 69 67 67 ").;; .;; (trigg
1460: 65 72 20 22 42 6f 64 79 22 20 20 20 20 20 23 2f er "Body" #/
1470: 5e 2e 2a 24 2f 29 20 3b 3b 20 61 6e 79 74 68 69 ^.*$/) ;; anythi
1480: 6e 67 20 73 74 61 72 74 73 20 74 68 65 20 62 6f ng starts the bo
1490: 64 79 0a 3b 3b 20 3b 3b 20 28 74 72 69 67 67 65 dy.;; ;; (trigge
14a0: 72 20 22 45 6e 64 42 6f 64 79 22 20 20 23 2f 54 r "EndBody" #/T
14b0: 68 69 73 20 68 61 64 20 62 65 74 74 65 72 20 6e his had better n
14c0: 65 76 65 72 20 6d 61 74 63 68 2f 29 0a 3b 3b 20 ever match/).;;
14d0: 0a 3b 3b 20 28 73 65 63 74 69 6f 6e 20 22 42 6f .;; (section "Bo
14e0: 64 79 22 20 20 20 20 20 22 42 6f 64 79 22 20 22 dy" "Body" "
14f0: 45 6e 64 42 6f 64 79 22 29 0a 3b 3b 20 0a 3b 3b EndBody").;; .;;
1500: 20 28 74 72 69 67 67 65 72 20 22 42 6c 61 68 32 (trigger "Blah2
1510: 22 20 20 20 20 23 2f 5e 62 65 67 69 6e 20 42 6c " #/^begin Bl
1520: 61 68 32 2f 29 0a 3b 3b 20 28 74 72 69 67 67 65 ah2/).;; (trigge
1530: 72 20 22 42 6c 61 68 32 45 6e 64 22 20 23 2f 5e r "Blah2End" #/^
1540: 65 6e 64 20 42 6c 61 68 32 2f 29 0a 3b 3b 20 28 end Blah2/).;; (
1550: 73 65 63 74 69 6f 6e 20 22 42 6c 61 68 32 22 20 section "Blah2"
1560: 20 20 20 22 42 6c 61 68 32 22 20 22 42 6c 61 68 "Blah2" "Blah
1570: 32 45 6e 64 22 29 0a 3b 3b 20 0a 3b 3b 20 28 65 2End").;; .;; (e
1580: 78 70 65 63 74 3a 72 65 71 75 69 72 65 64 20 69 xpect:required i
1590: 6e 20 22 49 6e 69 74 22 20 20 3d 20 31 20 22 48 n "Init" = 1 "H
15a0: 65 61 64 65 72 22 20 20 20 20 20 20 23 2f 54 68 eader" #/Th
15b0: 69 73 20 69 73 20 61 20 68 65 61 64 65 72 2f 29 is is a header/)
15c0: 0a 3b 3b 20 28 65 78 70 65 63 74 3a 72 65 71 75 .;; (expect:requ
15d0: 69 72 65 64 20 69 6e 20 22 4c 6f 67 46 69 6c 65 ired in "LogFile
15e0: 42 6f 64 79 22 20 3e 20 30 20 22 53 6f 6d 65 74 Body" > 0 "Somet
15f0: 68 69 6e 67 20 72 65 71 75 69 72 65 64 20 62 75 hing required bu
1600: 74 20 6e 6f 74 20 66 6f 75 6e 64 22 20 23 2f 54 t not found" #/T
1610: 68 69 73 20 69 73 20 72 65 71 75 69 72 65 64 20 his is required
1620: 62 75 74 20 6e 6f 74 20 66 6f 75 6e 64 2f 29 0a but not found/).
1630: 3b 3b 20 28 65 78 70 65 63 74 3a 76 61 6c 75 65 ;; (expect:value
1640: 20 20 20 20 69 6e 20 22 4c 6f 67 46 69 6c 65 42 in "LogFileB
1650: 6f 64 79 22 20 31 2e 39 20 30 2e 31 20 22 4f 75 ody" 1.9 0.1 "Ou
1660: 74 70 75 74 20 76 6f 6c 74 61 67 65 22 20 23 2f tput voltage" #/
1670: 4d 65 61 73 75 72 65 64 20 76 6f 6c 74 61 67 65 Measured voltage
1680: 20 6f 75 74 70 75 74 3a 5c 73 2a 28 5b 5c 64 5c output:\s*([\d\
1690: 2e 5c 2b 5c 2d 65 5d 2b 29 76 2f 29 0a 3b 3b 20 .\+\-e]+)v/).;;
16a0: 28 65 78 70 65 63 74 3a 76 61 6c 75 65 20 20 20 (expect:value
16b0: 20 69 6e 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 in "LogFileBody
16c0: 22 20 30 2e 35 20 30 2e 31 20 22 4f 75 74 70 75 " 0.5 0.1 "Outpu
16d0: 74 20 63 75 72 72 65 6e 74 22 20 23 2f 4d 65 61 t current" #/Mea
16e0: 73 75 72 65 64 20 6f 75 74 70 75 74 20 63 75 72 sured output cur
16f0: 72 65 6e 74 3a 5c 73 2a 28 5b 5c 64 5c 2e 5c 2b rent:\s*([\d\.\+
1700: 5c 2d 65 5d 2b 29 6d 41 2f 29 0a 3b 3b 20 28 65 \-e]+)mA/).;; (e
1710: 78 70 65 63 74 3a 76 61 6c 75 65 20 20 20 20 69 xpect:value i
1720: 6e 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 22 20 n "LogFileBody"
1730: 31 31 30 65 39 20 32 65 39 20 22 41 20 62 69 67 110e9 2e9 "A big
1740: 20 6e 75 6d 62 65 72 20 28 66 69 72 73 74 29 22 number (first)"
1750: 20 23 2f 46 72 65 71 3a 5c 73 2a 28 5b 5c 64 5c #/Freq:\s*([\d\
1760: 2e 5c 2b 5c 2d 65 5d 2b 29 5c 73 2b 48 7a 2f 29 .\+\-e]+)\s+Hz/)
1770: 0a 3b 3b 20 28 65 78 70 65 63 74 3a 76 61 6c 75 .;; (expect:valu
1780: 65 20 20 20 20 69 6e 20 22 4c 6f 67 46 69 6c 65 e in "LogFile
1790: 42 6f 64 79 22 20 31 31 30 65 39 20 31 65 39 20 Body" 110e9 1e9
17a0: 22 41 20 62 69 67 20 6e 75 6d 62 65 72 20 28 73 "A big number (s
17b0: 65 63 6f 6e 64 29 2c 20 68 6f 6f 6b 20 6e 6f 74 econd), hook not
17c0: 20 63 61 6c 6c 65 64 22 20 23 2f 46 72 65 71 3a called" #/Freq:
17d0: 5c 73 2a 28 5b 5c 64 5c 2e 5c 2b 5c 2d 65 5d 2b \s*([\d\.\+\-e]+
17e0: 29 48 7a 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 )Hz/).;; (expect
17f0: 3a 76 61 6c 75 65 20 20 20 20 69 6e 20 22 4c 6f :value in "Lo
1800: 67 46 69 6c 65 42 6f 64 79 22 20 31 31 30 65 39 gFileBody" 110e9
1810: 20 31 65 39 20 22 41 20 62 69 67 20 6e 75 6d 62 1e9 "A big numb
1820: 65 72 20 28 6e 65 76 65 72 20 61 63 74 69 76 61 er (never activa
1830: 74 65 64 29 22 20 23 2f 46 72 65 71 3a 5c 73 2a ted)" #/Freq:\s*
1840: 28 5b 5c 64 5c 2e 5c 2b 5c 2d 65 5d 2b 29 7a 48 ([\d\.\+\-e]+)zH
1850: 2f 29 0a 3b 3b 20 0a 3b 3b 20 3b 3b 20 55 73 69 /).;; .;; ;; Usi
1860: 6e 67 20 6d 61 74 63 68 20 6e 75 6d 62 65 72 0a ng match number.
1870: 3b 3b 20 28 65 78 70 65 63 74 3a 76 61 6c 75 65 ;; (expect:value
1880: 20 20 20 20 69 6e 20 22 4c 6f 67 46 69 6c 65 42 in "LogFileB
1890: 6f 64 79 22 20 31 2e 39 20 30 2e 31 20 22 54 69 ody" 1.9 0.1 "Ti
18a0: 6d 65 20 56 6f 6c 74 61 67 65 22 20 23 2f 6f 75 me Voltage" #/ou
18b0: 74 3a 20 28 5c 64 2b 29 5c 73 2b 28 5c 64 2b 29 t: (\d+)\s+(\d+)
18c0: 2f 20 6d 61 74 63 68 3a 20 32 29 0a 3b 3b 20 0a / match: 2).;; .
18d0: 3b 3b 20 3b 3b 20 43 6f 6d 70 61 72 69 73 6f 6e ;; ;; Comparison
18e0: 20 69 6e 73 74 65 61 64 20 6f 66 20 74 6f 6c 65 instead of tole
18f0: 72 61 6e 63 65 0a 3b 3b 20 28 65 78 70 65 63 74 rance.;; (expect
1900: 3a 76 61 6c 75 65 20 20 20 20 69 6e 20 22 4c 6f :value in "Lo
1910: 67 46 69 6c 65 42 6f 64 79 22 20 31 2e 39 20 3e gFileBody" 1.9 >
1920: 20 20 20 22 54 69 6d 65 20 76 6f 6c 74 61 67 65 "Time voltage
1930: 22 20 23 2f 6f 75 74 3a 20 28 5c 64 2b 29 5c 73 " #/out: (\d+)\s
1940: 2b 28 5c 64 2b 29 2f 20 6d 61 74 63 68 3a 20 32 +(\d+)/ match: 2
1950: 29 0a 3b 3b 20 0a 3b 3b 20 28 65 78 70 65 63 74 ).;; .;; (expect
1960: 3a 69 67 6e 6f 72 65 20 20 20 69 6e 20 22 42 6c :ignore in "Bl
1970: 61 68 32 22 20 3c 20 39 39 20 22 46 41 4c 53 45 ah2" < 99 "FALSE
1980: 20 45 52 52 4f 52 22 20 23 2f 45 52 52 4f 52 2f ERROR" #/ERROR/
1990: 29 0a 3b 3b 20 28 65 78 70 65 63 74 3a 69 67 6e ).;; (expect:ign
19a0: 6f 72 65 20 20 20 69 6e 20 22 42 6f 64 79 22 20 ore in "Body"
19b0: 20 3c 20 39 39 20 22 49 67 6e 6f 72 65 20 74 68 < 99 "Ignore th
19c0: 65 20 77 6f 72 64 20 65 72 72 6f 72 20 69 6e 20 e word error in
19d0: 63 6f 6d 6d 65 6e 74 73 22 20 23 2f 5e 5c 2f 5c comments" #/^\/\
19e0: 2f 2e 2a 65 72 72 6f 72 2f 29 0a 3b 3b 20 28 65 /.*error/).;; (e
19f0: 78 70 65 63 74 3a 77 61 72 6e 69 6e 67 20 20 69 xpect:warning i
1a00: 6e 20 22 42 6f 64 79 22 20 20 3d 20 30 20 22 41 n "Body" = 0 "A
1a10: 6e 79 20 77 61 72 6e 69 6e 67 22 20 23 2f 57 41 ny warning" #/WA
1a20: 52 4e 49 4e 47 2f 29 0a 3b 3b 20 28 65 78 70 65 RNING/).;; (expe
1a30: 63 74 3a 65 72 72 6f 72 20 20 20 20 69 6e 20 22 ct:error in "
1a40: 42 6f 64 79 22 20 20 3d 20 30 20 22 45 52 52 4f Body" = 0 "ERRO
1a50: 52 20 42 4c 41 48 22 20 20 28 6c 69 73 74 20 23 R BLAH" (list #
1a60: 2f 45 52 52 4f 52 2f 20 23 2f 65 72 72 6f 72 2f /ERROR/ #/error/
1a70: 29 29 20 3b 3b 20 62 75 74 20 64 69 73 61 6c 6c )) ;; but disall
1a80: 6f 77 20 61 6e 79 20 6f 74 68 65 72 20 65 72 72 ow any other err
1a90: 6f 72 73 0a 3b 3b 20 0a 3b 3b 20 3b 28 65 78 70 ors.;; .;; ;(exp
1aa0: 65 63 74 20 69 6e 20 22 49 6e 69 74 22 20 20 3c ect in "Init" <
1ab0: 20 31 20 22 4a 75 6e 6b 22 20 20 20 20 20 20 20 1 "Junk"
1ac0: 20 23 2f 54 68 69 73 20 69 73 20 62 6f 67 75 73 #/This is bogus
1ad0: 2f 29 0a /).