13 lines
350 B
Factor
13 lines
350 B
Factor
|
USING: math kernel sequences io.files tools.crossref tools.test
|
||
|
|
parser namespaces source-files generic definitions ;
|
||
|
|
IN: tools.crossref.tests
|
||
|
|
|
||
|
|
GENERIC: foo
|
||
|
|
|
||
|
|
M: integer foo + ;
|
||
|
|
|
||
|
"resource:basis/tools/crossref/test/foo.factor" run-file
|
||
|
|
|
||
|
[ t ] [ integer \ foo method \ + usage member? ] unit-test
|
||
|
|
[ t ] [ \ foo usage [ pathname? ] contains? ] unit-test
|