check-demo-errors ( baseline -- )

Vocabulary

demos.smoke-test

Inputs

baseline

an object

Outputs

None

Definition

USING: accessors kernel sequences tools.errors ;

IN: demos.smoke-test

:: check-demo-errors ( baseline -- )
    demo-errors [ asset>> baseline member-eq? not ] filter
    dup empty?
    [ drop ]
    [ errors. "Demo compilation or linkage failed" throw ] if ;