Artifact
cdf9db5b94c363480b51850d2a0e9ac3dc5ca2bc:
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 20 4c 69 63 65 6e 73 65 20 47 50 4c ;; License GPL
0050: 2e 0a 0a 28 64 65 66 69 6e 65 20 6c 6f 67 62 6f ...(define logbo
0060: 64 79 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 22 dy "LogFileBody"
0070: 29 0a 0a 28 64 65 66 69 6e 65 20 70 61 73 73 2d )..(define pass-
0080: 73 70 65 63 73 20 27 28 20 3b 3b 20 74 65 73 74 specs '( ;; test
0090: 6e 61 6d 65 20 6e 75 6d 2d 65 78 70 65 63 74 65 name num-expecte
00a0: 64 20 6d 61 78 2d 72 75 6e 74 69 6d 65 0a 09 09 d max-runtime...
00b0: 20 20 20 20 20 28 22 73 65 74 75 70 22 09 09 20 ("setup"..
00c0: 20 20 20 20 20 20 20 31 20 20 32 30 29 0a 09 09 1 20)...
00d0: 20 20 20 20 20 28 22 74 65 73 74 31 2f 6c 61 79 ("test1/lay
00e0: 6f 75 74 2f 70 74 72 61 6e 22 20 20 20 20 20 20 out/ptran"
00f0: 31 20 20 32 30 29 0a 09 09 20 20 20 20 20 28 22 1 20)... ("
0100: 74 65 73 74 31 2f 73 63 68 65 6d 61 74 69 63 2f test1/schematic/
0110: 70 74 72 61 6e 22 09 31 20 20 32 30 29 0a 09 09 ptran".1 20)...
0120: 20 20 20 20 20 28 22 74 65 73 74 32 2f 6c 61 79 ("test2/lay
0130: 6f 75 74 2f 70 74 72 61 6e 22 20 20 20 20 20 20 out/ptran"
0140: 31 20 20 32 30 29 0a 09 09 20 20 20 20 20 28 22 1 20)... ("
0150: 74 65 73 74 32 2f 73 63 68 65 6d 61 74 69 63 2f test2/schematic/
0160: 70 74 72 61 6e 22 20 20 20 31 20 20 32 30 29 0a ptran" 1 20).
0170: 09 09 20 20 20 20 20 29 29 0a 0a 28 64 65 66 69 .. ))..(defi
0180: 6e 65 20 66 61 69 6c 2d 73 70 65 63 73 20 27 28 ne fail-specs '(
0190: 20 3b 3b 20 74 65 73 74 6e 61 6d 65 20 6e 75 6d ;; testname num
01a0: 2d 65 78 70 65 63 74 65 64 20 6d 61 78 2d 72 75 -expected max-ru
01b0: 6e 74 69 6d 65 0a 09 09 20 20 20 20 20 29 29 0a ntime... )).
01c0: 09 09 20 20 20 20 20 0a 28 64 65 66 69 6e 65 20 .. .(define
01d0: 77 61 72 6e 2d 73 70 65 63 73 20 20 20 27 28 29 warn-specs '()
01e0: 29 0a 0a 28 64 65 66 69 6e 65 20 6e 6f 73 74 2d )..(define nost-
01f0: 73 70 65 63 73 20 20 20 27 28 0a 09 09 20 20 20 specs '(...
0200: 20 20 20 20 29 29 0a 0a 28 64 65 66 69 6e 65 20 ))..(define
0210: 28 63 68 65 63 6b 2d 6f 6e 65 2d 74 65 73 74 20 (check-one-test
0220: 65 73 74 61 74 65 20 65 73 74 61 74 75 73 20 74 estate estatus t
0230: 65 73 74 6e 61 6d 65 20 63 6f 75 6e 74 20 72 75 estname count ru
0240: 6e 74 69 6d 65 29 0a 20 20 20 28 6c 65 74 2a 20 ntime). (let*
0250: 28 28 72 78 65 20 20 20 20 20 20 28 72 65 67 65 ((rxe (rege
0260: 78 70 20 28 63 6f 6e 63 20 22 5e 5c 5c 73 2b 54 xp (conc "^\\s+T
0270: 65 73 74 3a 20 22 20 74 65 73 74 6e 61 6d 65 20 est: " testname
0280: 22 28 5c 5c 28 2e 2a 7c 5c 5c 73 2b 29 5c 5c 73 "(\\(.*|\\s+)\\s
0290: 2b 53 74 61 74 65 3a 20 22 20 65 73 74 61 74 65 +State: " estate
02a0: 20 22 5c 5c 73 2b 53 74 61 74 75 73 3a 20 22 20 "\\s+Status: "
02b0: 65 73 74 61 74 75 73 20 22 5c 5c 73 2b 52 75 6e estatus "\\s+Run
02c0: 74 69 6d 65 3a 5c 5c 73 2b 28 5c 5c 64 2b 29 73 time:\\s+(\\d+)s
02d0: 22 29 29 29 0a 09 20 20 28 6d 73 67 31 20 20 20 "))).. (msg1
02e0: 20 20 28 63 6f 6e 63 20 74 65 73 74 6e 61 6d 65 (conc testname
02f0: 20 22 20 65 78 70 65 63 74 69 6e 67 20 63 6f 75 " expecting cou
0300: 6e 74 20 6f 66 20 22 20 63 6f 75 6e 74 29 29 0a nt of " count)).
0310: 09 20 20 28 6d 73 67 32 20 20 20 20 20 28 63 6f . (msg2 (co
0320: 6e 63 20 74 65 73 74 6e 61 6d 65 20 22 20 65 78 nc testname " ex
0330: 70 65 63 74 69 6e 67 20 72 75 6e 74 69 6d 65 20 pecting runtime
0340: 6c 65 73 73 20 74 68 61 6e 20 22 20 72 75 6e 74 less than " runt
0350: 69 6d 65 29 29 29 0a 20 20 20 20 20 28 65 78 70 ime))). (exp
0360: 65 63 74 3a 72 65 71 75 69 72 65 64 20 69 6e 20 ect:required in
0370: 6c 6f 67 62 6f 64 79 20 3d 20 63 6f 75 6e 74 20 logbody = count
0380: 6d 73 67 31 20 72 78 65 29 0a 20 20 20 20 20 3b msg1 rxe). ;
0390: 3b 28 65 78 70 65 63 74 3a 76 61 6c 75 65 20 20 ;(expect:value
03a0: 20 20 69 6e 20 6c 6f 67 62 6f 64 79 20 63 6f 75 in logbody cou
03b0: 6e 74 20 3c 20 6d 73 67 32 20 72 78 65 29 0a 20 nt < msg2 rxe).
03c0: 20 20 20 20 29 29 0a 0a 3b 3b 20 53 70 65 63 69 ))..;; Speci
03d0: 61 6c 20 63 61 73 65 73 0a 3b 3b 0a 28 65 78 70 al cases.;;.(exp
03e0: 65 63 74 3a 69 67 6e 6f 72 65 20 20 20 69 6e 20 ect:ignore in
03f0: 6c 6f 67 62 6f 64 79 20 3e 3d 20 30 20 20 22 64 logbody >= 0 "d
0400: 62 5f 73 79 6e 63 20 74 65 73 74 20 6d 69 67 68 b_sync test migh
0410: 74 20 6e 6f 74 20 68 61 76 65 20 72 75 6e 22 20 t not have run"
0420: 20 23 2f 54 65 73 74 3a 20 64 62 5f 73 79 6e 63 #/Test: db_sync
0430: 2f 29 0a 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 /).(expect:ignor
0440: 65 20 20 20 69 6e 20 6c 6f 67 62 6f 64 79 20 3e e in logbody >
0450: 3d 20 30 20 20 22 61 6c 6c 5f 74 6f 70 6c 65 76 = 0 "all_toplev
0460: 65 6c 20 6d 61 79 20 6e 6f 74 20 79 65 74 20 62 el may not yet b
0470: 65 20 64 6f 6e 65 22 20 23 2f 54 65 73 74 3a 20 e done" #/Test:
0480: 61 6c 6c 5f 74 6f 70 6c 65 76 65 6c 2f 29 0a 28 all_toplevel/).(
0490: 65 78 70 65 63 74 3a 65 72 72 6f 72 20 20 20 20 expect:error
04a0: 69 6e 20 6c 6f 67 62 6f 64 79 20 3d 20 20 30 20 in logbody = 0
04b0: 20 22 74 65 73 74 73 20 6c 65 66 74 20 69 6e 20 "tests left in
04c0: 52 55 4e 4e 49 4e 47 20 73 74 61 74 65 22 20 20 RUNNING state"
04d0: 20 20 20 20 23 2f 53 74 61 74 65 3a 20 52 55 4e #/State: RUN
04e0: 4e 49 4e 47 2f 29 0a 28 65 78 70 65 63 74 3a 72 NING/).(expect:r
04f0: 65 71 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f equired in logbo
0500: 64 79 20 3d 20 20 31 20 20 22 70 72 69 6f 72 69 dy = 1 "priori
0510: 74 79 5f 32 20 69 73 20 4b 49 4c 4c 45 44 22 20 ty_2 is KILLED"
0520: 20 20 20 20 20 20 20 20 20 20 20 20 23 2f 54 65 #/Te
0530: 73 74 3a 20 70 72 69 6f 72 69 74 79 5f 32 5c 73 st: priority_2\s
0540: 2b 53 74 61 74 65 3a 20 4b 49 4c 4c 45 44 5c 73 +State: KILLED\s
0550: 2b 53 74 61 74 75 73 3a 20 4b 49 4c 4c 45 44 2f +Status: KILLED/
0560: 29 0a 28 65 78 70 65 63 74 3a 72 65 71 75 69 72 ).(expect:requir
0570: 65 64 20 69 6e 20 6c 6f 67 62 6f 64 79 20 3d 20 ed in logbody =
0580: 20 31 20 20 22 70 72 69 6f 72 69 74 79 5f 35 20 1 "priority_5
0590: 69 73 20 65 69 74 68 65 72 20 50 41 53 53 20 6f is either PASS o
05a0: 72 20 53 4b 49 50 22 20 23 2f 54 65 73 74 3a 20 r SKIP" #/Test:
05b0: 70 72 69 6f 72 69 74 79 5f 35 5c 73 2b 53 74 61 priority_5\s+Sta
05c0: 74 65 3a 20 43 4f 4d 50 4c 45 54 45 44 5c 73 2b te: COMPLETED\s+
05d0: 53 74 61 74 75 73 3a 20 28 53 4b 49 50 7c 50 41 Status: (SKIP|PA
05e0: 53 53 29 2f 29 0a 28 65 78 70 65 63 74 3a 72 65 SS)/).(expect:re
05f0: 71 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f 64 quired in logbod
0600: 79 20 3d 20 20 31 20 20 22 70 72 69 6f 72 69 74 y = 1 "priorit
0610: 79 5f 37 20 69 73 20 65 69 74 68 65 72 20 50 41 y_7 is either PA
0620: 53 53 20 6f 72 20 53 4b 49 50 22 20 23 2f 54 65 SS or SKIP" #/Te
0630: 73 74 3a 20 70 72 69 6f 72 69 74 79 5f 37 5c 73 st: priority_7\s
0640: 2b 53 74 61 74 65 3a 20 43 4f 4d 50 4c 45 54 45 +State: COMPLETE
0650: 44 5c 73 2b 53 74 61 74 75 73 3a 20 28 53 4b 49 D\s+Status: (SKI
0660: 50 7c 50 41 53 53 29 2f 29 0a 28 65 78 70 65 63 P|PASS)/).(expec
0670: 74 3a 72 65 71 75 69 72 65 64 20 69 6e 20 6c 6f t:required in lo
0680: 67 62 6f 64 79 20 3d 20 20 31 20 20 22 74 65 73 gbody = 1 "tes
0690: 74 78 7a 20 68 61 73 20 31 20 4e 4f 54 5f 53 54 txz has 1 NOT_ST
06a0: 41 52 54 45 44 20 74 65 73 74 22 20 20 20 20 23 ARTED test" #
06b0: 2f 54 65 73 74 3a 20 74 65 73 74 78 7a 5c 73 2b /Test: testxz\s+
06c0: 53 74 61 74 65 3a 20 4e 4f 54 5f 53 54 41 52 54 State: NOT_START
06d0: 45 44 2f 29 0a 28 65 78 70 65 63 74 3a 72 65 71 ED/).(expect:req
06e0: 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f 64 79 uired in logbody
06f0: 20 3d 20 20 31 20 20 22 6e 6f 20 69 74 65 6d 73 = 1 "no items
0700: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
0710: 20 20 20 20 20 20 20 20 20 20 23 2f 54 65 73 74 #/Test
0720: 3a 20 6e 6f 5f 69 74 65 6d 73 5c 73 2b 53 74 61 : no_items\s+Sta
0730: 74 65 3a 20 4e 4f 54 5f 53 54 41 52 54 45 44 5c te: NOT_STARTED\
0740: 73 2b 53 74 61 74 75 73 3a 20 5a 45 52 4f 5f 49 s+Status: ZERO_I
0750: 54 45 4d 53 2f 29 0a 28 65 78 70 65 63 74 3a 77 TEMS/).(expect:w
0760: 61 72 6e 69 6e 67 20 20 69 6e 20 6c 6f 67 62 6f arning in logbo
0770: 64 79 20 3d 20 20 31 20 20 22 64 79 6e 61 6d 69 dy = 1 "dynami
0780: 63 20 77 61 69 74 6f 6e 22 20 20 20 20 20 20 20 c waiton"
0790: 20 20 20 20 20 20 20 20 20 20 20 20 23 2f 54 65 #/Te
07a0: 73 74 3a 20 64 79 6e 61 6d 69 63 5f 77 61 69 74 st: dynamic_wait
07b0: 6f 6e 2f 29 0a 28 65 78 70 65 63 74 3a 72 65 71 on/).(expect:req
07c0: 75 69 72 65 64 20 69 6e 20 6c 6f 67 62 6f 64 79 uired in logbody
07d0: 20 3d 20 32 39 20 20 22 62 6c 6f 63 6b 74 65 73 = 29 "blocktes
07e0: 74 78 7a 20 68 61 73 20 32 39 20 74 65 73 74 73 txz has 29 tests
07f0: 22 20 20 20 20 20 20 20 20 20 23 2f 54 65 73 74 " #/Test
0800: 3a 20 62 6c 6f 63 6b 74 65 73 74 78 7a 2f 29 0a : blocktestxz/).
0810: 0a 3b 3b 20 47 65 6e 65 72 61 6c 20 63 61 73 65 .;; General case
0820: 73 0a 3b 3b 0a 28 66 6f 72 2d 65 61 63 68 20 0a s.;;.(for-each .
0830: 20 28 6c 61 6d 62 64 61 20 28 74 65 73 74 64 61 (lambda (testda
0840: 74 29 0a 20 20 20 28 61 70 70 6c 79 20 63 68 65 t). (apply che
0850: 63 6b 2d 6f 6e 65 2d 74 65 73 74 20 22 43 4f 4d ck-one-test "COM
0860: 50 4c 45 54 45 44 22 20 22 50 41 53 53 22 20 74 PLETED" "PASS" t
0870: 65 73 74 64 61 74 29 29 0a 20 70 61 73 73 2d 73 estdat)). pass-s
0880: 70 65 63 73 29 0a 0a 28 66 6f 72 2d 65 61 63 68 pecs)..(for-each
0890: 20 0a 20 28 6c 61 6d 62 64 61 20 28 74 65 73 74 . (lambda (test
08a0: 64 61 74 29 0a 20 20 20 28 61 70 70 6c 79 20 63 dat). (apply c
08b0: 68 65 63 6b 2d 6f 6e 65 2d 74 65 73 74 20 22 43 heck-one-test "C
08c0: 4f 4d 50 4c 45 54 45 44 22 20 22 46 41 49 4c 22 OMPLETED" "FAIL"
08d0: 20 74 65 73 74 64 61 74 29 29 0a 20 66 61 69 6c testdat)). fail
08e0: 2d 73 70 65 63 73 29 0a 0a 28 66 6f 72 2d 65 61 -specs)..(for-ea
08f0: 63 68 20 0a 20 28 6c 61 6d 62 64 61 20 28 74 65 ch . (lambda (te
0900: 73 74 64 61 74 29 0a 20 20 20 28 61 70 70 6c 79 stdat). (apply
0910: 20 63 68 65 63 6b 2d 6f 6e 65 2d 74 65 73 74 20 check-one-test
0920: 22 43 4f 4d 50 4c 45 54 45 44 22 20 22 57 41 52 "COMPLETED" "WAR
0930: 4e 22 20 74 65 73 74 64 61 74 29 29 0a 20 77 61 N" testdat)). wa
0940: 72 6e 2d 73 70 65 63 73 29 0a 0a 28 66 6f 72 2d rn-specs)..(for-
0950: 65 61 63 68 20 0a 20 28 6c 61 6d 62 64 61 20 28 each . (lambda (
0960: 74 65 73 74 64 61 74 29 0a 20 20 20 28 61 70 70 testdat). (app
0970: 6c 79 20 63 68 65 63 6b 2d 6f 6e 65 2d 74 65 73 ly check-one-tes
0980: 74 20 22 4e 4f 54 5f 53 54 41 52 54 45 44 22 20 t "NOT_STARTED"
0990: 22 50 52 45 51 5f 44 49 53 43 41 52 44 45 44 22 "PREQ_DISCARDED"
09a0: 20 74 65 73 74 64 61 74 29 29 0a 20 6e 6f 73 74 testdat)). nost
09b0: 2d 73 70 65 63 73 29 0a 0a 3b 3b 20 43 61 74 63 -specs)..;; Catc
09c0: 68 20 61 6c 6c 2e 0a 3b 3b 0a 28 65 78 70 65 63 h all..;;.(expec
09d0: 74 3a 65 72 72 6f 72 20 20 20 20 69 6e 20 6c 6f t:error in lo
09e0: 67 62 6f 64 79 20 3d 20 30 20 20 20 22 54 65 73 gbody = 0 "Tes
09f0: 74 73 20 6e 6f 74 20 61 63 63 6f 75 6e 74 65 64 ts not accounted
0a00: 20 66 6f 72 22 20 20 20 20 20 23 2f 54 65 73 74 for" #/Test
0a10: 3a 20 2f 29 0a 0a 0a 3b 3b 20 3b 3b 20 64 65 66 : /)...;; ;; def
0a20: 69 6e 65 20 79 6f 75 72 20 68 6f 6f 6b 73 0a 3b ine your hooks.;
0a30: 3b 20 28 68 6f 6f 6b 3a 66 69 72 73 74 2d 65 72 ; (hook:first-er
0a40: 72 6f 72 20 20 20 22 65 63 68 6f 20 5c 22 45 72 ror "echo \"Er
0a50: 72 6f 72 20 68 6f 6f 6b 20 61 63 74 69 76 61 74 ror hook activat
0a60: 65 64 3a 20 23 7b 65 73 63 61 70 65 64 20 65 72 ed: #{escaped er
0a70: 72 6d 73 67 7d 5c 22 22 29 0a 3b 3b 20 28 68 6f rmsg}\"").;; (ho
0a80: 6f 6b 3a 66 69 72 73 74 2d 77 61 72 6e 69 6e 67 ok:first-warning
0a90: 20 22 65 63 68 6f 20 5c 22 47 6f 74 20 77 61 72 "echo \"Got war
0aa0: 6e 69 6e 67 3a 20 23 7b 65 73 63 61 70 65 64 20 ning: #{escaped
0ab0: 77 61 72 6e 6d 73 67 7d 5c 22 22 29 0a 3b 3b 20 warnmsg}\"").;;
0ac0: 28 68 6f 6f 6b 3a 76 61 6c 75 65 20 22 65 63 68 (hook:value "ech
0ad0: 6f 20 5c 22 56 61 6c 75 65 20 68 6f 6f 6b 20 61 o \"Value hook a
0ae0: 63 74 69 76 61 74 65 64 3a 20 65 78 70 65 63 74 ctivated: expect
0af0: 65 64 3d 23 7b 65 78 70 65 63 74 65 64 7d 2c 20 ed=#{expected},
0b00: 6d 65 61 73 75 72 65 64 3d 23 7b 6d 65 61 73 75 measured=#{measu
0b10: 72 65 64 7d 2c 20 74 6f 6c 65 72 61 6e 63 65 3d red}, tolerance=
0b20: 23 7b 74 6f 6c 65 72 61 6e 63 65 7d 2c 20 6d 65 #{tolerance}, me
0b30: 73 73 61 67 65 3d 23 7b 6d 65 73 73 61 67 65 7d ssage=#{message}
0b40: 5c 22 22 29 0a 3b 3b 20 0a 3b 3b 20 3b 3b 20 66 \"").;; .;; ;; f
0b50: 69 72 73 74 20 65 6e 73 75 72 65 20 79 6f 75 72 irst ensure your
0b60: 20 72 75 6e 20 61 74 20 6c 65 61 73 74 20 73 74 run at least st
0b70: 61 72 74 65 64 0a 3b 3b 20 3b 3b 0a 3b 3b 20 28 arted.;; ;;.;; (
0b80: 74 72 69 67 67 65 72 20 22 49 6e 69 74 22 20 20 trigger "Init"
0b90: 20 20 20 23 2f 54 68 69 73 20 69 73 20 61 20 68 #/This is a h
0ba0: 65 61 64 65 72 2f 29 0a 3b 3b 20 28 74 72 69 67 eader/).;; (trig
0bb0: 67 65 72 20 22 49 6e 69 74 45 6e 64 22 20 20 23 ger "InitEnd" #
0bc0: 2f 5e 5c 73 2a 24 2f 29 0a 3b 3b 20 28 73 65 63 /^\s*$/).;; (sec
0bd0: 74 69 6f 6e 20 22 49 6e 69 74 22 20 22 49 6e 69 tion "Init" "Ini
0be0: 74 22 20 22 49 6e 69 74 45 6e 64 22 29 0a 3b 3b t" "InitEnd").;;
0bf0: 20 0a 3b 3b 20 28 74 72 69 67 67 65 72 20 22 42 .;; (trigger "B
0c00: 6f 64 79 22 20 20 20 20 20 23 2f 5e 2e 2a 24 2f ody" #/^.*$/
0c10: 29 20 3b 3b 20 61 6e 79 74 68 69 6e 67 20 73 74 ) ;; anything st
0c20: 61 72 74 73 20 74 68 65 20 62 6f 64 79 0a 3b 3b arts the body.;;
0c30: 20 3b 3b 20 28 74 72 69 67 67 65 72 20 22 45 6e ;; (trigger "En
0c40: 64 42 6f 64 79 22 20 20 23 2f 54 68 69 73 20 68 dBody" #/This h
0c50: 61 64 20 62 65 74 74 65 72 20 6e 65 76 65 72 20 ad better never
0c60: 6d 61 74 63 68 2f 29 0a 3b 3b 20 0a 3b 3b 20 28 match/).;; .;; (
0c70: 73 65 63 74 69 6f 6e 20 22 42 6f 64 79 22 20 20 section "Body"
0c80: 20 20 20 22 42 6f 64 79 22 20 22 45 6e 64 42 6f "Body" "EndBo
0c90: 64 79 22 29 0a 3b 3b 20 0a 3b 3b 20 28 74 72 69 dy").;; .;; (tri
0ca0: 67 67 65 72 20 22 42 6c 61 68 32 22 20 20 20 20 gger "Blah2"
0cb0: 23 2f 5e 62 65 67 69 6e 20 42 6c 61 68 32 2f 29 #/^begin Blah2/)
0cc0: 0a 3b 3b 20 28 74 72 69 67 67 65 72 20 22 42 6c .;; (trigger "Bl
0cd0: 61 68 32 45 6e 64 22 20 23 2f 5e 65 6e 64 20 42 ah2End" #/^end B
0ce0: 6c 61 68 32 2f 29 0a 3b 3b 20 28 73 65 63 74 69 lah2/).;; (secti
0cf0: 6f 6e 20 22 42 6c 61 68 32 22 20 20 20 20 22 42 on "Blah2" "B
0d00: 6c 61 68 32 22 20 22 42 6c 61 68 32 45 6e 64 22 lah2" "Blah2End"
0d10: 29 0a 3b 3b 20 0a 3b 3b 20 28 65 78 70 65 63 74 ).;; .;; (expect
0d20: 3a 72 65 71 75 69 72 65 64 20 69 6e 20 22 49 6e :required in "In
0d30: 69 74 22 20 20 3d 20 31 20 22 48 65 61 64 65 72 it" = 1 "Header
0d40: 22 20 20 20 20 20 20 23 2f 54 68 69 73 20 69 73 " #/This is
0d50: 20 61 20 68 65 61 64 65 72 2f 29 0a 3b 3b 20 28 a header/).;; (
0d60: 65 78 70 65 63 74 3a 72 65 71 75 69 72 65 64 20 expect:required
0d70: 69 6e 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 22 in "LogFileBody"
0d80: 20 3e 20 30 20 22 53 6f 6d 65 74 68 69 6e 67 20 > 0 "Something
0d90: 72 65 71 75 69 72 65 64 20 62 75 74 20 6e 6f 74 required but not
0da0: 20 66 6f 75 6e 64 22 20 23 2f 54 68 69 73 20 69 found" #/This i
0db0: 73 20 72 65 71 75 69 72 65 64 20 62 75 74 20 6e s required but n
0dc0: 6f 74 20 66 6f 75 6e 64 2f 29 0a 3b 3b 20 28 65 ot found/).;; (e
0dd0: 78 70 65 63 74 3a 76 61 6c 75 65 20 20 20 20 69 xpect:value i
0de0: 6e 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 22 20 n "LogFileBody"
0df0: 31 2e 39 20 30 2e 31 20 22 4f 75 74 70 75 74 20 1.9 0.1 "Output
0e00: 76 6f 6c 74 61 67 65 22 20 23 2f 4d 65 61 73 75 voltage" #/Measu
0e10: 72 65 64 20 76 6f 6c 74 61 67 65 20 6f 75 74 70 red voltage outp
0e20: 75 74 3a 5c 73 2a 28 5b 5c 64 5c 2e 5c 2b 5c 2d ut:\s*([\d\.\+\-
0e30: 65 5d 2b 29 76 2f 29 0a 3b 3b 20 28 65 78 70 65 e]+)v/).;; (expe
0e40: 63 74 3a 76 61 6c 75 65 20 20 20 20 69 6e 20 22 ct:value in "
0e50: 4c 6f 67 46 69 6c 65 42 6f 64 79 22 20 30 2e 35 LogFileBody" 0.5
0e60: 20 30 2e 31 20 22 4f 75 74 70 75 74 20 63 75 72 0.1 "Output cur
0e70: 72 65 6e 74 22 20 23 2f 4d 65 61 73 75 72 65 64 rent" #/Measured
0e80: 20 6f 75 74 70 75 74 20 63 75 72 72 65 6e 74 3a output current:
0e90: 5c 73 2a 28 5b 5c 64 5c 2e 5c 2b 5c 2d 65 5d 2b \s*([\d\.\+\-e]+
0ea0: 29 6d 41 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 )mA/).;; (expect
0eb0: 3a 76 61 6c 75 65 20 20 20 20 69 6e 20 22 4c 6f :value in "Lo
0ec0: 67 46 69 6c 65 42 6f 64 79 22 20 31 31 30 65 39 gFileBody" 110e9
0ed0: 20 32 65 39 20 22 41 20 62 69 67 20 6e 75 6d 62 2e9 "A big numb
0ee0: 65 72 20 28 66 69 72 73 74 29 22 20 23 2f 46 72 er (first)" #/Fr
0ef0: 65 71 3a 5c 73 2a 28 5b 5c 64 5c 2e 5c 2b 5c 2d eq:\s*([\d\.\+\-
0f00: 65 5d 2b 29 5c 73 2b 48 7a 2f 29 0a 3b 3b 20 28 e]+)\s+Hz/).;; (
0f10: 65 78 70 65 63 74 3a 76 61 6c 75 65 20 20 20 20 expect:value
0f20: 69 6e 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 22 in "LogFileBody"
0f30: 20 31 31 30 65 39 20 31 65 39 20 22 41 20 62 69 110e9 1e9 "A bi
0f40: 67 20 6e 75 6d 62 65 72 20 28 73 65 63 6f 6e 64 g number (second
0f50: 29 2c 20 68 6f 6f 6b 20 6e 6f 74 20 63 61 6c 6c ), hook not call
0f60: 65 64 22 20 23 2f 46 72 65 71 3a 5c 73 2a 28 5b ed" #/Freq:\s*([
0f70: 5c 64 5c 2e 5c 2b 5c 2d 65 5d 2b 29 48 7a 2f 29 \d\.\+\-e]+)Hz/)
0f80: 0a 3b 3b 20 28 65 78 70 65 63 74 3a 76 61 6c 75 .;; (expect:valu
0f90: 65 20 20 20 20 69 6e 20 22 4c 6f 67 46 69 6c 65 e in "LogFile
0fa0: 42 6f 64 79 22 20 31 31 30 65 39 20 31 65 39 20 Body" 110e9 1e9
0fb0: 22 41 20 62 69 67 20 6e 75 6d 62 65 72 20 28 6e "A big number (n
0fc0: 65 76 65 72 20 61 63 74 69 76 61 74 65 64 29 22 ever activated)"
0fd0: 20 23 2f 46 72 65 71 3a 5c 73 2a 28 5b 5c 64 5c #/Freq:\s*([\d\
0fe0: 2e 5c 2b 5c 2d 65 5d 2b 29 7a 48 2f 29 0a 3b 3b .\+\-e]+)zH/).;;
0ff0: 20 0a 3b 3b 20 3b 3b 20 55 73 69 6e 67 20 6d 61 .;; ;; Using ma
1000: 74 63 68 20 6e 75 6d 62 65 72 0a 3b 3b 20 28 65 tch number.;; (e
1010: 78 70 65 63 74 3a 76 61 6c 75 65 20 20 20 20 69 xpect:value i
1020: 6e 20 22 4c 6f 67 46 69 6c 65 42 6f 64 79 22 20 n "LogFileBody"
1030: 31 2e 39 20 30 2e 31 20 22 54 69 6d 65 20 56 6f 1.9 0.1 "Time Vo
1040: 6c 74 61 67 65 22 20 23 2f 6f 75 74 3a 20 28 5c ltage" #/out: (\
1050: 64 2b 29 5c 73 2b 28 5c 64 2b 29 2f 20 6d 61 74 d+)\s+(\d+)/ mat
1060: 63 68 3a 20 32 29 0a 3b 3b 20 0a 3b 3b 20 3b 3b ch: 2).;; .;; ;;
1070: 20 43 6f 6d 70 61 72 69 73 6f 6e 20 69 6e 73 74 Comparison inst
1080: 65 61 64 20 6f 66 20 74 6f 6c 65 72 61 6e 63 65 ead of tolerance
1090: 0a 3b 3b 20 28 65 78 70 65 63 74 3a 76 61 6c 75 .;; (expect:valu
10a0: 65 20 20 20 20 69 6e 20 22 4c 6f 67 46 69 6c 65 e in "LogFile
10b0: 42 6f 64 79 22 20 31 2e 39 20 3e 20 20 20 22 54 Body" 1.9 > "T
10c0: 69 6d 65 20 76 6f 6c 74 61 67 65 22 20 23 2f 6f ime voltage" #/o
10d0: 75 74 3a 20 28 5c 64 2b 29 5c 73 2b 28 5c 64 2b ut: (\d+)\s+(\d+
10e0: 29 2f 20 6d 61 74 63 68 3a 20 32 29 0a 3b 3b 20 )/ match: 2).;;
10f0: 0a 3b 3b 20 28 65 78 70 65 63 74 3a 69 67 6e 6f .;; (expect:igno
1100: 72 65 20 20 20 69 6e 20 22 42 6c 61 68 32 22 20 re in "Blah2"
1110: 3c 20 39 39 20 22 46 41 4c 53 45 20 45 52 52 4f < 99 "FALSE ERRO
1120: 52 22 20 23 2f 45 52 52 4f 52 2f 29 0a 3b 3b 20 R" #/ERROR/).;;
1130: 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 65 20 20 (expect:ignore
1140: 20 69 6e 20 22 42 6f 64 79 22 20 20 3c 20 39 39 in "Body" < 99
1150: 20 22 49 67 6e 6f 72 65 20 74 68 65 20 77 6f 72 "Ignore the wor
1160: 64 20 65 72 72 6f 72 20 69 6e 20 63 6f 6d 6d 65 d error in comme
1170: 6e 74 73 22 20 23 2f 5e 5c 2f 5c 2f 2e 2a 65 72 nts" #/^\/\/.*er
1180: 72 6f 72 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 ror/).;; (expect
1190: 3a 77 61 72 6e 69 6e 67 20 20 69 6e 20 22 42 6f :warning in "Bo
11a0: 64 79 22 20 20 3d 20 30 20 22 41 6e 79 20 77 61 dy" = 0 "Any wa
11b0: 72 6e 69 6e 67 22 20 23 2f 57 41 52 4e 49 4e 47 rning" #/WARNING
11c0: 2f 29 0a 3b 3b 20 28 65 78 70 65 63 74 3a 65 72 /).;; (expect:er
11d0: 72 6f 72 20 20 20 20 69 6e 20 22 42 6f 64 79 22 ror in "Body"
11e0: 20 20 3d 20 30 20 22 45 52 52 4f 52 20 42 4c 41 = 0 "ERROR BLA
11f0: 48 22 20 20 28 6c 69 73 74 20 23 2f 45 52 52 4f H" (list #/ERRO
1200: 52 2f 20 23 2f 65 72 72 6f 72 2f 29 29 20 3b 3b R/ #/error/)) ;;
1210: 20 62 75 74 20 64 69 73 61 6c 6c 6f 77 20 61 6e but disallow an
1220: 79 20 6f 74 68 65 72 20 65 72 72 6f 72 73 0a 3b y other errors.;
1230: 3b 20 0a 3b 3b 20 3b 28 65 78 70 65 63 74 20 69 ; .;; ;(expect i
1240: 6e 20 22 49 6e 69 74 22 20 20 3c 20 31 20 22 4a n "Init" < 1 "J
1250: 75 6e 6b 22 20 20 20 20 20 20 20 20 23 2f 54 68 unk" #/Th
1260: 69 73 20 69 73 20 62 6f 67 75 73 2f 29 0a is is bogus/).