factor/core/compiler/tests/tuples.factor

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

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
New convention for unit tests 2008-03-01 17:00:45 -05:00			`IN: compiler.tests`
Regression fixes 2008-02-25 20:37:43 -05:00			`USING: kernel tools.test compiler.units ;`
Initial import 2007-09-20 18:09:08 -04:00
			`TUPLE: color red green blue ;`

			`[ T{ color f 1 2 3 } ]`
construct-boa -> boa construct-empty -> new 2008-04-13 16:06:09 -04:00			`[ 1 2 3 [ color boa ] compile-call ] unit-test`
Initial import 2007-09-20 18:09:08 -04:00
			`[ T{ color f f f f } ]`
construct-boa -> boa construct-empty -> new 2008-04-13 16:06:09 -04:00			`[ [ color new ] compile-call ] unit-test`