2009-01-09 18:58:00 -05:00
|
|
|
IN: present.tests
|
2009-01-16 13:47:33 -05:00
|
|
|
USING: tools.test present math vocabs tools.vocabs sequences kernel ;
|
2009-01-09 18:58:00 -05:00
|
|
|
|
|
|
|
|
[ "3" ] [ 3 present ] unit-test
|
|
|
|
|
[ "Hi" ] [ "Hi" present ] unit-test
|
|
|
|
|
[ "+" ] [ \ + present ] unit-test
|
2009-01-16 13:47:33 -05:00
|
|
|
[ "kernel" ] [ "kernel" vocab present ] unit-test
|
|
|
|
|
[ ] [ all-vocabs-seq [ present ] map drop ] unit-test
|
