basis/combinators/smart/smart-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test combinators.smart math kernel ;
   4 IN: combinators.smart.tests
   5
   6 : test-bi ( -- 9 11 )
   7     10 [ 1- ] [ 1+ ] bi ;
   8
   9 [ [ test-bi ] output>array ] must-infer
  10 [ { 9 11 } ] [ [ test-bi ] output>array ] unit-test
  11
  12 [ { 9 11 } [ + ] input<sequence ] must-infer
  13 [ 20 ] [ { 9 11 } [ + ] input<sequence ] unit-test
  14
  15 [ 6 ] [ [ 1 2 3 ] [ + ] reduce-outputs ] unit-test
  16
  17 [ [ 1 2 3 ] [ + ] reduce-outputs ] must-infer
  18
  19 [ 6 ] [ [ 1 2 3 ] sum-outputs ] unit-test
  20
  21 [ "ab" ]
  22 [
  23     [ "a" "b" ] "" append-outputs-as
  24 ] unit-test
  25
  26 [ "" ]
  27 [
  28     [ ] "" append-outputs-as
  29 ] unit-test
  30
  31 [ { } ]
  32 [
  33     [ ] append-outputs
  34 ] unit-test
  35
  36 [ B{ 1 2 3 } ]
  37 [
  38     [ { 1 } { 2 } { 3 } ] B{ } append-outputs-as
  39 ] unit-test