core_joystick.t

#!/usr/bin/perl -w
use strict;
use SDL;
use Test::More;
use SDL::Joystick;
my @done = qw/num_joysticks/;
can_ok( "SDL::Joystick", @done );

is( SDL::Joystick::num_joysticks() >= 0, 1, "[num_joysticks] ran" );

SKIP:
{
	SDL::init_sub_system(SDL_INIT_JOYSTICK);

	skip "Need a joystick for below tests", 1
		unless ( SDL::Joystick::num_joysticks() > 0 );

	my $joy = SDL::Joystick->new(0);
	pass "[new] can open joystick";

}

my @left = qw/
	name
	opened
	index
	num_axes
	num_balls
	num_hats
	num_buttons
	update
	get_axis
	get_hat
	get_button
	get_ball
	/;

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);