芝麻web文件管理V1.00
编辑当前文件:/home/conskgoa/doughi.co.uk/srfi-64.go.tar
usr/lib64/guile/2.0/ccache/srfi/srfi-64.go 0000644 00000527654 15220033516 0013613 0 ustar 00 GOOF----LE-8-2.0 ] 4 hC ] g guile g define-module* g srfi g srfi-64 g filenameS f srfi/srfi-64.scm g exportsS g test-begin g test-end g test-assert g test-eqv g test-eq g test-equal g test-approximate g test-error g test-apply g test-with-runner g test-match-nth g test-match-all g test-match-any g test-match-name g test-skip g test-expect-fail g test-read-eval-string g test-runner-group-path g test-group g test-group-with-cleanup g test-result-ref !g test-result-set! "g test-result-clear #g test-result-remove $g test-result-kind %g test-passed? &g test-log-to-file 'g test-runner? (g test-runner-reset )g test-runner-null *g test-runner-simple +g test-runner-current ,g test-runner-factory -g test-runner-get .g test-runner-create /g test-runner-test-name 0g test-runner-pass-count 1g test-runner-pass-count! 2g test-runner-fail-count 3g test-runner-fail-count! 4g test-runner-xpass-count 5g test-runner-xpass-count! 6g test-runner-xfail-count 7g test-runner-xfail-count! 8g test-runner-skip-count 9g test-runner-skip-count! :g test-runner-group-stack ;g test-runner-group-stack! <g test-runner-on-test-begin =g test-runner-on-test-begin! >g test-runner-on-test-end ?g test-runner-on-test-end! @g test-runner-on-group-begin Ag test-runner-on-group-begin! Bg test-runner-on-group-end Cg test-runner-on-group-end! Dg test-runner-on-final Eg test-runner-on-final! Fg test-runner-on-bad-count Gg test-runner-on-bad-count! Hg test-runner-on-bad-end-name Ig test-runner-on-bad-end-name! Jg test-result-alist Kg test-result-alist! Lg test-runner-aux-value Mg test-runner-aux-value! Ng test-on-group-begin-simple Og test-on-group-end-simple Pg test-on-bad-count-simple Qg test-on-bad-end-name-simple Rg test-on-final-simple Sg test-on-test-end-simple T !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSR J Ug set-current-module VU WU Xg cond-expand-provide Yg current-module Z [g process-use-modules \[ ][ ^g srfi-9 _^ `_ ag srfi-39 ba cb dg make-syntax-transformer ed fd gg %test-export hg macro ig $sc-dispatch ji ki lg any mll ng syntax-object og if pg top qp rg ribcage sg dummy tg names ust vg m-46961e5187-6 wvp xwq yf l-46961e5187-b zf l-46961e5187-c {yz |rux{ }r ~g x ~ w f l-46961e5187-8 r q|} g hygiene no n g syntax-violation f -source expression failed to match any pattern g %test-record-define g each llll l l l g define-record-type g alloc g runner? g name g index g setter g getter s g m-46961e5187-11 p qqqqqq f l-46961e5187-16 f l-46961e5187-17 f l-46961e5187-18 f l-46961e5187-19 f l-46961e5187-1a f l-46961e5187-1b f l-46961e5187-1c r f l-46961e5187-13 r q} n g test-runner n g map g list g %%test-runner-alloc-procedure g %test-runner-alloc g _ g lambda g m-46961e5187-2b p f l-46961e5187-2d r g shift g proc-name g args qq f l-1e8ba8b5a-2ba f l-1e8ba8b5a-2bb r g key g value g formals g body qqqqq f l-1e8ba8b5a-2ad f l-1e8ba8b5a-2ae f l-1e8ba8b5a-2af f l-1e8ba8b5a-2b0 f l-1e8ba8b5a-2b1 r g make-procedure-name q f l-1e8ba8b5a-29d r q f l-1e8ba8b5a-29c r }}}}} ^ n g make-struct g m-46961e5187-29 p g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e p f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 r g ctor-args f l-1e8ba8b5a-37a r g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 r g form g type-name g constructor-spec g field-names qqqq f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e r g record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers qqqqqqqq f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 r f l-1e8ba8b5a-334 r !}}}}}} "n! #g m-46961e5187-27 $#p %$}} &n% 'n ! (} )n( *"&')))))))))))))))))))))) +* ,+ -g each-any .- /_ 0_ 1f Wrong number of arguments 2g identifier? 3_2 4_2 5q} 6n5 7g record-type-vtable 8_7 9_7 :g ,pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw ;g default-record-printer <_; =_; >g pass-count ?g fail-count @g xpass-count Ag xfail-count Bg skip-count Cg skip-list Dg fail-list Eg run-list Fg skip-save Gg fail-save Hg group-stack Ig on-test-begin Jg on-test-end Kg on-group-begin Lg on-group-end Mg on-final Ng on-bad-count Og on-bad-end-name Pg total-count Qg count-list Rg result-alist Sg aux-value T>?@ABCDEFGHIJKLMNOPQRS Ug set-struct-vtable-name! V_U W_U Xg vtable-offset-user Y_X Z_X [g %test-runner?-procedure \l ]g m-46961e5187-36 ^]p _g t-46961e5187-35 `_ a^ bf l-46961e5187-3b cb dr`ac ef l-46961e5187-38 fe graf h^d}g}}}} inh jg obj kg t-1e8ba8b5a-47e lg t-1e8ba8b5a-478 mg t-1e8ba8b5a-479 ng t-1e8ba8b5a-47a og t-1e8ba8b5a-47d pg t-1e8ba8b5a-47c qg t-1e8ba8b5a-47b rklmnopq sg m-1e8ba8b5a-47f tsp uttttttt vf l-1e8ba8b5a-483 wf l-1e8ba8b5a-484 xf l-1e8ba8b5a-485 yf l-1e8ba8b5a-486 zf l-1e8ba8b5a-487 {f l-1e8ba8b5a-488 |f l-1e8ba8b5a-489 }vwxyz{| ~rru} g copier-id f l-1e8ba8b5a-476 r g ctor-name f l-1e8ba8b5a-46e r f l-1e8ba8b5a-46c r g layout f l-1e8ba8b5a-46a r g immutable? f l-1e8ba8b5a-468 r g field-count f l-1e8ba8b5a-466 r g getter-ids f l-1e8ba8b5a-463 r g field-ids f l-1e8ba8b5a-460 r g predicate-name g field-spec qqqqqq f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 r d}g}~}}}}}}}}}}} nj g and n g struct? n g eq? n g struct-vtable n $d}g} n i q}g n[ g throw-bad-struct _ _ g !%test-runner-pass-count-procedure g free-id g %%on-error g m-46961e5187-42 p f l-46961e5187-44 r }}}}} n l g %%type g t-1e8ba8b5a-3a5 g t-1e8ba8b5a-3a6 g t-1e8ba8b5a-3a7 g t-1e8ba8b5a-3a8 g t-1e8ba8b5a-3a9 g t-1e8ba8b5a-3aa g t-1e8ba8b5a-3ab g m-1e8ba8b5a-3ac p f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 r f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 r qqq f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 r }}}}}} n l g ck g err g s f l-46961e5187-47 f l-46961e5187-48 r }}}}} n g quote n $}} n g %%index n l f l-46961e5187-4c f l-46961e5187-4d r }}}}} n n } n g %%copier n l f l-46961e5187-51 f l-46961e5187-52 ! "r! #"}}}}} $n# %n# &g %%test-runner-set-fields '$"}} (n&' )%( *) +g t-46961e5187-41 ,+ -f l-46961e5187-56 .- /r,. 0/}}}}} 1n0 2/}}}}}} 3n2 43 5no2 6n2 7n2 873 9$/}} :n9 ;68: <g struct-ref =n<2 >/} ?n > @=3? An2 Bn2 Cq/} Dn0C EBD FA3E G5;@F H14G Iq} JnI Kg !%test-runner-fail-count-procedure Lg m-46961e5187-5d MLp NM Of l-46961e5187-5f PO QrNP RM}Q}}}} SnR TS UTl V}Q}}}}} WnV XW YUXl ZMM [f l-46961e5187-62 \f l-46961e5187-63 ][\ ^rZ] _M^}Q}}}} `n_ an_ b$^}Q} cnb dac ed fn V gf hUgl if l-46961e5187-67 jf l-46961e5187-68 kij lrZk mMl}Q}}}} nnm onm pl}Q qn p roq sr tnV ut vUul wf l-46961e5187-6c xf l-46961e5187-6d ywx zrZy {Mz}Q}}}} |n{ }n{ ~$z}Q} n&~ } g t-46961e5187-5c f l-46961e5187-71 rN M}Q}}}} n }Q}}}}} n no n n $}Q} n n< }Q n n n q}Q n2 q}Q nK g "%test-runner-xpass-count-procedure g m-46961e5187-78 p f l-46961e5187-7a r }}}}} n l }}}}}} n l f l-46961e5187-7d f l-46961e5187-7e r }}}}} n n $}} n n l f l-46961e5187-82 f l-46961e5187-83 r }}}}} n n } n n l f l-46961e5187-87 f l-46961e5187-88 r }}}}} n n $}} n& g t-46961e5187-77 f l-46961e5187-8c r }}}}} n }}}}}} n no n n $}} n n< } n n n q} n4 q} n g "%test-runner-xfail-count-procedure g m-46961e5187-93 p f l-46961e5187-95 r }}}}} n l }}}}}} n l f l-46961e5187-98 f l-46961e5187-99 r }}}}} n n $ }} n n l f l-46961e5187-9d f l-46961e5187-9e r }}}}} n n } n n ! "!l #f l-46961e5187-a2 $f l-46961e5187-a3 %#$ &r% '&}}}}} (n' )n' *$&}} +n&* ,)+ -, .g t-46961e5187-92 /. 0f l-46961e5187-a7 10 2r/1 32}}}}} 4n3 52}}}}}} 6n5 76 8no5 9n5 :n5 ;:6 <$2}} =n< >9;= ?n<5 @2} An @ B?6A Cn5 Dn5 Eq2} Fn6E GDF HC6G I8>BH J47I Kq} LnK Mg !%test-runner-skip-count-procedure Ng m-46961e5187-ae ONp PO Qf l-46961e5187-b0 RQ SrPR TO}S}}}} UnT VU WVl X}S}}}}} YnX ZY [WZl \OO ]f l-46961e5187-b3 ^f l-46961e5187-b4 _]^ `r\_ aO`}S}}}} bna cna d$`}S} end fce gf hn X ih jWil kf l-46961e5187-b8 lf l-46961e5187-b9 mkl nr\m oOn}S}}}} pno qno rn}S sn r tqs ut vnX wv xWwl yf l-46961e5187-bd zf l-46961e5187-be {yz |r\{ }O|}S}}}} ~n} n} $|}S} n& g t-46961e5187-ad f l-46961e5187-c2 rP O}S}}}} n }S}}}}} n no n n $}S} n n< }S n n n q}S n8 q}S nM g %test-runner-skip-list g !%%test-runner-skip-list-procedure g m-46961e5187-c9 p f l-46961e5187-cb r }}}}} n l }}}}}} n l f l-46961e5187-ce f l-46961e5187-cf r }}}}} n n $}} n n l f l-46961e5187-d3 f l-46961e5187-d4 r }}}}} n n } n n l f l-46961e5187-d8 f l-46961e5187-d9 r }}}}} n n $}} n& g t-46961e5187-c8 f l-46961e5187-dd r }}}}} n }}}}}} n no n n $}} n n< } n n n q} n q} n g %test-runner-fail-list g !%%test-runner-fail-list-procedure g m-46961e5187-e4 p f l-46961e5187-e6 r }}}}} n l }}}}}} n l f l-46961e5187-e9 f l-46961e5187-ea r }}}}} n n $}} n n l f l-46961e5187-ee f l-46961e5187-ef r }}}}} n n } !n " ! #" $n %$ &%l 'f l-46961e5187-f3 (f l-46961e5187-f4 )'( *r ) +*}}}}} ,n+ -n+ .$*}} /n&. 0-/ 10 2g t-46961e5187-e3 32 4f l-46961e5187-f8 54 6r35 76}}}}} 8n7 96}}}}}} :n9 ;: <no9 =n9 >n9 ?>: @$6}} An@ B=?A Cn<9 D6} En D FC:E Gn9 Hn9 Iq6} JnI KHJ LG:K M<BFL N8;M Oq} PnO Qg %test-runner-run-list Rg %%test-runner-run-list-procedure Sg m-46961e5187-ff TSp UT Vf l-46961e5187-101 WV XrUW YT}X}}}} ZnY [Z \[l ]}X}}}}} ^n] _^ `\_l aTT bf l-46961e5187-104 cf l-46961e5187-105 dbc erad fTe}X}}}} gnf hnf i$e}X} jni khj lk mn ] nm o\nl pf l-46961e5187-109 qf l-46961e5187-10a rpq srar tTs}X}}}} unt vnt ws}X xn w yvx zy {n] |{ }\|l ~f l-46961e5187-10e f l-46961e5187-10f ~ ra T}X}}}} n n $}X} n& g t-46961e5187-fe f l-46961e5187-113 rU T}X}}}} n }X}}}}} n no n n $}X} n n< }X n n n q}X nQ q}X nR g %test-runner-skip-save g !%%test-runner-skip-save-procedure g m-46961e5187-11a p f l-46961e5187-11c r }}}}} n l }}}}}} n l f l-46961e5187-11f f l-46961e5187-120 r }}}}} n n $}} n n l f l-46961e5187-124 f l-46961e5187-125 r }}}}} n n } n n l f l-46961e5187-129 f l-46961e5187-12a r }}}}} n n $}} n& g t-46961e5187-119 f l-46961e5187-12e r }}}}} n }}}}}} n no n n $}} n n< } n n n q} n q} n g %test-runner-fail-save g !%%test-runner-fail-save-procedure g m-46961e5187-135 p f l-46961e5187-137 r }}}}} n l }}}}}} n l f l-46961e5187-13a f l-46961e5187-13b r }}}}} n n $}} n n l f l-46961e5187-13f f l-46961e5187-140 !r "!}}}}} #n" $n" %!} &n % '$& (' )n *) + *l ,f l-46961e5187-144 -f l-46961e5187-145 .,- /r. 0/}}}}} 1n0 2n0 3$/}} 4n&3 524 65 7g t-46961e5187-134 87 9f l-46961e5187-149 :9 ;r8: <;}}}}} =n< >;}}}}}} ?n> @? Ano> Bn> Cn> DC? E$;}} FnE GBDF Hn<> I;} Jn I KH?J Ln> Mn> Nq;} OnN PMO QL?P RAGKQ S=@R Tq} Un T Vg "%test-runner-group-stack-procedure Wg m-46961e5187-150 XWp YX Zf l-46961e5187-152 [Z \rY[ ]X}\}}}} ^n] _^ `_l a}\}}}}} bna cb d`cl eXX ff l-46961e5187-155 gf l-46961e5187-156 hfg ireh jXi}\}}}} knj lnj m$i}\} nnm oln po qn a rq s`rl tf l-46961e5187-15a uf l-46961e5187-15b vtu wrev xXw}\}}}} ynx znx {w}\ |n { }z| ~} na `l f l-46961e5187-15f f l-46961e5187-160 re X}\}}}} n n $}\} n& g t-46961e5187-14f f l-46961e5187-164 rY X}\}}}} n }\}}}}} n no n n $}\} n n< }\ n n n q}\ n: q}\ nV g $%test-runner-on-test-begin-procedure g m-46961e5187-16b p f l-46961e5187-16d r }}}}} n l }}}}}} n l f l-46961e5187-170 f l-46961e5187-171 r }}}}} n n $}} n n l f l-46961e5187-175 f l-46961e5187-176 r }}}}} n n } n n l f l-46961e5187-17a f l-46961e5187-17b r }}}}} n n $}} n& g t-46961e5187-16a f l-46961e5187-17f r }}}}} n }}}}}} n no n n $}} n n< } n n n q} n< q} n g "%test-runner-on-test-end-procedure g m-46961e5187-186 p f l-46961e5187-188 r }}}}} n l }}}}}} n l f l-46961e5187-18b f l-46961e5187-18c r }}}}} n n $}} n n l f l-46961e5187-190 !f l-46961e5187-191 " ! #r" $#}}}}} %n$ &n$ '#} (n ' )&( *) +n ,+ - ,l .f l-46961e5187-195 /f l-46961e5187-196 0./ 1r0 21}}}}} 3n2 4n2 5$1}} 6n&5 746 87 9g t-46961e5187-185 :9 ;f l-46961e5187-19a <; =r:< >=}}}}} ?n> @=}}}}}} An@ BA Cno@ Dn@ En@ FEA G$=}} HnG IDFH Jn<@ K=} Ln K MJAL Nn@ On@ Pq=} Qn>P ROQ SNAR TCIMS U?BT Vq} WnV Xg %%test-runner-on-group-begin-procedure Yg m-46961e5187-1a1 ZYp [Z \f l-46961e5187-1a3 ]\ ^r[] _Z}^}}}} `n_ a` bal c}^}}}}} dnc ed fbel gZZ hf l-46961e5187-1a6 if l-46961e5187-1a7 jhi krgj lZk}^}}}} mnl nnl o$k}^} pno qnp rq sn c ts ubtl vf l-46961e5187-1ab wf l-46961e5187-1ac xvw yrgx zZy}^}}}} {nz |nz }y}^ ~n } |~ nc bl f l-46961e5187-1b0 f l-46961e5187-1b1 rg Z}^}}}} n n $}^} n& g t-46961e5187-1a0 f l-46961e5187-1b5 r[ Z}^}}}} n }^}}}}} n no n n $}^} n n< }^ n n n q}^ n@ q}^ nX g #%test-runner-on-group-end-procedure g m-46961e5187-1bc p f l-46961e5187-1be r }}}}} n l }}}}}} n l f l-46961e5187-1c1 f l-46961e5187-1c2 r }}}}} n n $}} n n l f l-46961e5187-1c6 f l-46961e5187-1c7 r }}}}} n n } n n l f l-46961e5187-1cb f l-46961e5187-1cc r }}}}} n n $}} n& g t-46961e5187-1bb f l-46961e5187-1d0 r }}}}} n }}}}}} n no n n $}} n n< } n n n q} nB q} n g %test-runner-on-final-procedure g m-46961e5187-1d7 p f l-46961e5187-1d9 r } }}}} n l } }}}}} n l f l-46961e5187-1dc f l-46961e5187-1dd r } }}}} n n $} } n n ! l "f l-46961e5187-1e1 #f l-46961e5187-1e2 $"# %r$ &%} }}}} 'n& (n& )%} *n ) +(* ,+ -n .- /.l 0f l-46961e5187-1e6 1f l-46961e5187-1e7 201 3r2 43} }}}} 5n4 6n4 7$3} } 8n&7 968 :9 ;g t-46961e5187-1d6 <; =f l-46961e5187-1eb >= ?r<> @?} }}}} An@ B?} }}}}} CnB DC EnoB FnB GnB HGC I$?} } JnI KFHJ Ln<B M?} Nn M OLCN PnB QnB Rq?} SnDR TQS UPCT VEKOU WADV Xq} YnX Zg #%test-runner-on-bad-count-procedure [g m-46961e5187-1f2 \[p ]\ ^f l-46961e5187-1f4 _^ `r]_ a\}`}}}} bna cb dcl e}`}}}}} fne gf hdgl i\\ jf l-46961e5187-1f7 kf l-46961e5187-1f8 ljk mril n\m}`}}}} onn pnn q$m}`} rnq spr ts un e vu wdvl xf l-46961e5187-1fc yf l-46961e5187-1fd zxy {riz |\{}`}}}} }n| ~n| {}` n ~ ne dl f l-46961e5187-201 f l-46961e5187-202 ri \}`}}}} n n $}`} n& g t-46961e5187-1f1 f l-46961e5187-206 r] \}`}}}} n }`}}}}} n no n n $}`} n n< }` n n n q}` nF q}` nZ g &%test-runner-on-bad-end-name-procedure g m-46961e5187-20d p f l-46961e5187-20f r }}}}} n l }}}}}} n l f l-46961e5187-212 f l-46961e5187-213 r }}}}} n n $}} n n l f l-46961e5187-217 f l-46961e5187-218 r }}}}} n n } n n l f l-46961e5187-21c f l-46961e5187-21d r }}}}} n n $}} n& g t-46961e5187-20c f l-46961e5187-221 r }}}}} n }}}}}} n no n n $}} n n< } n n n q} nH q} n g %test-runner-total-count g #%%test-runner-total-count-procedure g m-46961e5187-228 p f l-46961e5187-22a r } }}}} n l } }}}}} n l f l-46961e5187-22d f l-46961e5187-22e r } }}}} n n $} } n ! "n #" $#l %f l-46961e5187-232 &f l-46961e5187-233 '%& (r' ) (} }}}} *n) +n) ,(} -n , .+- /. 0n 10 21l 3f l-46961e5187-237 4f l-46961e5187-238 534 6r5 7 6} }}}} 8n7 9n7 :$6} } ;n&: <9; =< >g t-46961e5187-227 ?> @f l-46961e5187-23c A@ Br? A C B} }}}} DnC EB} }}}}} FnE GF HnoE InE JnE KJF L$B} } MnL NIKM On<E PB} Qn P ROFQ SnE TnE UqB} VnU WTV XSFW YHNRX ZDGY [q} \n[ ]g %test-runner-count-list ^g "%%test-runner-count-list-procedure _g m-46961e5187-243 `_p a` bf l-46961e5187-245 cb drac e`}d}}}} fne gf hgl i}d}}}}} jni kj lhkl m`` nf l-46961e5187-248 of l-46961e5187-249 pno qrmp r`q}d}}}} snr tnr u$q}d} vnu wtv xw yn i zy {hzl |f l-46961e5187-24d }f l-46961e5187-24e ~|} rm~ `}d}}}} n n }d n ni hl f l-46961e5187-252 f l-46961e5187-253 rm `}d}}}} n n $}d} n& g t-46961e5187-242 f l-46961e5187-257 ra `}d}}}} n }d}}}}} n no n n $}d} n n< }d n n n q}d n] q}d n^ g %test-result-alist-procedure g m-46961e5187-25e p f l-46961e5187-260 r }}}}} n l }}}}}} n l f l-46961e5187-263 f l-46961e5187-264 r }}}}} n n $}} n n l f l-46961e5187-268 f l-46961e5187-269 r }}}}} n n } n n l f l-46961e5187-26d f l-46961e5187-26e r }}}}} n n $}} n& g t-46961e5187-25d f l-46961e5187-272 r }}}}} n }}}}}} n no n n $}} n n< } n n n q} nJ q} n g %test-runner-aux-value-procedure g m-46961e5187-279 p f l-46961e5187-27b r } }}}} n l } }}}}} n l f l-46961e5187-27e f l-46961e5187-27f r } }}}} n n !$ } } "n ! # " $ # %n & % ' &l (f l-46961e5187-283 )f l-46961e5187-284 * ( ) +r * , +} }}}} -n , .n , / +} 0n / 1 . 0 2 1 3n 4 3 5 4l 6f l-46961e5187-288 7f l-46961e5187-289 8 6 7 9r 8 : 9} }}}} ;n : <n : =$ 9} } >n& = ? < > @ ? Ag t-46961e5187-278 B A Cf l-46961e5187-28d D C Er B D F E} }}}} Gn F H E} }}}}} In H J I Kno H Ln H Mn H N M I O$ E} } Pn O Q L N P Rn< H S E} Tn S U R I T Vn H Wn H Xq E} YnL X Z W Y [ V I Z \ K Q U [ ] G J \ ^q} _n ^ `ll a ` bl a cl b dl c eg %%set-fields fg check? gg expr hs f g ig m-46961e5187-294 j ip k j lf l-46961e5187-299 mf l-46961e5187-29a nf l-46961e5187-29b of l-46961e5187-29c pf l-46961e5187-29d q l m n o p rr h k q s j tf l-46961e5187-296 u t vr s u wg t-1e8ba8b5a-3c4 xg t-1e8ba8b5a-3c6 yg t-1e8ba8b5a-3c5 z w x y {g m-1e8ba8b5a-3c7 | {p } | | | ~f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd ~ r z } f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 r r} v} }}} n e $ r} v} n q r} v n0 n2 n4 n6 n8 n n nQ n n n: n< n> n@ nB nD nF nH n n] nJ nL g "%test-runner-pass-count!-procedure ll g m-46961e5187-2a8 p g t-46961e5187-2a6 g t-46961e5187-2a7 f l-46961e5187-2ad f l-46961e5187-2ae r f l-46961e5187-2aa r } }}}} n g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 p f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed r f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2 r f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 r g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 r } } } } n g val n no n n $ } } n g struct-set! n } n n n q } n1 q} n g "%test-runner-fail-count!-procedure g m-46961e5187-2b8 p g t-46961e5187-2b6 g t-46961e5187-2b7 f l-46961e5187-2bd f l-46961e5187-2be r f l-46961e5187-2ba r } }}}} n } } } } n n no n n $ } } n n } n n n q } n3 q} n g #%test-runner-xpass-count!-procedure g m-46961e5187-2c8 p g t-46961e5187-2c6 g t-46961e5187-2c7 f l-46961e5187-2cd f l-46961e5187-2ce r ! "f l-46961e5187-2ca # " $r ! # % } $}}}} &n % ' } $} } } (n ' )n ' * ( ) +no ' ,n ' -n ' . - ( /$ } $} 0n / 1 , . 0 2n ' 3 } $ 4n 3 5 2 ( 4 ) 6n ' 7n ' 8q } $ 9n5 8 : 7 9 ; 6 ( : < + 1 5 ; = & * < >q} $ ?n > @g #%test-runner-xfail-count!-procedure Ag m-46961e5187-2d8 B Ap Cg t-46961e5187-2d6 Dg t-46961e5187-2d7 E C D F B B Gf l-46961e5187-2dd Hf l-46961e5187-2de I G H Jr E F I K B Lf l-46961e5187-2da M L Nr K M O B J} N}}}} Pn O Q J} N} } } Rn Q Sn Q T R S Uno Q Vn Q Wn Q X W R Y$ J} N} Zn Y [ V X Z \n Q ] J} N ^n ] _ \ R ^ S `n Q an Q bq J} N cn7 b d a c e ` R d f U [ _ e g P T f hq} N in @ h jg "%test-runner-skip-count!-procedure kg m-46961e5187-2e8 l kp mg t-46961e5187-2e6 ng t-46961e5187-2e7 o m n p l l qf l-46961e5187-2ed rf l-46961e5187-2ee s q r tr o p s u l vf l-46961e5187-2ea w v xr u w y l t} x}}}} zn y { t} x} } } |n { }n { ~ | } no { n { n { | $ t} x} n n { t} x n | } n { n { q t} x n9 | z ~ q} x n j g %test-runner-skip-list! g "%%test-runner-skip-list!-procedure g m-46961e5187-2f8 p g t-46961e5187-2f6 g t-46961e5187-2f7 f l-46961e5187-2fd f l-46961e5187-2fe r f l-46961e5187-2fa r } }}}} n } } } } n n no n n $ } } n n } n n n q } n q} n g %test-runner-fail-list! g "%%test-runner-fail-list!-procedure g m-46961e5187-308 p g t-46961e5187-306 g t-46961e5187-307 f l-46961e5187-30d f l-46961e5187-30e r f l-46961e5187-30a r } }}}} n } } } } n n no n n $ } } n n } n n n q } n q} n g %test-runner-run-list! g !%%test-runner-run-list!-procedure g m-46961e5187-318 p g t-46961e5187-316 g t-46961e5187-317 f l-46961e5187-31d f l-46961e5187-31e r f l-46961e5187-31a r } }}}} n } } } } n n no n n $ } } n n } n n n q } n q} n g %test-runner-skip-save! g "%%test-runner-skip-save!-procedure g m-46961e5187-328 p g t-46961e5187-326 g t-46961e5187-327 f l-46961e5187-32d f l-46961e5187-32e r ! "f l-46961e5187-32a # " $r ! # % } $}}}} &n % ' } $} } } (n ' )n ' * ( ) +no ' ,n ' -n ' . - ( /$ } $} 0n / 1 , . 0 2n ' 3 } $ 4n 3 5 2 ( 4 ) 6n ' 7n ' 8q } $ 9n 8 : 7 9 ; 6 ( : < + 1 5 ; = & * < >q} $ ?n > @g %test-runner-fail-save! Ag "%%test-runner-fail-save!-procedure Bg m-46961e5187-338 C Bp Dg t-46961e5187-336 Eg t-46961e5187-337 F D E G C C Hf l-46961e5187-33d If l-46961e5187-33e J H I Kr F G J L C Mf l-46961e5187-33a N M Or L N P C K} O}}}} Qn P R K} O} } } Sn R Tn R U S T Vno R Wn R Xn R Y X S Z$ K} O} [n Z \ W Y [ ]n R ^ K} O _n ^ ` ] S _ T an R bn R cq K} O dn @ c e b d f a S e g V \ ` f h Q U g iq} O jn A i kg #%test-runner-group-stack!-procedure lg m-46961e5187-348 m lp ng t-46961e5187-346 og t-46961e5187-347 p n o q m m rf l-46961e5187-34d sf l-46961e5187-34e t r s ur p q t v m wf l-46961e5187-34a x w yr v x z m u} y}}}} {n z | u} y} } } }n | ~n | } ~ no | n | n | } $ u} y} n n | u} y n } ~ n | n | q u} y n; } { q} y n k g %%test-runner-on-test-begin!-procedure g m-46961e5187-358 p g t-46961e5187-356 g t-46961e5187-357 f l-46961e5187-35d f l-46961e5187-35e r f l-46961e5187-35a r } }}}} n } } } } n n no n n $ } } n n } n n n q } n= q} n g #%test-runner-on-test-end!-procedure g m-46961e5187-368 p g t-46961e5187-366 g t-46961e5187-367 f l-46961e5187-36d f l-46961e5187-36e r f l-46961e5187-36a r } }}}} n } } } } n n no n n $ } } n n } n n n q } n? q} n g &%test-runner-on-group-begin!-procedure g m-46961e5187-378 p g t-46961e5187-376 g t-46961e5187-377 f l-46961e5187-37d f l-46961e5187-37e r f l-46961e5187-37a r } }}}} n } } } } n n no n n $ } } n n } n n n q } nA q} n g $%test-runner-on-group-end!-procedure g m-46961e5187-388 p g t-46961e5187-386 g t-46961e5187-387 f l-46961e5187-38d f l-46961e5187-38e r f l-46961e5187-38a !r " } !}}}} #n " $ } !} } } %n $ &n $ ' % & (no $ )n $ *n $ + * % ,$ } !} -n , . ) + - /n $ 0 } ! 1n 0 2 / % 1 & 3n $ 4n $ 5q } ! 6nC 5 7 4 6 8 3 % 7 9 ( . 2 8 : # ' 9 ;q} ! <n ; =g %test-runner-on-final!-procedure >g m-46961e5187-398 ? >p @g t-46961e5187-396 Ag t-46961e5187-397 B @ A C ? ? Df l-46961e5187-39d Ef l-46961e5187-39e F D E Gr B C F H ? If l-46961e5187-39a J I Kr H J L ? G} K}}}} Mn L N G} K} } } On N Pn N Q O P Rno N Sn N Tn N U T O V$ G} K} Wn V X S U W Yn N Z G} K [n Z \ Y O [ P ]n N ^n N _q G} K `nE _ a ^ ` b ] O a c R X \ b d M Q c eq} K fn = e gg $%test-runner-on-bad-count!-procedure hg m-46961e5187-3a8 i hp jg t-46961e5187-3a6 kg t-46961e5187-3a7 l j k m i i nf l-46961e5187-3ad of l-46961e5187-3ae p n o qr l m p r i sf l-46961e5187-3aa t s ur r t v i q} u}}}} wn v x q} u} } } yn x zn x { y z |no x }n x ~n x ~ y $ q} u} n } n x q} u n y z n x n x q q} u nG y | w { q} u n g g '%test-runner-on-bad-end-name!-procedure g m-46961e5187-3b8 p g t-46961e5187-3b6 g t-46961e5187-3b7 f l-46961e5187-3bd f l-46961e5187-3be r f l-46961e5187-3ba r } }}}} n } } } } n n no n n $ } } n n } n n n q } nI q} n g %test-runner-total-count! g $%%test-runner-total-count!-procedure g m-46961e5187-3c8 p g t-46961e5187-3c6 g t-46961e5187-3c7 f l-46961e5187-3cd f l-46961e5187-3ce r f l-46961e5187-3ca r } }}}} n } } } } n n no n n $ } } n n } n n n q } n q} n g %test-runner-count-list! g #%%test-runner-count-list!-procedure g m-46961e5187-3d8 p g t-46961e5187-3d6 g t-46961e5187-3d7 f l-46961e5187-3dd f l-46961e5187-3de r f l-46961e5187-3da r } }}}} n } } } } n n no n n $ } } n n } n n n q } n q} n g %test-result-alist!-procedure g m-46961e5187-3e8 p g t-46961e5187-3e6 g t-46961e5187-3e7 f l-46961e5187-3ed f l-46961e5187-3ee r f l-46961e5187-3ea r } }}}} !n " } } } } #n " $n " % # $ &no " 'n " (n " ) ( # *$ } } +n * , ' ) + -n " . } /n . 0 - # / $ 1n " 2n " 3q } 4nK 3 5 2 4 6 1 # 5 7 & , 0 6 8 ! % 7 9q} :n 9 ;g !%test-runner-aux-value!-procedure <g m-46961e5187-3f8 = <p >g t-46961e5187-3f6 ?g t-46961e5187-3f7 @ > ? A = = Bf l-46961e5187-3fd Cf l-46961e5187-3fe D B C Er @ A D F = Gf l-46961e5187-3fa H G Ir F H J = E} I}}}} Kn J L E} I} } } Mn L Nn L O M N Pno L Qn L Rn L S R M T$ E} I} Un T V Q S U Wn L X E} I Yn X Z W M Y N [n L \n L ]q E} I ^nM ] _ \ ^ ` [ M _ a P V Z ` b K O a cq} I dn ; c eg reverse fg %test-null-callback gg test-on-test-begin-simple hg make-parameter ig error jf 1test-runner not initialized - test-begin missing? kg %test-specifier-matches lg %test-any-specifier-matches mg result-kind ng skip og xfail pg %test-should-execute qg %test-begin rg suite-name ss r tg m-46961e5187-407 u tp v uq wf l-46961e5187-40c xf l-46961e5187-40d y w x zr s v y { u |f l-46961e5187-409 } | ~r { } q z} ~ n q n lll g count s r uqq f l-46961e5187-411 f l-46961e5187-412 f l-46961e5187-413 r q } ~ n q g display f %%%% Starting test g string? g string-append f .log g open-output-file g newline f (Writing full log to " f ") g output-port? f Group begin: f Group end: f *** Total number of tests was f but should be f . *** f <*** Discrepancy indicates testsuite error or exceptions. *** g %test-on-bad-count-write g current-output-port g %test-format-line f test-end f does not match test-begin g %test-final-report1 f # of expected passes f # of expected failures f # of unexpected successes f # of unexpected failures f # of skipped tests g %test-final-report-simple g assq g source-file g source-line f f : g number->string f : f test-end not in a group g %test-end lm g let s r g m-46961e5187-417 p qq f l-46961e5187-41c f l-46961e5187-41d f l-46961e5187-41e r f l-46961e5187-419 r q } n g r n n+ nK n g cons n n g test-name n no n p g dynamic-wind n n n n g cleanup-form s r g m-46961e5187-422 p qqq f l-46961e5187-427 f l-46961e5187-428 f l-46961e5187-429 f l-46961e5187-42a r f l-46961e5187-424 r q } n n n n s r qq f l-46961e5187-430 f l-46961e5187-431 f l-46961e5187-432 r q } n n l l l g form1 g form2 g form3 g rest s r qqqqq f l-46961e5187-437 f l-46961e5187-438 f l-46961e5187-439 f l-46961e5187-43a f l-46961e5187-43b f l-46961e5187-43c r q } n g begin n g source-form f Test begin: g %test-write-result1 g runner g pname s g m-46961e5187-443 p qq f l-46961e5187-448 f l-46961e5187-449 f l-46961e5187-44a r f l-46961e5187-445 r q} !n "n #" $g default %s$ &qqq 'f l-46961e5187-44f (f l-46961e5187-450 )f l-46961e5187-451 *f l-46961e5187-452 +'()* ,r%&+ -q,} .n - /g p 0n/- 1n - 2nJ- 3no- 4g cdr 5n4- 650 7g fail 8g xpass 9f XPASS :f FAIL ;f <f Test end: =g memq > ?f @g write Ag pass BA8 Cg %test-report-result Dg %test-evaluate-with-catch Eg catch Fg test-expression GsF Hg m-46961e5187-458 IHp JIq Kf l-46961e5187-45d Lf l-46961e5187-45e MKL NrGJM OI Pf l-46961e5187-45a QP RrOQ SqN}R TnES UnS VnS WnS XnS YWX Zn!S [n+S \[ ]nS ^g actual-error _n^S `]_ an S baWX cZ\`b dnS eVYcd fe gg syntax-source hg assq-ref ig filename jg line kg datum->syntax lg here mg line-alist nm of l-46961e5187-5eb po qrnp rg file-alist sr tf l-46961e5187-5e8 ut vrsu wj xf l-46961e5187-5e4 yx zrwy {g file |{ }f l-46961e5187-5e0 ~} r|~ g src-props f l-46961e5187-5de r f l-46961e5187-5dc r q}}q}v}z}}}} nl g syntax->datum g append g %test-source-line2 g %test-on-test-begin g %test-on-test-end g %test-comp2body lllll g comp g expected s g g m-46961e5187-462 p qqqq f l-46961e5187-467 f l-46961e5187-468 f l-46961e5187-469 f l-46961e5187-46a f l-46961e5187-46b r f l-46961e5187-464 r q} n no n g exp n n! n g expected-value n g res n nD g actual-value n n nC g real-part g imag-part g %test-approximate= g %test-comp1body s g g m-46961e5187-471 p qq f l-46961e5187-476 f l-46961e5187-477 f l-46961e5187-478 r f l-46961e5187-473 r q} n no n n nD n! n n n nC f l-46961e5187-47e r q} n `l g mac rj f l-46961e5187-481 f l-46961e5187-482 f l-46961e5187-483 r q} n l l j f l-46961e5187-488 f l-46961e5187-489 r q} n n f l-46961e5187-48d r q} n l g let* g tname gj f l-46961e5187-490 f l-46961e5187-491 f l-46961e5187-492 f l-46961e5187-493 r q} n n n- n nK n n n n gj f l-46961e5187-499 f l-46961e5187-49a f l-46961e5187-49b r q} n n n- nK !n "~ #f l-46961e5187-58e $f l-46961e5187-58f %#$ &r"% 'q}& (n' )ll * gj +f l-46961e5187-592 ,f l-46961e5187-593 -f l-46961e5187-594 .f l-46961e5187-595 /f l-46961e5187-596 0f l-46961e5187-597 1+,-./0 2r*1 3q2}& 4n3 5n 3 6n-3 76 857 9n3 :nK3 ;n 3 <n3 =n 3 ><= ?n3 @ ll A gj Bf l-46961e5187-59f Cf l-46961e5187-5a0 Df l-46961e5187-5a1 Ef l-46961e5187-5a2 Ff l-46961e5187-5a3 GBCDEF HrAG IqH}& JnI Kn I Ln-I ML NKM ON PnKI QnI Rg %test-comp2 Sg eqv? Tf l-46961e5187-4a0 UT VrU Wq}V XnSW Yf l-46961e5187-4a2 ZY [rZ \q}[ ]n\ ^g equal? _f l-46961e5187-4a4 `_ ar` bq}a cn^b df l-46961e5187-4a6 ed fre gq}f hng il j g ij kf l-46961e5187-4a9 lf l-46961e5187-4aa mf l-46961e5187-4ab nf l-46961e5187-4ac of l-46961e5187-4ad pf l-46961e5187-4ae qklmnop rrjq sqr}f tns un s vn-s wv xuw yns znKs {n s |ns }n s ~|} ns ns l g ij f l-46961e5187-4b6 f l-46961e5187-4b7 f l-46961e5187-4b8 f l-46961e5187-4b9 f l-46961e5187-4ba r q}f n n n- nK n n g %test-error g cond g etype s g g m-46961e5187-4c1 p qqq f l-46961e5187-4c6 f l-46961e5187-4c7 f l-46961e5187-4c8 f l-46961e5187-4c9 r f l-46961e5187-4c3 r q} n n n g et n n! n g expected-error n n nE n n n n n n n^ n nC f l-46961e5187-4d0 r q} n gj f l-46961e5187-4d3 f l-46961e5187-4d4 f l-46961e5187-4d5 f l-46961e5187-4d6 f l-46961e5187-4d7 r q} n n n- n nK n n n n gj f l-46961e5187-4de f l-46961e5187-4df f l-46961e5187-4e0 f l-46961e5187-4e1 r q} n n n- nK n f l-46961e5187-4e7 f l-46961e5187-4e8 f l-46961e5187-4e9 r q} n n n- nK n n g apply l- l s g m-46961e5187-4ed p qq f l-46961e5187-4f2 f l-46961e5187-4f3 f l-46961e5187-4f4 r f l-46961e5187-4ef r q } n g saved-runner n n+ n n g %test-match-nth g n s g m-46961e5187-4f9 p q !f l-46961e5187-4fe "f l-46961e5187-4ff #!" $r # % &f l-46961e5187-4fb '& (r%' )q$}( *n) +n ) ,+ -s . qq /f l-46961e5187-503 0f l-46961e5187-504 1f l-46961e5187-505 2/01 3r-.2 4q3}( 5n4 6g %test-match-all 7g pred 8s7 9g m-46961e5187-509 :9p ;:q <f l-46961e5187-50e =f l-46961e5187-50f ><= ?r8;> @: Af l-46961e5187-50b BA Cr@B Dq?}C En6D Fg %test-as-specifier GnFD Hg %test-match-any Ig m-46961e5187-513 JIp KJq Lf l-46961e5187-518 Mf l-46961e5187-519 NLM Or8KN PJ Qf l-46961e5187-515 RQ SrPR TqO}S UnHT VnFT Wg procedure? Xg integer? Yf not a valid test specifier Zg m-46961e5187-51d [Zp \[q ]f l-46961e5187-522 ^f l-46961e5187-523 _]^ `r8\_ a[ bf l-46961e5187-51f cb drac eq`}d fn e gne hn-e ih jgi kj ln e mn e nne onFe pne qpg rq sg m-46961e5187-527 tsp utq vf l-46961e5187-52c wf l-46961e5187-52d xvw yr8ux zt {f l-46961e5187-529 |{ }rz| ~qy}} n ~ n~ n-~ n ~ n ~ n~ nF~ n~ g open-input-string g read g eof-object? g read-char g eval f (not at eof)C 5 h(X ]4 T5 4W > " G 4Xi4Yi5 Z> " G 4]`c > " G 4fghkm h @ ]C 8 g dummy g names C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm ; " g macro-typeg syntax-rulesg patternsg names C5gR4fhk h ] 45C g dummy g alloc g runner? g name g index g setter g getter C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm g " g macro-typeg syntax-rulesg patternsg allocg runner?g nameg indexg setterg getter g ... C5R h u ] C m g filenamef srfi/srfi-64/testing.scm g nameg %%test-runner-alloc-procedure CR4fhk, h ] C C.01 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C6 h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5R 9: =T 4 W > " G Zi R h ] $ CC y g obj g filenamef srfi/srfi-64/testing.scm g nameg %test-runner?-procedure C[R4f'hk\ h 7 ] C / g t-46961e5187-35 C.0'1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5'R0 h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%test-runner-pass-count-procedure CR4f0hk h : ]C 2 g err g s C h : ]C 2 g err g s C $* h : ]C 2 g err g s C\H h 7 ] C / g t-46961e5187-41 C.001 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm CJ h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C50R2 h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%test-runner-fail-count-procedure CKR4f2hkY`e h : ]C 2 g err g s Chns h : ]C 2 g err g s Cv| h : ]C 2 g err g s C\ h 7 ] C / g t-46961e5187-5c C.021 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C52R4 h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-xpass-count-procedure CR4f4hk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 7 ] C / g t-46961e5187-77 C.041 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C54R6 h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-xfail-count-procedure CR4f6hk h : ]C 2 g err g s C h : ]C 2 g err g s C"(- h : ]C 2 g err g s C\J h 7 ] C / g t-46961e5187-92 C.061 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm CL h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C56R8 h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%test-runner-skip-count-procedure CMR4f8hk[bg h : ]C 2 g err g s Cjpu h : ]C 2 g err g s Cx~ h : ]C 2 g err g s C\ h 7 ] C / g t-46961e5187-ad C.081 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C58R h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%%test-runner-skip-list-procedure CR4fhk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 7 ] C / g t-46961e5187-c8 C.01 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5R h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%%test-runner-fail-list-procedure CR4fhk h : ]C 2 g err g s C # h : ]C 2 g err g s C&,1 h : ]C 2 g err g s C\N h 7 ] C / g t-46961e5187-e3 C.01 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm CP h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5RQ h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg %%test-runner-run-list-procedure CRR4fQhk`gl h : ]C 2 g err g s Couz h : ]C 2 g err g s C} h : ]C 2 g err g s C\ h 7 ] C / g t-46961e5187-fe C.0Q1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5QR h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%%test-runner-skip-save-procedure CR4fhk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-119 C.01 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5R h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg !%%test-runner-fail-save-procedure C R4fhk h : ]C 2 g err g s C #( h : ]C 2 g err g s C+16 h : ]C 2 g err g s C\S h 8 ] C 0 g t-46961e5187-134 C.01 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm CU h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5R: h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-group-stack-procedure CVR4f:hkdkp h : ]C 2 g err g s Csy~ h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-14f C.0:1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5:R< h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg $%test-runner-on-test-begin-procedure CR4f<hk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-16a C.0<1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5<R> h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-on-test-end-procedure CR4f>hk h : ]C 2 g err g s C %* h : ]C 2 g err g s C-38 h : ]C 2 g err g s C\U h 8 ] C 0 g t-46961e5187-185 C.0>1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm CW h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5>R@ h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg %%test-runner-on-group-begin-procedure CXR4f@hkfmr h : ]C 2 g err g s Cu{ h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-1a0 C.0@1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5@RB h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg #%test-runner-on-group-end-procedure CR4fBhk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-1bb C.0B1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5BRD h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg %test-runner-on-final-procedure CR4fDhk h : ]C 2 g err g s C!', h : ]C 2 g err g s C/5: h : ]C 2 g err g s C\W h 8 ] C 0 g t-46961e5187-1d6 C.0D1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm CY h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5DRF h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg #%test-runner-on-bad-count-procedure CZR4fFhkhot h : ]C 2 g err g s Cw} h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-1f1 C.0F1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5FRH h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg &%test-runner-on-bad-end-name-procedure CR4fHhk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-20c C.0H1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5HR h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg #%%test-runner-total-count-procedure CR4fhk ! h : ]C 2 g err g s C$*/ h : ]C 2 g err g s C28= h : ]C 2 g err g s C\Z h 8 ] C 0 g t-46961e5187-227 C.01 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C\ h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5R] h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg "%%test-runner-count-list-procedure C^R4f]hklsx h : ]C 2 g err g s C{ h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-242 C.0]1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5]RJ h ] & C 6 | g s g filenamef srfi/srfi-64/testing.scm g nameg %test-result-alist-procedure CR4fJhk h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C\ h 8 ] C 0 g t-46961e5187-25d C.0J1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5JRL h ] & C 6 g s g filenamef srfi/srfi-64/testing.scm g nameg %test-runner-aux-value-procedure C R4fLhk $ h : ]C 2 g err g s C ' - 2 h : ]C 2 g err g s C 5 ; @ h : ]C 2 g err g s C\ ] h 8 ] C 0 g t-46961e5187-278 C.0L1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C _ h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm C5LR4f&hk d h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5&R1 h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-pass-count!-procedure C R4f1hk h V ] C N g t-46961e5187-2a6 g t-46961e5187-2a7 C.011 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C51R3 h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-fail-count!-procedure C R4f3hk h V ] C N g t-46961e5187-2b6 g t-46961e5187-2b7 C.031 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C53R5 h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg #%test-runner-xpass-count!-procedure C R4f5hk = h V ] C N g t-46961e5187-2c6 g t-46961e5187-2c7 C.051 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C ? h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C55R7 h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg #%test-runner-xfail-count!-procedure C @R4f7hk g h V ] C N g t-46961e5187-2d6 g t-46961e5187-2d7 C.071 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C i h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C57R9 h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%test-runner-skip-count!-procedure C jR4f9hk h V ] C N g t-46961e5187-2e6 g t-46961e5187-2e7 C.091 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C59R h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%%test-runner-skip-list!-procedure C R4f hk h V ] C N g t-46961e5187-2f6 g t-46961e5187-2f7 C.0 1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 R h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%%test-runner-fail-list!-procedure C R4f hk h V ] C N g t-46961e5187-306 g t-46961e5187-307 C.0 1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 R h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg !%%test-runner-run-list!-procedure C R4f hk h V ] C N g t-46961e5187-316 g t-46961e5187-317 C.0 1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 R h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%%test-runner-skip-save!-procedure C R4f hk = h V ] C N g t-46961e5187-326 g t-46961e5187-327 C.0 1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C ? h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 R @ h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg "%%test-runner-fail-save!-procedure C AR4f @hk h h V ] C N g t-46961e5187-336 g t-46961e5187-337 C.0 @1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C j h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 @R; h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg #%test-runner-group-stack!-procedure C kR4f;hk h V ] C N g t-46961e5187-346 g t-46961e5187-347 C.0;1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5;R= h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg %%test-runner-on-test-begin!-procedure C R4f=hk h V ] C N g t-46961e5187-356 g t-46961e5187-357 C.0=1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5=R? h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg #%test-runner-on-test-end!-procedure C R4f?hk h V ] C N g t-46961e5187-366 g t-46961e5187-367 C.0?1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5?RA h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg &%test-runner-on-group-begin!-procedure C R4fAhk h V ] C N g t-46961e5187-376 g t-46961e5187-377 C.0A1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5ARC h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg $%test-runner-on-group-end!-procedure C R4fChk : h V ] C N g t-46961e5187-386 g t-46961e5187-387 C.0C1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C < h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5CRE h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg %test-runner-on-final!-procedure C =R4fEhk d h V ] C N g t-46961e5187-396 g t-46961e5187-397 C.0E1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C f h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5ERG h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg $%test-runner-on-bad-count!-procedure C gR4fGhk h V ] C N g t-46961e5187-3a6 g t-46961e5187-3a7 C.0G1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5GRI h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg '%test-runner-on-bad-end-name!-procedure C R4fIhk h V ] C N g t-46961e5187-3b6 g t-46961e5187-3b7 C.0I1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5IR h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg $%%test-runner-total-count!-procedure C R4f hk h V ] C N g t-46961e5187-3c6 g t-46961e5187-3c7 C.0 1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 R h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg #%%test-runner-count-list!-procedure C R4f hk h V ] C N g t-46961e5187-3d6 g t-46961e5187-3d7 C.0 1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5 RK h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg %test-result-alist!-procedure C R4fKhk 8 h V ] C N g t-46961e5187-3e6 g t-46961e5187-3e7 C.0K1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C : h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5KRM h ] & C 6 g s g val g filenamef srfi/srfi-64/testing.scm g nameg !%test-runner-aux-value!-procedure C ;R4fMhk b h V ] C N g t-46961e5187-3f6 g t-46961e5187-3f7 C.0M1 h \ ]L 6 T g a g filenamef srfi/srfi-64/testing.scm C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm C d h ] C C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$ @"" g x q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm q C5MRK13579 @; h ] & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & C 6 g runner g filenamef srfi/srfi-64/testing.scm - T { & # ' C k v " w " " " # g nameg test-runner-reset C(R e: h( ] & " 4 56 g runner ! g filenamef srfi/srfi-64/testing.scm ! ! g nameg test-runner-group-path C R h ]C x g runner g filenamef srfi/srfi-64/testing.scm g nameg %test-null-callback C fR( h ]C ~ g runner g name g count g filenamef srfi/srfi-64/testing.scm ( CA fCE=?h ]C g runner g count g expected g filenamef srfi/srfi-64/testing.scm & CG h ]C } g runner g begin g end g filenamef srfi/srfi-64/testing.scm ) CI hp % ] 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G C g runner o g val \ g val g val g val g filenamef srfi/srfi-64/testing.scm 4 \ F o g nameg test-runner-null C)R&R(NAOCRE g=S?PGQI h [ ] 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G C S g runner g val 3 a g val c g val g val g val ! g val # Q g val S g filenamef srfi/srfi-64/testing.scm 3 c # S g nameg test-runner-simple C*R4 hi5+R4 hi*i5,R+ i j h( ]45 $ " 4> " G C g r ( g filenamef srfi/srfi-64/testing.scm ( g nameg test-runner-get C-R h ] 6 g spec g runner g filenamef srfi/srfi-64/testing.scm g nameg %test-specifier-matches C kR, h | ] 45 6 t g filenamef srfi/srfi-64/testing.scm g nameg test-runner-create C.R k h8 ]H" '( JC45$ K" " " g list 8 g runner 8 g result 8 g l 0 g filenamef srfi/srfi-64/testing.scm * # * 0 0 8 g nameg %test-any-specifier-matches C lRQ l! m n o h ] & " 4 5 & " 4 5 $ " "4 & " 4 5 5 $ 4 > " G C4 & " 4 5 5$ 4 > " G CC | g runner g run g t 5 g g filenamef srfi/srfi-64/testing.scm & ' , 5 5 C H d k l r % t 2 y $ 1 g nameg %test-should-execute C pR+.@ @] :; h ]45 $ " 445 > " G 45 4& " 45 > " G & " 45& " 45 & " 4> " G & " 4 5& " 4 5 & " 4 > " G & " 4 5& " 4 5 & " 4> " G & " 45 & C6 g suite-name g count g runner ) g val g val $ g val ^ g val g filenamef srfi/srfi-64/testing.scm % ) , ] % x % % % ' " ) B " # E $ # ^ " ^ ! & ( % % % g nameg %test-begin C qR4f hk ` h E ]C = g dummy g suite-name C h X ] C P g dummy g suite-name g count C h@ ]4 5 $ @4 5 $ @ 6 g x 9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm 2 9 g macro-typeg syntax-rulesg patternsg suite-name g suite-nameg count C5 R: & M L h f ] & " 4 5( 4> " G 4> " G $ 45$ " 4 5 4 5 4> " G 4> " G 4 > " G & " 4 > " G 4 > " G 4> " G 4> " G " 4 > " G " & " 4 5 45$ >4> " G 4> " G 4 > " G " C ^ g runner g suite-name g count g log-file-name e g log-file n g log B g filenamef srfi/srfi-64/testing.scm 8 9 ! 9 " ; & ; + ; 4 < K = L ? V ? ] @ c @ 2 e @ e > h D ' n > q E u E | E F G H I I I J K K K L * M B M E N O N P P T P [ P d Q x R ( g nameg test-on-group-begin-simple CNRL : h ] & " 4 5 45$ X4> " G 4 & " 4 5> " G 4> " G " C g runner g log g filenamef srfi/srfi-64/testing.scm U V V W * W + Y / Y 6 Y ? Z D Z ] Z d Z m [ g nameg test-on-group-end-simple COR h ] ]4> " G 4> " G 4> " G 4> " G 4> " G 4> " G 4> " G 6 U g runner g count g expected-count g port g filenamef srfi/srfi-64/testing.scm ^ _ _ _ ` + a / a 6 a ? b S c W c ^ c g d y e } e e f g nameg %test-on-bad-count-write C R L hX ] 4 45 > " G & " 4 5 45$ 6C g runner S g count S g expected-count S g log 8 S g filenamef srfi/srfi-64/testing.scm h i i 8 i j 8 j ; k E k Q l S g nameg test-on-bad-count-simple CPR i h ] 44 55 6 g runner g begin-name g end-name g msg g filenamef srfi/srfi-64/testing.scm n o o o 7 p o o r g nameg test-on-bad-end-name-simple CQR h@ ] $ .4> " G 4 > " G 6C g value : g label : g port : g filenamef srfi/srfi-64/testing.scm v w w y z 8 { : g nameg %test-final-report1 C R 0 6 4 2 8 h N ]4 & " 4 5> " G 4 & " 4 5> " G 4 & " 4 5 > " G 4 & " 4 5 > " G & " 4 5 6 F g runner g port g filenamef srfi/srfi-64/testing.scm } ~ ~ ! ( ~ 1 6 P W ` e g nameg %test-final-report-simple C R L hP ] 4 45 > " G & " 4 5 45$ 6C g runner K g log 4 K g filenamef srfi/srfi-64/testing.scm $ 4 7 A I K g nameg test-on-final-simple CRRJ hh ]! & " 4 5 45 45 $ " $ 4 5 6C g runner a g line-info a g source-file ( a g source-line 3 a g file D a g filenamef srfi/srfi-64/testing.scm $ ( ( + / 3 3 ; > D 2 D L R S X ( Z \ ; ^ ` a g nameg %test-format-line C R-: K iH]FB; @ D hh ]B45 & " 45 45 & " 4> " G ( $45 4 > " G " $ B $ " 04& " 4 5 > " G " & " 4 5 & " 4 5 $ @$ " /4& " 4 5> " G " 4& " 45> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 4> " G & " 45( & " 456C g suite-name g g line-info g g r g g groups $ g g line - g g msg g ~ g count-list g g expected-count g g saved-count g g group-count g g val g val g val 4 b g val ~ g val g val ' g filenamef srfi/srfi-64/testing.scm $ ' - 2 ^ _ e ' g g j 0 6 " ' Z ' " & ! & 4 ! 4 e & ~ ! ~ & ! " * F I 8 g g nameg %test-end C R4f hk hP W ] C O g dummy L g suite-name L g body L L C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg suite-nameg body C5 R4f hk h( q ] C i g dummy ! g suite-name ! g form ! g cleanup-form ! ! C h _ ] C W g dummy g suite-name g cleanup-form C h ] C g dummy g suite-name g form1 g form2 g form3 g rest C hP ; ]4 5 $ @4 5 $ @4 5 $ @ 63 g x P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-64/testing.scm P g macro-typeg syntax-rulesg patternsg suite-nameg formg cleanup-form g suite-nameg cleanup-form g suite-nameg form1g form2g form3g rest C5 RL J h O ]1 & " 4 5 45$ & " 4 5 45 45 4 5 4 5 4 > " G 4 > " G $ 4> " G " $ 4> " G " $ 4> " G " $ 6CC G g runner g log g results E g source-file P g source-line [ g source-form f g test-name q g filenamef srfi/srfi-64/testing.scm * - E H L " P P S W " [ [ ^ b " f f i m q q t x $ g nameg test-on-test-begin-simple C gR4f hk !# h T ]C L g dummy g runner g pname C.01236 h0 i ] C a g dummy ) g runner ) g pname ) g default ) ) C h@ ]4 5 $ @4 5 $ @ 6 g x 9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm 9 g macro-typeg syntax-rulesg patternsg runnerg pname g runnerg pnameg default C5 RL mJ78 9:; <=> h( ]1 & " 4 54 & " 4 55 $ " & " $ & " 4 5 4 5 4 5 4 5 $ " $ b$ 4 > " G " 4 > " G $ 4 > " G " 4 > " G " 4 & " > " G $ )4 > " G 4 > " G " 4> " G " 45$ 4 > " G 4> " G " =$ 4 45$ " 4> " G "C & " 4 5 "C g runner ! g p ? R g log R ! g kind R ! g results g source-file g source-line g test-name g list g pair g filenamef srfi/srfi-64/testing.scm " & % R ^ l o " " ) ) $ ! ( * ) 0 1 5 C D H M V [ ` m ! J ! g nameg test-on-test-end-simple CSR ? @ h` ]4> " G 4 > " G 4> " G 4 > " G 6 g pair Z g port Z g filenamef srfi/srfi-64/testing.scm # , 0 7 @ E L Z Z g nameg %test-write-result1 CRJ K h` ' ] & " 4 5 45 $ C & C 6 g runner Z g pname Z g value Z g alist Z g p ( Z g val ? Z g filenamef srfi/srfi-64/testing.scm ( 0 5 < ) ? # ? Z g nameg test-result-set! C!RK h ] & C 6 g runner g filenamef srfi/srfi-64/testing.scm g nameg test-result-clear C"RJ h ] L& C 4L 5C g r g filenamef srfi/srfi-64/testing.scm # % 3 / 7 = 7 ) g nameg loop CK hh ] & " 4 5 45 $ 5O Q 45 & C 6C g runner g g pname g g alist g g p ( g g loop 9 J g val J e g filenamef srfi/srfi-64/testing.scm ( 0 9 # J g g nameg test-result-remove C#R+ mJ hP - 1 3 $ " 45 4& " 455 $ CC g rest N g runner N g p @ N g filenamef srfi/srfi-64/testing.scm ! " " " ! " , " # # # & # N g nameg test-result-kind C$R-= mJB h` - 1 3 $ " 45 4& " 455 $ " 6 g rest Y g runner Y g p B U g filenamef srfi/srfi-64/testing.scm % & & & ! & , & ! ' % ' " ( ' Y ' Y g nameg test-passed? C%R-$A01723845 o6789 > h ]45 4 5 $ L & " 4 5 & " 4 > " G " M$ L & " 4 5 & " 4 > " G " $ N & " 4 5 & " 4 > " G " $ N & " 4 5 & " 4 > " G " J & " 4 5 & " 4 > " G & " 4 5 & " 4 > " G & " 4 5 6 g r g result-kind g val 6 c g val g val g val 8 f g val g val g filenamef srfi/srfi-64/testing.scm ) * * + * , . ' 6 . " 6 . p , s 0 ' 0 " 0 , 2 ( 2 # 2 , 4 ( 8 4 # 8 4 m 6 ' 6 " 6 7 & 7 ! 7 8 g nameg %test-report-result CCR4fDhk `TUVf h J ] C B g dummy g test-expression C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm = " g macro-typeg syntax-rulesg patternsg test-expression C5DRghij k h ])4 5 $ 45" $ 45" $ " $ " 4 54 56 g form | g src-props | g file | g line 5 | g file-alist J | g line-alist ` | g filenamef srfi/srfi-64/testing.scm p q q r r r 4 r q ' s ( s . s 4 0 s 5 q = t ? u J v J q R w T x W x - X x ` y ` q h { i { ' p { | z | g nameg %test-source-line2 CR p< n mJ h ] 4 > " G 4 & " 4 5 > " G 4 & " 4 55 $ " C g r y g p c v g filenamef srfi/srfi-64/testing.scm A B F % I w x y g nameg %test-on-test-begin CR! m J o8A7 hh ] 4 & " 4 55 $ " & $ " " $ " 6 g r e g result e g p * = g filenamef srfi/srfi-64/testing.scm 2 ? @ C I K % Q , [ ] % c + e e g nameg %test-on-test-end CR J h8 ] 4 & " 4 55 $ CC g runner 3 g p $ 3 g filenamef srfi/srfi-64/testing.scm 2 % 3 g nameg test-runner-test-name C/R4fhk hX v ] C n g dummy V g r V g comp V g expected V g expr V V C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg rg compg expectedg expr C5R h` N ]"4 54 54545 L $ %L $ L $ L CCCC F g value Y g expected Y g rval Y g ival Y g rexp Y g iexp Y g filenamef srfi/srfi-64/testing.scm - . 2 9 : > E F J Q R Y C h ~ ] O C v g error g filenamef srfi/srfi-64/testing.scm g nameg %test-approximate= CR4fhk hH N ] C F g dummy A g r A g expr A A C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg rg expr C5R4f hk h U ] C M g mac g suite-name g line C h = ] C 5 g mac g line C hP ] 4 5 45 $ @45 $ @ 6 g x L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm 0 L C5 R4fhk h8 b ] C Z g mac 4 g tname 4 g expr 4 g line 4 4 C ! h O ] C G g mac g expr g line C hP ] 4 5 45 $ @45 $ @ 6 g x L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm 0 L C5R(k)489:5;>? h8 ] C g mac 8 g tname 8 g expected 8 g expr 8 g line 8 g comp 8 8 C@JOPKQ h w ] Co g mac g expected g expr g line g comp C hP ]45 45 $ @45 $ @ 6 g comp N g x N g tmp N g tmp N g tmp 7 N g filenamef srfi/srfi-64/testing.scm . N g nameg %test-comp2 CRR4fhRX h e ] 6 ] g x g filenamef srfi/srfi-64/testing.scm C5R4fhR] h e ] 6 ] g x g filenamef srfi/srfi-64/testing.scm C5R4fhRc h e ] 6 ] g x g filenamef srfi/srfi-64/testing.scm C5R4fhhkitxyzu{~ h@ ] C g mac = g tname = g expected = g expr = g error = g line = = C h( x ] C p g mac % g expected % g expr % g error % g line % % C hP ] 4 5 45 $ @45 $ @ 6 g x L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm 0 L C5R4fhk h` a ] C Y g dummy ^ g r ^ g etype ^ g expr ^ ^ C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm ! " g macro-typeg syntax-rulesg patternsg rg etypeg expr C5R4fhk h8 u ] C m g mac 6 g tname 6 g etype 6 g expr 6 g line 6 6 C h b ] C Z g mac g etype g expr g line C h O ] C G g mac g expr g line C hh ]! 4 5 45 $ @45 $ @45 $ @ 6 g x c g tmp c g tmp c g tmp 5 c g tmp L c g filenamef srfi/srfi-64/testing.scm | } 0 } } } c C5R+Q e .+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm C+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm CD+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm C+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm C h . - 1 3 " Y45 $ & " 45 ( 945 & " 4> " G 6 & " & " 4> " G 4> " G & C64 5 45 O O 4 O > " G V4 > " G X4 O > " G & " 4 56 $ r & e45 O O 4 O > " G V4> X4O > " G CX4O > " G F"."* & g first g rest g r f g run-list 5 g val D r g val g r f g saved-runner G g saved-runner { g filenamef srfi/srfi-64/testing.scm 5 = > / D v } , 9 " 0 J f i m p w g nameg test-apply CR4fhk h( S ] C K g dummy % g runner % g form % % C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg runnerg formg ... C5R h ]MNML $ ML LCC g runner g filenamef srfi/srfi-64/testing.scm C h ] H O C g n g count g i g filenamef srfi/srfi-64/testing.scm g nameg %test-match-nth CR4fhk `*, h < ]C 4 g dummy g n C 5 h O ] C G g dummy g n g count C h@ ]4 5 $ @4 5 $ @ 6 g x 9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm 9 g macro-typeg syntax-rulesg patternsg n g ng count C5R h8 ]H" %( JC4 5$ " K "L " g runner 6 g result 6 g l . g filenamef srfi/srfi-64/testing.scm % ( . . 6 C h - 1 3 O C y g pred-list g filenamef srfi/srfi-64/testing.scm g nameg %test-match-all C6R4fhkEG h : ] C 2 g tmp-46961e5187-512 C h ? ]45C 7 g dummy g pred C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg predg ... C5R h8 ]H" %( JC4 5$ K" "L " g runner 6 g result 6 g l . g filenamef srfi/srfi-64/testing.scm ! ( . . 6 C h - 1 3 O C y g pred-list g filenamef srfi/srfi-64/testing.scm g nameg %test-match-any CHR4fhkUV h : ] C 2 g tmp-46961e5187-51c C h ? ]45C 7 g dummy g pred C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg predg ... C5RWX iY h@ ]4 5$ C4 5$ 64 5$ 66 g specifier 9 g filenamef srfi/srfi-64/testing.scm " # - 3 7 9 9 g nameg %test-as-specifier CFR4fhkfklgmno h : ] C 2 g tmp-46961e5187-526 Cr h( ? ]45 C 7 g dummy # g pred # # C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg predg ... C5R4fhk h : ] C 2 g tmp-46961e5187-530 C h( ? ]45 C 7 g dummy # g pred # # C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef srfi/srfi-64/testing.scm " g macro-typeg syntax-rulesg patternsg predg ... C5R/ h s ]L 4 5C k g runner g filenamef srfi/srfi-64/testing.scm C h z ] O C r g name g filenamef srfi/srfi-64/testing.scm g nameg test-match-name CRY i h8 ]4 5 45 4455$ 45 66 g string 5 g port 5 g form 5 g filenamef srfi/srfi-64/testing.scm $ ) / 3 5 5 g nameg test-read-eval-string C RC g m ( g rtd g filenamef srfi/srfi-64.scm ) 4 . 4 6 4 & ; 4 g filenamef srfi/srfi-64/testing.scm D P ] 8 h l ؆ ؇ ؒ ؓ ء ِ K \ 8 U ^ h h n v B } H c q t J ! % . ) "6 p # %U &g * 4 D GF K N Q V X$ 9 X& C6