t/core_events.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use SDL;
   4 use Test::More;
   5
   6 plan ( tests => 4 );
   7
   8 my @done =qw/ none /;
   9
  10
  11 SKIP:
  12 {
  13 skip 'Not implemented', 2;
  14 use_ok( 'SDL::Events' );
  15 can_ok ('SDL::Events', @done);
  16 }
  17
  18 my @left = qw/
  19 pumpevents
  20 peepevents
  21 pollevent
  22 waitevent
  23 pushevent
  24 seteventfilter
  25 eventstate
  26 getkeystate
  27 getmodstate
  28 setmodstate
  29 getkeyname
  30 enableunicode
  31 enablekeyrepeat
  32 getmousestate
  33 getrelativemousestate
  34 getappstate
  35 joystickeventstate
  36 StartTextInput
  37 StopTextInput
  38 SetTextInputRect
  39 /;
  40
  41 my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
  42
  43 TODO:
  44 {
  45         local $TODO = $why;
  46         pass "\nThe following functions:\n".join ",", @left;
  47 }
  48         if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag  $why}
  49
  50
  51 pass 'Are we still alive? Checking for segfaults';