Add deploy test to ensure game-input works
parent
4711768e6c
commit
75cfe40c6c
basis/tools/deploy
|
@ -97,4 +97,8 @@ M: quit-responder call-responder*
|
|||
shake-and-bake
|
||||
run-temp-image
|
||||
] curry unit-test
|
||||
] each
|
||||
] each
|
||||
|
||||
os windows? os macosx? or [
|
||||
[ ] [ "tools.deploy.test.8" shake-and-bake run-temp-image ] unit-test
|
||||
] when
|
|
@ -0,0 +1,21 @@
|
|||
USING: calendar game-input threads ui ui.gadgets.worlds kernel
|
||||
method-chains system ;
|
||||
IN: tools.deploy.test.8
|
||||
|
||||
TUPLE: my-world < world ;
|
||||
|
||||
BEFORE: my-world begin-world drop open-game-input ;
|
||||
|
||||
AFTER: my-world end-world drop close-game-input ;
|
||||
|
||||
: test-game-input ( -- )
|
||||
[
|
||||
f T{ world-attributes
|
||||
{ world-class my-world }
|
||||
{ title "Test" }
|
||||
} open-window
|
||||
1 seconds sleep
|
||||
0 exit
|
||||
] with-ui ;
|
||||
|
||||
MAIN: test-game-input
|
|
@ -0,0 +1,14 @@
|
|||
USING: tools.deploy.config ;
|
||||
H{
|
||||
{ deploy-c-types? f }
|
||||
{ deploy-unicode? f }
|
||||
{ deploy-word-defs? f }
|
||||
{ deploy-name "tools.deploy.test.8" }
|
||||
{ "stop-after-last-window?" t }
|
||||
{ deploy-reflection 1 }
|
||||
{ deploy-ui? t }
|
||||
{ deploy-math? t }
|
||||
{ deploy-io 2 }
|
||||
{ deploy-word-props? f }
|
||||
{ deploy-threads? t }
|
||||
}
|
Loading…
Reference in New Issue