basis/tools/crossref/crossref-tests.factor

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