basis/game/input/input-tests.factor

   1 USING: ui game.input tools.test kernel system threads calendar
   2 combinators.short-circuit ;
   3 IN: game.input.tests
   4
   5 os { [ windows? ] [ macosx? ] } 1|| [
   6     [ ] [ open-game-input ] unit-test
   7     [ ] [ 1 seconds sleep ] unit-test
   8     [ ] [ close-game-input ] unit-test
   9 ] when
  10
  11 [ f        ] [ t t button-delta ] unit-test
  12 [ pressed  ] [ f t button-delta ] unit-test
  13 [ released ] [ t f button-delta ] unit-test
  14
  15 [ f        ] [ 0.5 1.0 button-delta ] unit-test
  16 [ pressed  ] [ f   0.7 button-delta ] unit-test
  17 [ released ] [ 0.2 f   button-delta ] unit-test
  18
  19 [  { pressed f f released } ] [ { f t f t } { t t f f }      buttons-delta    ] unit-test
  20 [ V{ pressed f f released } ] [ { f t f t } { t t f f } V{ } buttons-delta-as ] unit-test