#!/usr/bin/perl -w
use strict;
use Config;

use SDL;
use SDL::Video;
use SDL::Version;
use Test::More;
use lib 't/lib';
use SDL::TestTool;

my $videodriver = $ENV{SDL_VIDEODRIVER};
$ENV{SDL_VIDEODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};

if ( !SDL::TestTool->init(SDL_INIT_VIDEO) ) {
    plan( skip_all => 'Failed to init video' );
}
else {
    plan( tests => 28 );
}

my @done = qw/
  init
  quit
  was_init
  get_error
  version
  linked_version
  putenv
  getenv
  init_sub_system
  quit_sub_system
  /;

use_ok('SDL');
can_ok( 'SDL', @done );

my $v = SDL::linked_version();
isa_ok( $v, 'SDL::Version', '[linked_version]' );
printf( "got version: %d.%d.%d\n", $v->major, $v->minor, $v->patch );

is( SDL_INIT_TIMER,      1,   'SDL_INIT_TIMER should be imported' );
is( SDL_INIT_TIMER(),    1,   'SDL_INIT_TIMER() should also be available' );
is( SDL_INIT_AUDIO,      16,  'SDL_INIT_AUDIO should be imported' );
is( SDL_INIT_AUDIO(),    16,  'SDL_INIT_AUDIO() should also be available' );
is( SDL_INIT_VIDEO,      32,  'SDL_INIT_VIDEO should be imported' );
is( SDL_INIT_VIDEO(),    32,  'SDL_INIT_VIDEO() should also be available' );
is( SDL_INIT_CDROM,      256, 'SDL_INIT_CDROM should be imported' );
is( SDL_INIT_CDROM(),    256, 'SDL_INIT_CDROM() should also be available' );
is( SDL_INIT_JOYSTICK,   512, 'SDL_INIT_JOYSTICK should be imported' );
is( SDL_INIT_JOYSTICK(), 512, 'SDL_INIT_JOYSTICK() should also be available' );
is( SDL_INIT_EVERYTHING, 65535, 'SDL_INIT_EVERYTHING should be imported' );
is( SDL_INIT_EVERYTHING(), 65535,
    'SDL_INIT_EVERYTHING() should also be available' );
is( SDL_INIT_NOPARACHUTE, 1048576, 'SDL_INIT_NOPARACHUTE should be imported' );
is( SDL_INIT_NOPARACHUTE(), 1048576,
    'SDL_INIT_NOPARACHUTE() should also be available' );
is( SDL_INIT_EVENTTHREAD, 16777216, 'SDL_INIT_EVENTTHREAD should be imported' );
is( SDL_INIT_EVENTTHREAD(), 16777216,
    'SDL_INIT_EVENTTHREAD() should also be available' );

my $display = SDL::Video::set_video_mode( 640, 480, 232, SDL_ANYFORMAT );

isnt( SDL::get_error(), '', '[get_error] got error ' . SDL::get_error() );
TODO:
{
    local $TODO = 'These test are not critcal if they fail';

    SDL::quit_sub_system(SDL_INIT_VIDEO);
    isnt( SDL::was_init(SDL_INIT_VIDEO),
        SDL_INIT_VIDEO, '[was_init] recognizes turned off sub system' );

    SDL::init_sub_system(SDL_INIT_VIDEO);
    is( SDL::was_init(SDL_INIT_VIDEO),
        SDL_INIT_VIDEO, '[was_init] recognizes turned back on sub system' );
}

SDL::quit();
pass '[quit] SDL quit with out segfaults or errors';

isnt( SDL::was_init(0), SDL_INIT_VIDEO,
    '[was_init] recognizes turned off flags' );

SKIP:
{
    skip 'perl compiled with -DPERL_USE_SAFE_PUTENV', 2
      if defined $Config{'config_args'}
          && $Config{'config_args'} =~ /PERL_USE_SAFE_PUTENV/;
    is( SDL::putenv('PERLSDL_TEST=hello'), 0,       '[putenv] returns 0' );
    is( SDL::getenv('PERLSDL_TEST'),       'hello', '[getenv] returns hello' );
}

my @left = qw/
  load_object
  load_function
  unload_function
  unload_object
  /;

my $why =
    '[Percentage Completion] '
  . int( 100 * $#done / ( $#done + $#left ) )
  . "\% implementation. $#done / "
  . ( $#done + $#left );

TODO:
{
    local $TODO = $why;
    pass "\nThe following functions:\n" . join ",", @left;
}
if   ( $done[0] eq 'none' ) { print '0% done 0/' . $#left . "\n" }
else                        { print "$why\n" }

if ($videodriver) {
    $ENV{SDL_VIDEODRIVER} = $videodriver;
}
else {
    delete $ENV{SDL_VIDEODRIVER};
}

pass 'Are we still alive? Checking for segfaults';
sleep(2);