/t/core_mouse.t
http://github.com/PerlGameDev/SDL · Perl · 38 lines · 31 code · 6 blank · 1 comment · 0 complexity · bd39dfe72ed07145663d2726dd0d0b82 MD5 · raw file
- #!/usr/bin/perl -w
- use strict;
- use warnings;
- use SDL;
- use Test::More;
- use SDL::Mouse;
- use SDL::Cursor;
- use SDL::Surface;
- my @done = qw/
- /;
- my @left = qw/
- warp_mouse
- set_cursor
- get_cursor
- show_cursor
- /;
- can_ok( 'SDL::Mouse', @left ); #change to @done later ... after tests
- can_ok( 'SDL::Cursor', qw/new DESTROY/ );
- my $why =
- '[Percentage Completion] '
- . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
- . "\% implementation. "
- . ( $#done + 1 ) . " / "
- . ( $#done + $#left + 2 );
- TODO:
- {
- local $TODO = $why;
- fail "Not Implmented $_" foreach (@left)
- }
- print "$why\n";
- done_testing;
- sleep(2);