core.t

#!/usr/bin/perl -w
use strict;
use warnings;
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
ifdefined$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);