check-console-demo ( name input -- )

Vocabulary

demos.smoke-test

Inputs

name	an object
input	an object

Outputs

None

Definition

USING: io io.streams.string kernel sequences vocabs.loader ;

IN: demos.smoke-test

:: check-console-demo ( name input -- )
    demo-error-assets :> baseline-errors
    [ input [ name run ] with-string-reader ] with-string-writer
    drop baseline-errors check-demo-errors name "PASS: " prepend
    print flush ;