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

my @left = qw/
pumpevents 
peepevents 
pollevent 
waitevent 
pushevent 
seteventfilter 
eventstate 
getkeystate 
getmodstate 
setmodstate 
getkeyname 
enableunicode 
enablekeyrepeat 
getmousestate 
getrelativemousestate 
getappstate 
joystickeventstate 
StartTextInput 
StopTextInput 
SetTextInputRect 
/;

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
c894bef0	1	#!/usr/bin/perl -w
	2	use strict;
	3	use SDL;
	4	use Test::More;
	5
	6	plan ( tests => 4 );
	7
	8	my @done =qw/ none /;
	9
	10
	11	SKIP:
	12	{
	13	skip 'Not implemented', 2;
	14	use_ok( 'SDL::Events' );
	15	can_ok ('SDL::Events', @done);
	16	}
	17
	18	my @left = qw/
	19	pumpevents
	20	peepevents
	21	pollevent
	22	waitevent
	23	pushevent
	24	seteventfilter
	25	eventstate
	26	getkeystate
	27	getmodstate
	28	setmodstate
	29	getkeyname
	30	enableunicode
	31	enablekeyrepeat
	32	getmousestate
	33	getrelativemousestate
	34	getappstate
	35	joystickeventstate
	36	StartTextInput
	37	StopTextInput
	38	SetTextInputRect
	39	/;
	40
	41	my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
	42
	43	TODO:
	44	{
	45	local $TODO = $why;
	46	pass "\nThe following functions:\n".join ",", @left;
	47	}
	48	if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why}
	49
	50
	51	pass 'Are we still alive? Checking for segfaults';