2007-09-20 18:09:08 -04:00
|
|
|
USING: kernel tools.test tuples.lib ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: tuples.lib.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
TUPLE: foo a b* c d* e f* ;
|
|
|
|
|
|
|
|
|
|
[ 1 2 3 4 5 6 ] [ 1 2 3 4 5 6 \ foo construct-boa \ foo >tuple< ] unit-test
|
|
|
|
|
[ 2 4 6 ] [ 1 2 3 4 5 6 \ foo construct-boa \ foo >tuple*< ] unit-test
|
|
|
|
|
|
