Add deploy test to ensure game-input works

db4
Slava Pestov 2009-05-11 17:04:14 -05:00
parent 4711768e6c
commit 75cfe40c6c
3 changed files with 40 additions and 1 deletions

View File

@ -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

View File

@ -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

View File

@ -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 }
}