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

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

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

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

my @left = qw/
	init
	init_sub_system
	quit_sub_system
	quit
	was_init
	get_error
	set_error
	error
	clear_error
	load_object
	load_function
	unload_fuction
	unload_object
	envvars
	VERSION
	linked_version
	version
	/;

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
105dd7ae	1	#!/usr/bin/perl -w
	2	use strict;
	3	use SDL;
	4	use Test::More;
	5
de393d68	6	plan ( tests => 4 );
105dd7ae	7	my @done =qw/ none /;
105dd7ae	8
de393d68	9	SKIP:
	10	{
	11	skip 'Not implemented', 2;
	12	use_ok( 'SDL' );
	13	can_ok ('SDL', @done);
	14	}
105dd7ae	15
	16	my @left = qw/
	17	init
	18	init_sub_system
	19	quit_sub_system
	20	quit
	21	was_init
	22	get_error
	23	set_error
	24	error
	25	clear_error
	26	load_object
	27	load_function
	28	unload_fuction
	29	unload_object
	30	envvars
	31	VERSION
	32	linked_version
	33	version
	34	/;
	35
	36	my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
	37
	38	TODO:
	39	{
	40	local $TODO = $why;
	41	pass "\nThe following functions:\n".join ",", @left;
	42	}
	43	if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why}
	44
	45
	46	pass 'Are we still alive? Checking for segfaults';