terrain-smoke-test ( -- )

Vocabulary

terrain.smoke-test

Inputs

None

Outputs

None

Definition

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

IN: terrain.smoke-test

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