#!/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);