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

#!perl 
# basic testing of SDL::SMPEG

BEGIN {
	unshift @INC, 'blib/lib','blib/arch';
}

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::SMPEG' ); 
  
can_ok ('SDL::SMPEG', qw/
	new
	error
	audio
	video
	volume
	display
	scale
	play
	pause
	stop
	rewind
	seek
	skip
	loop
	region
	frame
	info
	status /);
Commit	Line	Data
a677489e	1	#!perl
	2	# basic testing of SDL::SMPEG
	3
	4	BEGIN {
	5	unshift @INC, 'blib/lib','blib/arch';
	6	}
	7
	8	use strict;
	9	use SDL::Config;
	10
	11	use Test::More;
	12
	13	if ( SDL::Config->has('smpeg') && SDL::Config->has('SDL_mixer') ) {
	14	plan ( tests => 2 );
	15	} else {
	16	plan ( skip_all =>
	17	( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled') .
	18	( SDL::Config->has('SDL_mixer') ? '' : ' SDL_mixer support not compiled') );
	19	}
	20
	21	use_ok( 'SDL::SMPEG' );
	22
	23	can_ok ('SDL::SMPEG', qw/
	24	new
	25	error
	26	audio
	27	video
	28	volume
	29	display
	30	scale
	31	play
	32	pause
	33	stop
	34	rewind
	35	seek
	36	skip
	37	loop
	38	region
	39	frame
	40	info
	41	status /);
	42
	43