unmaintained/combinators-lib/lib-tests.factor

   1 USING: combinators.lib kernel math random sequences tools.test continuations
   2     arrays vectors ;
   3 IN: combinators.lib.tests
   4
   5 [ 6 -1 ] [ 5 0 1 [ + ] [ - ] bi, bi* ] unit-test
   6 [ 6 -1 1 ] [ 5 0 1 1 [ + ] [ - ] [ * ] tri, tri* ] unit-test
   7
   8 [ 5 4 ] [ 5 0 1 [ + ] [ - ] bi*, bi ] unit-test
   9 [ 5 4 5 ] [ 5 0 1 1 [ + ] [ - ] [ * ] tri*, tri ] unit-test
  10
  11 [ 5 6 ] [ 5 0 1 [ + ] bi@, bi ] unit-test
  12 [ 5 6 7 ] [ 5 0 1 2 [ + ] tri@, tri ] unit-test
  13
  14 [ 5 ] [ [ 10 random ] [ 5 = ] generate ] unit-test
  15 [ t ] [ [ 10 random ] [ even? ] generate even? ] unit-test
  16
  17 [ { "foo" "xbarx" } ]
  18 [
  19     { "oof" "bar" } { [ reverse ] [ "x" dup surround ] } parallel-call
  20 ] unit-test
  21
  22 { 1 1 } [
  23     [ even? ] [ drop 1 ] [ drop 2 ] ifte
  24 ] must-infer-as