2008-03-01 17:00:45 -05:00
|
|
|
IN: effects.tests
|
2008-06-08 17:47:20 -04:00
|
|
|
USING: effects tools.test prettyprint accessors sequences ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ t ] [ 1 1 <effect> 2 2 <effect> effect<= ] unit-test
|
|
|
|
|
[ f ] [ 1 0 <effect> 2 2 <effect> effect<= ] unit-test
|
|
|
|
|
[ t ] [ 2 2 <effect> 2 2 <effect> effect<= ] unit-test
|
|
|
|
|
[ f ] [ 3 3 <effect> 2 2 <effect> effect<= ] unit-test
|
|
|
|
|
[ f ] [ 2 3 <effect> 2 2 <effect> effect<= ] unit-test
|
2008-06-08 17:47:20 -04:00
|
|
|
[ 2 ] [ (( a b -- c )) in>> length ] unit-test
|
|
|
|
|
[ 1 ] [ (( a b -- c )) out>> length ] unit-test
|
|
|
|
|
[ "(( a b -- c ))" ] [ (( a b -- c )) unparse ] unit-test
|
