2 USING: tools.trace tools.test tools.continuations kernel math combinators
5 [ { 3 2 1 } ] [ { 1 2 3 } [ reverse ] trace ] unit-test
7 GENERIC: method-breakpoint-test ( x -- y )
9 TUPLE: method-breakpoint-tuple ;
11 M: method-breakpoint-tuple method-breakpoint-test break drop 1 2 + ;
13 \ method-breakpoint-test don't-step-into
16 [ [ T{ method-breakpoint-tuple } method-breakpoint-test ] trace ] unit-test
18 : case-breakpoint-test ( -- x )
19 5 { [ break 1 + ] } case ;
21 \ case-breakpoint-test don't-step-into
23 [ 6 ] [ [ case-breakpoint-test ] trace ] unit-test
25 : call(-breakpoint-test ( -- x )
26 [ break 1 ] call( -- x ) 2 + ;
28 \ call(-breakpoint-test don't-step-into
30 [ 3 ] [ [ call(-breakpoint-test ] trace ] unit-test