extra/variants/variants-tests.factor

   1 ! (c)2009 Joe Groff bsd license
   2 USING: kernel math tools.test variants ;
   3 IN: variants.tests
   4
   5 VARIANT: list
   6     nil
   7     cons: { { first object } { rest list } }
   8     ;
   9
  10 [ t ] [ nil list? ] unit-test
  11 [ t ] [ 1 nil <cons> list? ] unit-test
  12 [ f ] [ 1 list? ] unit-test
  13
  14 : list-length ( list -- length )
  15     {
  16         { nil  [ 0 ] }
  17         { cons [ nip list-length 1 + ] }
  18     } match ;
  19
  20 [ 4 ]
  21 [ 5 6 7 8 nil <cons> <cons> <cons> <cons> list-length ] unit-test