core_joystick.t

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

SDL::init(SDL_INIT_JOYSTICK);

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

SKIP:
{
 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);