Artifact
8a1c71a14c6ba0cc7427988fa561ef0d6484fd39:
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 3b 3b 20 66 69 72 73 74 20 65 6e 73 75 ...;; first ensu
0060: 72 65 20 79 6f 75 72 20 72 75 6e 20 61 74 20 6c re your run at l
0070: 65 61 73 74 20 73 74 61 72 74 65 64 0a 3b 3b 0a east started.;;.
0080: 0a 28 74 72 69 67 67 65 72 20 22 42 6f 64 79 22 .(trigger "Body"
0090: 20 20 20 20 20 23 2f 5e 2e 2a 24 2f 29 20 3b 3b #/^.*$/) ;;
00a0: 20 61 6e 79 74 68 69 6e 67 20 73 74 61 72 74 73 anything starts
00b0: 20 74 68 65 20 62 6f 64 79 0a 3b 3b 20 28 74 72 the body.;; (tr
00c0: 69 67 67 65 72 20 22 45 6e 64 42 6f 64 79 22 20 igger "EndBody"
00d0: 20 23 2f 54 68 69 73 20 68 61 64 20 62 65 74 74 #/This had bett
00e0: 65 72 20 6e 65 76 65 72 20 6d 61 74 63 68 2f 29 er never match/)
00f0: 0a 28 73 65 63 74 69 6f 6e 20 22 42 6f 64 79 22 .(section "Body"
0100: 20 20 20 20 20 22 42 6f 64 79 22 20 22 45 6e 64 "Body" "End
0110: 42 6f 64 79 22 29 0a 0a 28 74 72 69 67 67 65 72 Body")..(trigger
0120: 20 22 43 68 69 63 6b 65 6e 20 42 75 69 6c 64 20 "Chicken Build
0130: 53 74 61 72 74 22 20 23 2f 5e 63 68 69 63 6b 65 Start" #/^chicke
0140: 6e 2d 2f 29 0a 28 74 72 69 67 67 65 72 20 22 43 n-/).(trigger "C
0150: 68 69 63 6b 65 6e 20 42 75 69 6c 64 20 45 6e 64 hicken Build End
0160: 22 20 20 20 23 2f 5e 6d 61 6b 65 2e 2a 4c 65 61 " #/^make.*Lea
0170: 76 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 2a ving directory.*
0180: 63 68 69 63 6b 65 6e 2d 34 2e 36 2e 35 2f 29 0a chicken-4.6.5/).
0190: 28 73 65 63 74 69 6f 6e 20 22 43 68 69 63 6b 65 (section "Chicke
01a0: 6e 20 62 75 69 6c 64 20 53 74 61 72 74 22 20 22 n build Start" "
01b0: 43 68 69 63 6b 65 6e 20 62 75 69 6c 64 20 45 6e Chicken build En
01c0: 64 22 20 22 43 68 69 63 6b 65 6e 20 42 75 69 6c d" "Chicken Buil
01d0: 64 22 29 0a 0a 28 74 72 69 67 67 65 72 20 22 45 d")..(trigger "E
01e0: 67 67 73 20 53 74 61 72 74 22 20 23 2f 61 6c 69 ggs Start" #/ali
01f0: 61 73 2e 2a 68 74 74 70 3a 2e 2e 63 68 69 63 6b as.*http:..chick
0200: 65 6e 2f 29 0a 28 74 72 69 67 67 65 72 20 22 45 en/).(trigger "E
0210: 67 67 73 20 45 6e 64 22 20 20 20 23 2f 49 6e 73 ggs End" #/Ins
0220: 74 61 6c 6c 20 73 71 6c 69 74 65 33 2f 29 0a 28 tall sqlite3/).(
0230: 73 65 63 74 69 6f 6e 20 22 45 67 67 73 22 20 22 section "Eggs" "
0240: 45 67 67 73 20 53 74 61 72 74 22 20 22 45 67 67 Eggs Start" "Egg
0250: 73 20 45 6e 64 22 29 0a 0a 28 66 6f 72 2d 65 61 s End")..(for-ea
0260: 63 68 20 28 6c 61 6d 62 64 61 20 28 65 67 67 29 ch (lambda (egg)
0270: 0a 09 20 20 20 20 28 65 78 70 65 63 74 3a 72 65 .. (expect:re
0280: 71 75 69 72 65 64 20 69 6e 20 22 45 67 67 73 22 quired in "Eggs"
0290: 20 3e 20 30 20 28 63 6f 6e 63 20 22 52 65 71 75 > 0 (conc "Requ
02a0: 69 72 65 20 69 6e 73 74 61 6c 6c 20 6f 66 20 22 ire install of "
02b0: 20 65 67 67 29 20 28 72 65 67 65 78 70 20 28 63 egg) (regexp (c
02c0: 6f 6e 63 20 22 69 6e 73 74 61 6c 6c 69 6e 67 20 onc "installing
02d0: 22 20 65 67 67 29 29 29 29 0a 09 20 20 27 28 72 " egg)))).. '(r
02e0: 65 61 64 6c 69 6e 65 20 61 70 72 6f 70 6f 73 20 eadline apropos
02f0: 62 61 73 65 36 34 20 72 65 67 65 78 2d 6c 69 74 base64 regex-lit
0300: 65 72 61 6c 73 20 66 6f 72 6d 61 74 20 72 65 67 erals format reg
0310: 65 78 2d 63 61 73 65 20 74 65 73 74 20 63 6f 6f ex-case test coo
0320: 70 73 20 74 72 61 63 65 29 29 0a 0a 28 65 78 70 ps trace))..(exp
0330: 65 63 74 3a 69 67 6e 6f 72 65 20 20 20 69 6e 20 ect:ignore in
0340: 22 42 6f 64 79 22 20 20 3c 20 39 39 20 22 49 67 "Body" < 99 "Ig
0350: 6e 6f 72 65 20 48 41 56 45 5f 53 54 52 45 52 52 nore HAVE_STRERR
0360: 4f 52 22 20 23 2f 64 65 66 69 6e 65 20 48 41 56 OR" #/define HAV
0370: 45 5f 53 54 52 45 52 52 4f 52 2f 29 0a 28 65 78 E_STRERROR/).(ex
0380: 70 65 63 74 3a 69 67 6e 6f 72 65 20 20 20 69 6e pect:ignore in
0390: 20 22 42 6f 64 79 22 20 20 3c 20 39 39 20 22 49 "Body" < 99 "I
03a0: 67 6e 6f 72 65 20 72 65 66 65 72 65 6e 63 65 73 gnore references
03b0: 20 74 6f 20 63 68 65 63 6b 2d 65 72 72 6f 72 73 to check-errors
03c0: 22 20 20 23 2f 63 68 65 63 6b 2d 65 72 72 6f 72 " #/check-error
03d0: 73 2f 29 0a 28 65 78 70 65 63 74 3a 69 67 6e 6f s/).(expect:igno
03e0: 72 65 20 20 20 69 6e 20 22 42 6f 64 79 22 20 20 re in "Body"
03f0: 3c 20 39 39 20 22 49 67 6e 6f 72 65 20 72 65 66 < 99 "Ignore ref
0400: 65 72 65 6e 63 65 73 20 74 6f 20 74 79 70 65 2d erences to type-
0410: 65 72 72 6f 72 73 22 20 20 20 23 2f 74 79 70 65 errors" #/type
0420: 2d 65 72 72 6f 72 73 2f 29 0a 28 65 78 70 65 63 -errors/).(expec
0430: 74 3a 69 67 6e 6f 72 65 20 20 20 69 6e 20 22 42 t:ignore in "B
0440: 6f 64 79 22 20 20 3c 20 39 39 20 22 49 67 6e 6f ody" < 99 "Igno
0450: 72 65 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f re references to
0460: 20 73 72 66 69 2d 34 2d 65 72 72 6f 72 73 22 20 srfi-4-errors"
0470: 23 2f 73 72 66 69 2d 34 2d 65 72 72 6f 72 73 2f #/srfi-4-errors/
0480: 29 0a 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 65 ).(expect:ignore
0490: 20 20 20 69 6e 20 22 42 6f 64 79 22 20 20 3c 20 in "Body" <
04a0: 39 39 20 22 49 67 6e 6f 72 65 20 72 65 64 65 66 99 "Ignore redef
04b0: 69 6e 69 74 69 6f 6e 20 6f 66 20 69 6d 70 6f 72 inition of impor
04c0: 74 65 64 20 76 61 6c 75 65 20 62 69 6e 64 69 6e ted value bindin
04d0: 67 73 22 20 23 2f 57 61 72 6e 69 6e 67 3a 20 72 gs" #/Warning: r
04e0: 65 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 69 edefinition of i
04f0: 6d 70 6f 72 74 65 64 20 76 61 6c 75 65 20 62 69 mported value bi
0500: 6e 64 69 6e 67 2f 29 0a 28 65 78 70 65 63 74 3a nding/).(expect:
0510: 69 67 6e 6f 72 65 20 20 20 69 6e 20 22 42 6f 64 ignore in "Bod
0520: 79 22 20 20 3d 20 31 20 20 22 49 67 6e 6f 72 65 y" = 1 "Ignore
0530: 20 43 44 20 6e 61 74 69 76 65 20 77 69 6e 64 6f CD native windo
0540: 77 20 64 72 69 76 65 72 20 77 61 72 6e 69 6e 67 w driver warning
0550: 22 20 23 2f 57 61 72 6e 69 6e 67 3a 20 43 44 20 " #/Warning: CD
0560: 6e 61 74 69 76 65 20 77 69 6e 64 6f 77 20 64 72 native window dr
0570: 69 76 65 72 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 iver not found,
0580: 73 6f 6d 65 20 62 69 6e 64 69 6e 67 73 20 63 61 some bindings ca
0590: 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 nnot be compiled
05a0: 2f 29 0a 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 /).(expect:ignor
05b0: 65 20 20 20 69 6e 20 22 42 6f 64 79 22 20 20 3c e in "Body" <
05c0: 20 39 39 20 22 49 67 6e 6f 72 65 20 28 73 65 74 99 "Ignore (set
05d0: 75 70 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 69 6e up-error-handlin
05e0: 67 29 22 20 23 2f 5c 28 73 65 74 75 70 2d 65 72 g)" #/\(setup-er
05f0: 72 6f 72 2d 68 61 6e 64 6c 69 6e 67 5c 29 2f 29 ror-handling\)/)
0600: 0a 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 65 20 .(expect:ignore
0610: 20 20 69 6e 20 22 42 6f 64 79 22 20 20 3c 20 39 in "Body" < 9
0620: 39 20 22 49 67 6e 6f 72 65 20 69 6e 73 74 61 6c 9 "Ignore instal
0630: 6c 2d 6f 74 68 65 72 2d 66 69 6c 65 73 20 65 72 l-other-files er
0640: 72 6f 72 22 20 23 2f 6d 61 6b 65 2e 2a 69 6e 73 ror" #/make.*ins
0650: 74 61 6c 6c 2d 6f 74 68 65 72 2d 66 69 6c 65 73 tall-other-files
0660: 2e 2a 45 72 72 6f 72 2e 2a 69 67 6e 6f 72 65 64 .*Error.*ignored
0670: 2f 29 0a 28 65 78 70 65 63 74 3a 69 67 6e 6f 72 /).(expect:ignor
0680: 65 20 20 20 69 6e 20 22 42 6f 64 79 22 20 20 3c e in "Body" <
0690: 20 39 39 20 22 49 67 6e 6f 72 65 20 73 63 68 65 99 "Ignore sche
06a0: 6d 65 20 66 69 6c 65 73 20 77 69 74 68 20 65 72 me files with er
06b0: 72 6f 72 20 69 6e 20 6e 61 6d 65 22 20 23 2f 65 ror in name" #/e
06c0: 72 72 6f 72 5b 61 2d 7a 5c 2e 41 2d 5a 30 2d 39 rror[a-z\.A-Z0-9
06d0: 5c 2d 5d 2a 5c 2e 28 73 63 6d 7c 73 6f 29 2f 29 \-]*\.(scm|so)/)
06e0: 0a 0a 28 65 78 70 65 63 74 3a 65 72 72 6f 72 20 ..(expect:error
06f0: 20 20 20 69 6e 20 22 42 6f 64 79 22 20 20 3d 20 in "Body" =
0700: 30 20 22 57 41 52 4e 49 4e 47 22 20 23 2f 77 61 0 "WARNING" #/wa
0710: 72 6e 69 6e 67 2f 69 29 0a 28 65 78 70 65 63 74 rning/i).(expect
0720: 3a 65 72 72 6f 72 20 20 20 20 69 6e 20 22 42 6f :error in "Bo
0730: 64 79 22 20 20 3d 20 30 20 22 45 52 52 4f 52 22 dy" = 0 "ERROR"
0740: 20 20 28 6c 69 73 74 20 23 2f 45 52 52 4f 52 2f (list #/ERROR/
0750: 20 23 2f 65 72 72 6f 72 2f 69 29 29 20 3b 3b 20 #/error/i)) ;;
0760: 62 75 74 20 64 69 73 61 6c 6c 6f 77 20 61 6e 79 but disallow any
0770: 20 6f 74 68 65 72 20 65 72 72 6f 72 73 0a other errors.