zealot-test-commands-old ( path -- )

Vocabulary

zealot.factor

Inputs

path

an object

Outputs

None

Definition

USING: arrays concurrency.combinators io.directories io.launcher
;

IN: zealot.factor

: zealot-test-commands-old ( path -- )
    [
        factor-path "-i=factor.image"
        "-e=USE: zealot.factor USE: tools.test [ zealot-core-vocabs te..."
        3array "./test-core-log" zealot-test-command
        factor-path "-i=factor.image.basis"
        "-e=USE: zealot.factor USE: tools.test [ zealot-basis-vocabs t..."
        3array "./test-basis-log" zealot-test-command
        factor-path "-i=factor.image.extra"
        "-e=USE: zealot.factor USE: tools.test [ zealot-extra-vocabs t..."
        3array "./test-extra-log" zealot-test-command 3array
        [ try-process ] parallel-each
    ] with-directory ;