basis/present/present-tests.factor

   1 IN: present.tests
   2 USING: tools.test present math vocabs tools.vocabs sequences kernel ;
   3
   4 [ "3" ] [ 3 present ] unit-test
   5 [ "Hi" ] [ "Hi" present ] unit-test
   6 [ "+" ] [ \ + present ] unit-test
   7 [ "kernel" ] [ "kernel" vocab present ] unit-test
   8 [ ] [ all-vocabs-seq [ present ] map drop ] unit-test