Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
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-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: /} ?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 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 @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 <= ?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 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