37 lines
868 B
Factor
37 lines
868 B
Factor
IN: tools.trace.tests
|
|
USING: combinators kernel math sequences tools.continuations
|
|
tools.test tools.trace tools.trace.private ;
|
|
|
|
{ { 3 2 1 } } [ { 1 2 3 } [ reverse ] trace ] unit-test
|
|
|
|
GENERIC: method-breakpoint-test ( x -- y )
|
|
|
|
TUPLE: method-breakpoint-tuple ;
|
|
|
|
M: method-breakpoint-tuple method-breakpoint-test break drop 1 2 + ;
|
|
|
|
\ method-breakpoint-test don't-step-into
|
|
|
|
{ 3 }
|
|
[ [ T{ method-breakpoint-tuple } method-breakpoint-test ] trace ] unit-test
|
|
|
|
: case-breakpoint-test ( -- x )
|
|
5 { [ break 1 + ] } case ;
|
|
|
|
\ case-breakpoint-test don't-step-into
|
|
|
|
{ 6 } [ [ case-breakpoint-test ] trace ] unit-test
|
|
|
|
: call-op-para-breakpoint-test ( -- x )
|
|
[ break 1 ] call( -- x ) 2 + ;
|
|
|
|
\ call-op-para-breakpoint-test don't-step-into
|
|
|
|
{ 3 } [ [ call-op-para-breakpoint-test ] trace ] unit-test
|
|
|
|
{ f t t } [
|
|
\ + into?
|
|
\ dip into?
|
|
\ sq into?
|
|
] unit-test
|