17 lines
342 B
Factor
17 lines
342 B
Factor
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
|