check-terrain-frame ( world -- )

Vocabulary

terrain.smoke-test

Inputs

world

an object

Outputs

None

Definition

USING: accessors continuations kernel ;

IN: terrain.smoke-test

:: check-terrain-frame ( world -- )
    world terrain-frame :> ground world terrain-mesh>> :> mesh
    mesh dim>> :> dim [
        mesh { 512 0 } >>dim drop world terrain-frame ground =
        f assert=
    ] [ mesh dim >>dim drop ] finally ;