2008-03-29 04:34:48 -04:00
|
|
|
USING: kernel tools.test classes.tuple.lib ;
|
|
|
|
|
IN: classes.tuple.lib.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
TUPLE: foo a b* c d* e f* ;
|
|
|
|
|
|
2008-04-13 16:06:27 -04:00
|
|
|
[ 1 2 3 4 5 6 ] [ 1 2 3 4 5 6 \ foo boa \ foo >tuple< ] unit-test
|
|
|
|
|
[ 2 4 6 ] [ 1 2 3 4 5 6 \ foo boa \ foo >tuple*< ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
