/t/core_mouse.t

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