/extra/mason/release/tidy/tidy-tests.factor

 1USING: io.directories mason.config mason.release.tidy namespaces
 2sequences system tools.test ;
 3IN: mason.release.tidy.tests
 4
 5! Normally, these words are run in the factor subdirectory
 6! of the build directory, and they look for a file named
 7! build-support/cleanup there. Use with-directory here to
 8! ensure we use the file from the current source tree instead.
 9"resource:" [
10    [ f ] [
11        macosx target-os [
12            "Factor.app" useless-files member?
13        ] with-variable
14    ] unit-test
15    
16    [ t ] [
17        linux target-os [
18            "Factor.app" useless-files member?
19        ] with-variable
20    ] unit-test
21] with-directory