load-and-test-command ( i -- command )

Vocabulary

zealot.factor

Inputs

i

an object

Outputs

command

an object

Definition

USING: accessors arrays calendar formatting io.launcher kernel ;

IN: zealot.factor

: load-and-test-command ( i -- command )
    [ factor-path "-i=factor.image" ] dip [
        "-e=USING: zealot.factor tools.test grouping.extras formatting..."
        sprintf 3array
    ] [ "./test-%d-log" sprintf ] bi <process> swap >>stdout
    swap >>command +closed+ >>stdin +stdout+ >>stderr
    60 minutes >>timeout +new-group+ >>group ;