papier-smoke-test ( -- )

Vocabulary

papier.smoke-test

Inputs

None

Outputs

None

Definition

USING: continuations game.worlds io kernel namespaces papier
threads ui ui.gadgets.worlds ;

IN: papier.smoke-test

: papier-smoke-test ( -- )
    [ smoke-error ] ui-error-hook set-global [
        papier-game-attributes start-game
        '[ _ [ check-papier ] [ smoke-error ] recover ]
        "Papier smoke test" spawn drop
    ] with-ui "Papier smoke test passed" print ;