TestWrap.icl 217 Bytes
Newer Older
1 2 3 4 5 6 7 8 9
module TestWrap
import iTasks

test :: Task ()
test = (updateInformation () [] "Test for wrapping a ui" @! () >>= return) <<@ ApplyLayout layout
where
    layout = wrapUI UIDebug

Start world = startEngine test world