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
6 GENERIC: foo ( a b -- c )
10 "vocab:tools/crossref/test/foo.factor" run-file
12 [ t ] [ integer \ foo method \ + usage member? ] unit-test
13 [ t ] [ \ foo usage [ pathname? ] any? ] unit-test
16 GENERIC: generic-forget-test-1 ( a b -- c )
18 M: integer generic-forget-test-1 / ;
21 \ / usage [ word? ] filter
22 [ name>> "integer=>generic-forget-test-1" = ] any?
26 [ \ generic-forget-test-1 forget ] with-compilation-unit
30 \ / usage [ word? ] filter
31 [ name>> "integer=>generic-forget-test-1" = ] any?
34 GENERIC: generic-forget-test-2 ( a b -- c )
36 M: sequence generic-forget-test-2 = ;
39 \ = usage [ word? ] filter
40 [ name>> "sequence=>generic-forget-test-2" = ] any?
44 [ M\ sequence generic-forget-test-2 forget ] with-compilation-unit
48 \ = usage [ word? ] filter
49 [ name>> "sequence=>generic-forget-test-2" = ] any?