basis/present/present-tests.factor

   1 IN: present.tests
   2 USING: kernel math present sequences tools.test vocabs
   3 vocabs.hierarchy ;
   4
   5 { "3" } [ 3 present ] unit-test
   6 { "Hi" } [ "Hi" present ] unit-test
   7 { "+" } [ \ + present ] unit-test
   8 { "kernel" } [ "kernel" lookup-vocab present ] unit-test
   9 { } [ disk-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
  10
  11 { "1+1j" } [ C{ 1 1 } present ] unit-test
  12 { "1-1j" } [ C{ 1 -1 } present ] unit-test
  13 { "-1+1j" } [ C{ -1 1 } present ] unit-test
  14 { "-1-1j" } [ C{ -1 -1 } present ] unit-test