2009-01-09 18:58:00 -05:00
|
|
|
IN: present.tests
|
2009-05-04 14:10:56 -04:00
|
|
|
USING: tools.test vocabs.hierarchy present math vocabs sequences kernel ;
|
2009-01-09 18:58:00 -05:00
|
|
|
|
|
|
|
[ "3" ] [ 3 present ] unit-test
|
|
|
|
[ "Hi" ] [ "Hi" present ] unit-test
|
|
|
|
[ "+" ] [ \ + present ] unit-test
|
2011-10-24 22:33:09 -04:00
|
|
|
[ "kernel" ] [ "kernel" lookup-vocab present ] unit-test
|
2011-10-23 20:05:22 -04:00
|
|
|
[ ] [ all-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
|