USING: kernel tools.test compiler.units compiler.test ;
IN: compiler.tests.tuples

TUPLE: color red green blue ;

[ T{ color f 1 2 3 } ]
[ 1 2 3 [ color boa ] compile-call ] unit-test

[ T{ color f f f f } ]
[ [ color new ] compile-call ] unit-test

SYMBOL: foo

[ [ foo new ] compile-call ] must-fail

[ [ foo boa ] compile-call ] must-fail