2009-01-09 18:58:00 -05:00
|
|
|
IN: present.tests
|
2015-05-11 20:57:11 -04:00
|
|
|
USING: kernel math present sequences tools.test vocabs
|
|
|
|
vocabs.hierarchy ;
|
2009-01-09 18:58:00 -05:00
|
|
|
|
2015-05-11 20:57:11 -04:00
|
|
|
{ "3" } [ 3 present ] unit-test
|
|
|
|
{ "Hi" } [ "Hi" present ] unit-test
|
|
|
|
{ "+" } [ \ + present ] unit-test
|
|
|
|
{ "kernel" } [ "kernel" lookup-vocab present ] unit-test
|
2015-06-08 17:37:36 -04:00
|
|
|
{ } [ all-disk-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
|
2015-05-11 20:57:11 -04:00
|
|
|
|
|
|
|
{ "1+1j" } [ C{ 1 1 } present ] unit-test
|
|
|
|
{ "1-1j" } [ C{ 1 -1 } present ] unit-test
|
|
|
|
{ "-1+1j" } [ C{ -1 1 } present ] unit-test
|
|
|
|
{ "-1-1j" } [ C{ -1 -1 } present ] unit-test
|