/t/core_mouse.t

http://github.com/PerlGameDev/SDL · Perl · 38 lines · 31 code · 6 blank · 1 comment · 0 complexity · bd39dfe72ed07145663d2726dd0d0b82 MD5 · raw file

  1. #!/usr/bin/perl -w
  2. use strict;
  3. use warnings;
  4. use SDL;
  5. use Test::More;
  6. use SDL::Mouse;
  7. use SDL::Cursor;
  8. use SDL::Surface;
  9. my @done = qw/
  10. /;
  11. my @left = qw/
  12. warp_mouse
  13. set_cursor
  14. get_cursor
  15. show_cursor
  16. /;
  17. can_ok( 'SDL::Mouse', @left ); #change to @done later ... after tests
  18. can_ok( 'SDL::Cursor', qw/new DESTROY/ );
  19. my $why =
  20. '[Percentage Completion] '
  21. . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
  22. . "\% implementation. "
  23. . ( $#done + 1 ) . " / "
  24. . ( $#done + $#left + 2 );
  25. TODO:
  26. {
  27. local $TODO = $why;
  28. fail "Not Implmented $_" foreach (@left)
  29. }
  30. print "$why\n";
  31. done_testing;
  32. sleep(2);