smoke-test ( -- )

Vocabulary

raylib.live-coding.smoke-test

Inputs

None

Outputs

None

Definition

USING: combinators continuations io.directories io.files.temp
io.files.unique io.pathnames kernel namespaces raylib
raylib.live-coding threads ui ui.gadgets.worlds
ui.tools.listener vocabs vocabs.loader words ;

IN: raylib.live-coding.smoke-test

: smoke-test ( -- )
    [ unique-directory ] with-temp-directory
    fixture-root set-global
    fixture-root get-global add-vocab-root
    fixture-path parent-directory make-directories
    "RED" write-fixture fixture-name require
    "color" fixture-name lookup-word ( -- color ) execute-effect
    RED assert= 0 frame-count set-global f resumed? set-global
    f reloaded? set-global f closed? set-global
    [ fail ] ui-error-hook set-global [
        listener-window* find-world test-world set-global
        [ [ game ] with-live-coding ] \ run call-listener
        [ [ supervise ] [ fail ] recover ]
        "Live-coding smoke test" spawn drop
    ] with-ui ;