Permalink
Fetching contributors…
Cannot retrieve contributors at this time
43 lines (35 sloc) 487 Bytes
#!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') ) {
plan ( tests => 2 );
} else {
plan ( skip_all => ( SDL::Config->has('smpeg') ? '' : ' smpeg 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
/);
sleep(2);