7 lines
347 B
Factor
7 lines
347 B
Factor
USING: stack-checker.call-effect tools.test math kernel ;
|
|
IN: stack-checker.call-effect.tests
|
|
|
|
[ t ] [ \ + (( a b -- c )) execute-effect-unsafe? ] unit-test
|
|
[ t ] [ \ + (( a b c -- d e )) execute-effect-unsafe? ] unit-test
|
|
[ f ] [ \ + (( a b c -- d )) execute-effect-unsafe? ] unit-test
|
|
[ f ] [ \ call (( x -- )) execute-effect-unsafe? ] unit-test |