check-demos ( -- )

Vocabulary

demos.smoke-test

Inputs

None

Outputs

None

Definition

USING: assocs command-line io kernel namespaces sequences system
ui ;

IN: demos.smoke-test

: check-demos ( -- )
    command-line get dup "--themes" swap member?
    [ "--themes" swap remove dup check-themed-demos ]
    [ dup check-graphical-demos ] if empty? [
        console-demos [ check-console-demo ] assoc-each
        check-external-demos
    ] when close-all-windows "Demo smoke tests passed" print
    flush 0 exit ;