factor/basis/compiler/tests/tuples.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
Move compile-call and related words only meant to be used for debugging to compiler.test 2010-01-22 06:39:56 -05:00			`USING: kernel tools.test compiler.units compiler.test ;`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`IN: compiler.tests.tuples`
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`
stack-checker: calling 'boa' on a non-tuple would compile as a no-op rather than an error (reported by Joe Groff); clean up some other error reporting code too 2010-07-17 15:57:44 -04:00
			`SYMBOL: foo`

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

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