[sdlgit/SDL_perl.git] / t / core_time.t

#!/usr/bin/perl -w
use strict;
use SDL;
use Test::More;
use Test::Trap;
use Data::Dumper;

plan ( tests => 4 );
my @done =qw/ none /;

SKIP:
{
skip 'Not implemented', 2;
use_ok( 'SDL::Time' ); 
can_ok ('SDL::Time', @done); 
}

my @timerInit = trap { SDL::init(SDL_INIT_TIMER) };

#diag  $trap->leaveby;
#diag  Dumper $trap->return;
#diag @timerInit[0];

my @left = qw/
	add_timer
	delay
	get_ticks
	remove_timer
/;

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'){ diag '0% done 0/'.$#left } else { diag  $why} 


pass 'Are we still alive? Checking for segfaults';
Commit	Line	Data
8cce3f72	1	#!/usr/bin/perl -w
	2	use strict;
	3	use SDL;
	4	use Test::More;
	5	use Test::Trap;
a92ef32b	6	use Data::Dumper;
8cce3f72	7
	8	plan ( tests => 4 );
	9	my @done =qw/ none /;
	10
	11	SKIP:
	12	{
a92ef32b	13	skip 'Not implemented', 2;
8cce3f72	14	use_ok( 'SDL::Time' );
	15	can_ok ('SDL::Time', @done);
	16	}
	17
a92ef32b	18	my @timerInit = trap { SDL::init(SDL_INIT_TIMER) };
	19
	20	#diag $trap->leaveby;
	21	#diag Dumper $trap->return;
	22	#diag @timerInit[0];
	23
8cce3f72	24	my @left = qw/
	25	add_timer
	26	delay
	27	get_ticks
	28	remove_timer
	29	/;
	30
	31	my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
	32
	33	TODO:
	34	{
	35	local $TODO = $why;
	36	pass "\nThe following functions:\n".join ",", @left;
	37	}
	38	if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why}
	39
	40
	41	pass 'Are we still alive? Checking for segfaults';