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

#!/usr/bin/perl -w
#
# Copyright (C) 2003 Tels
# Copyright (C) 2004 David J. Goehrig
# Copyright (C) 2009 Kartik Thakore
# basic testing of SDL::VIDEO

BEGIN {
	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont';
}

use strict;
use SDL::Config;

use Test::More;

if ( SDL::Config->has('smpeg') && SDL::Config->has('SDL_mixer') ) {
	plan ( tests => 2 );
} else {
	plan ( skip_all => 
		( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled')  .
		( SDL::Config->has('SDL_mixer') ? '' : ' SDL_mixer support not compiled') );
}

use_ok( 'SDL::Video' ); 
  
can_ok ('SDL::Video', qw/
	new
	error
	audio
	video
	volume
	display
	scale
	play
	pause
	stop
	rewind
	seek
	skip
	loop
	region
	frame
	info
	status /);
Commit	Line	Data
8fde61e3	1	#!/usr/bin/perl -w
	2	#
	3	# Copyright (C) 2003 Tels
	4	# Copyright (C) 2004 David J. Goehrig
d9dfc034	5	# Copyright (C) 2009 Kartik Thakore
8fde61e3	6	# basic testing of SDL::VIDEO
	7
	8	BEGIN {
d9dfc034	9	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont';
8fde61e3	10	}
	11
	12	use strict;
	13	use SDL::Config;
	14
	15	use Test::More;
	16
	17	if ( SDL::Config->has('smpeg') && SDL::Config->has('SDL_mixer') ) {
	18	plan ( tests => 2 );
	19	} else {
	20	plan ( skip_all =>
	21	( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled') .
	22	( SDL::Config->has('SDL_mixer') ? '' : ' SDL_mixer support not compiled') );
	23	}
	24
	25	use_ok( 'SDL::Video' );
	26
	27	can_ok ('SDL::Video', qw/
	28	new
	29	error
	30	audio
	31	video
	32	volume
	33	display
	34	scale
	35	play
	36	pause
	37	stop
	38	rewind
	39	seek
	40	skip
	41	loop
	42	region
	43	frame
	44	info
	45	status /);
	46
	47