core/effects/effects-tests.factor

   1 IN: effects.tests
   2 USING: effects tools.test prettyprint accessors sequences ;
   3
   4 [ t ] [ 1 1 <effect> 2 2 <effect> effect<= ] unit-test
   5 [ f ] [ 1 0 <effect> 2 2 <effect> effect<= ] unit-test
   6 [ t ] [ 2 2 <effect> 2 2 <effect> effect<= ] unit-test
   7 [ f ] [ 3 3 <effect> 2 2 <effect> effect<= ] unit-test
   8 [ f ] [ 2 3 <effect> 2 2 <effect> effect<= ] unit-test
   9 [ 2 ] [ (( a b -- c )) in>> length ] unit-test
  10 [ 1 ] [ (( a b -- c )) out>> length ] unit-test
  11 [ "(( a b -- c ))" ] [ (( a b -- c )) unparse ] unit-test