2008-03-15 07:23:47 -04:00
|
|
|
USING: kernel symbols tools.test parser generic words ;
|
2008-03-07 21:05:58 -05:00
|
|
|
IN: symbols.tests
|
|
|
|
|
|
|
|
|
|
[ ] [ SYMBOLS: a b c ; ] unit-test
|
|
|
|
|
[ a ] [ a ] unit-test
|
|
|
|
|
[ b ] [ b ] unit-test
|
|
|
|
|
[ c ] [ c ] unit-test
|
2008-03-15 07:23:47 -04:00
|
|
|
|
|
|
|
|
DEFER: blah
|
|
|
|
|
|
|
|
|
|
[ ] [ "IN: symbols.tests GENERIC: blah" eval ] unit-test
|
|
|
|
|
[ ] [ "IN: symbols.tests USE: symbols SYMBOLS: blah ;" eval ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ \ blah generic? ] unit-test
|
|
|
|
|
[ t ] [ \ blah symbol? ] unit-test
|
