2008-06-11 03:58:38 -04:00
|
|
|
IN: compiler.tests
|
|
|
|
|
USING: compiler compiler.units tools.test math parser kernel
|
|
|
|
|
sequences sequences.private classes.mixin generic definitions
|
2008-07-29 17:57:30 -04:00
|
|
|
arrays words assocs eval ;
|
2008-06-11 03:58:38 -04:00
|
|
|
|
|
|
|
|
DEFER: blah
|
|
|
|
|
|
|
|
|
|
[ ] [ "USE: sequences USE: kernel IN: compiler.tests TUPLE: blah ; M: blah nth 2drop 3 ; INSTANCE: blah sequence" eval ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ blah new sequence? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ 0 blah new nth-unsafe ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ [ blah sequence remove-mixin-instance ] with-compilation-unit ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ blah new sequence? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 0 blah new nth-unsafe ] must-fail
|
