basis/compiler/tests/tuples.factor

   1 USING: kernel tools.test compiler.units compiler ;
   2 IN: compiler.tests.tuples
   3
   4 TUPLE: color red green blue ;
   5
   6 [ T{ color f 1 2 3 } ]
   7 [ 1 2 3 [ color boa ] compile-call ] unit-test
   8
   9 [ T{ color f f f f } ]
  10 [ [ color new ] compile-call ] unit-test