vocab-tests-dir ( vocab -- paths )

Vocabulary

vocabs.files

Inputs

vocab

a vocabulary specifier

Outputs

paths

a sequence of pathname strings

Word description

Outputs a sequence of pathnames for the tests in the test directory.

Definition

USING: io.directories io.files io.pathnames kernel sequences
vocabs.loader ;

IN: vocabs.files

: vocab-tests-dir ( vocab -- paths )
    dup vocab-dir "tests" append-path vocab-append-path [
        dup file-exists? [
            dup directory-files [ ".factor" tail? ] filter
            [ append-path ] with map
        ] [ drop f ] if
    ] [ f ] if* ;