library/test/combinators.factor

   1 IN: scratchpad
   2 USE: combinators
   3 USE: kernel
   4 USE: stack
   5 USE: test
   6
   7 [   ] [ 3 [ ] cond ] unit-test
   8 [ t ] [ 4 [ [ 1 = ] [ ] [ 4 = ] [ drop t ] [ 2 = ] [ ] ] cond ] unit-test