demo-smoke-test ( -- )

Vocabulary

demos.smoke-test

Inputs

None

Outputs

None

Definition

USING: continuations kernel namespaces threads ui
ui.gadgets.labels ui.gadgets.worlds ;

IN: demos.smoke-test

: demo-smoke-test ( -- )
    check-demo-coverage [ smoke-error ] ui-error-hook set-global 
    [
        "Checking demos..." <label> "Demo smoke tests"
        open-window
        [ [ check-demos ] [ smoke-error ] recover ]
        "Demo smoke tests" spawn drop
    ] with-ui ;