[sdlgit/SDL_perl.git] / t / core_wm.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::WM' ); 
can_ok ('SDL:WM', @done); 
}

my @left = qw/
get_wminfo
set_caption 
get_caption 
set_icon 
iconify_window 
toggle_fullscreen 
grab_input 	
/;

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
97d9726e	1	#!/usr/bin/perl -w
	2	use strict;
	3	use SDL;
	4	use Test::More;
	5
de393d68	6	plan ( tests => 4 );
97d9726e	7
	8	my @done =qw/ none /;
	9
97d9726e	10
de393d68	11	SKIP:
	12	{
	13	skip 'Not implemented', 2;
	14	use_ok( 'SDL::WM' );
	15	can_ok ('SDL:WM', @done);
	16	}
97d9726e	17
	18	my @left = qw/
	19	get_wminfo
	20	set_caption
	21	get_caption
	22	set_icon
	23	iconify_window
	24	toggle_fullscreen
	25	grab_input
	26	/;
	27
	28	my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
	29
	30	TODO:
	31	{
	32	local $TODO = $why;
	33	pass "\nThe following functions:\n".join ",", @left;
	34	}
	35	if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why}
	36
	37
	38	pass 'Are we still alive? Checking for segfaults';