basis/tools/crossref/crossref-tests.factor

   1 USING: math kernel sequences io.files io.pathnames
   2 tools.crossref tools.test parser namespaces source-files generic
   3 definitions ;
   4 IN: tools.crossref.tests
   5
   6 GENERIC: foo
   7
   8 M: integer foo + ;
   9
  10 "vocab:tools/crossref/test/foo.factor" run-file
  11
  12 [ t ] [ integer \ foo method \ + usage member? ] unit-test
  13 [ t ] [ \ foo usage [ pathname? ] any? ] unit-test