basis/combinators/short-circuit/smart/smart-tests.factor

   1 USING: kernel math tools.test combinators.short-circuit.smart ;
   2 IN: combinators.short-circuit.smart.tests
   3
   4 [ t ] [       { [ 1 ] [ 2 ] [ 3 ] }          &&  3 = ] unit-test
   5 [ t ] [ 3     { [ 0 > ] [ odd? ] [ 2 + ] }    &&  5 = ] unit-test
   6 [ t ] [ 10 20 { [ + 0 > ] [ - even? ] [ + ] } && 30 = ] unit-test
   7
   8 [ f ] [       { [ 1 ] [ f ] [ 3 ] } &&  3 = ]          unit-test
   9 [ f ] [ 3     { [ 0 > ] [ even? ] [ 2 + ] } && ]       unit-test
  10 [ f ] [ 10 20 { [ + 0 > ] [ - odd? ] [ + ] } && 30 = ] unit-test
  11
  12 [ t ] [ { [ 10 0 < ] [ f ] [ "factor" ] } || "factor" = ] unit-test
  13
  14 [ t ] [ 10 { [ odd? ] [ 100 > ] [ 1 + ] } || 11 = ]       unit-test
  15
  16 [ t ] [ 10 20 { [ + odd? ] [ + 100 > ] [ + ] } || 30 = ]  unit-test
  17
  18 [ f ] [ { [ 10 0 < ] [ f ] [ 0 1 = ] } || ] unit-test