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 words accessors compiler.units ;
   4 IN: tools.crossref.tests
   5
   6 GENERIC: foo ( a b -- c )
   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
  14
  15 ! Issues with forget
  16 GENERIC: generic-forget-test-1 ( a b -- c )
  17
  18 M: integer generic-forget-test-1 / ;
  19
  20 [ t ] [
  21     \ / usage [ word? ] filter
  22     [ name>> "integer=>generic-forget-test-1" = ] any?
  23 ] unit-test
  24
  25 [ ] [
  26     [ \ generic-forget-test-1 forget ] with-compilation-unit
  27 ] unit-test
  28
  29 [ f ] [
  30     \ / usage [ word? ] filter
  31     [ name>> "integer=>generic-forget-test-1" = ] any?
  32 ] unit-test
  33
  34 GENERIC: generic-forget-test-2 ( a b -- c )
  35
  36 M: sequence generic-forget-test-2 = ;
  37
  38 [ t ] [
  39     \ = usage [ word? ] filter
  40     [ name>> "sequence=>generic-forget-test-2" = ] any?
  41 ] unit-test
  42
  43 [ ] [
  44     [ M\ sequence generic-forget-test-2 forget ] with-compilation-unit
  45 ] unit-test
  46
  47 [ f ] [
  48     \ = usage [ word? ] filter
  49     [ name>> "sequence=>generic-forget-test-2" = ] any?
  50 ] unit-test