Moved old SDL::Video test to smpeg test

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

diff --git a/t/smpeg.t b/t/smpeg.t
new file mode 100644 (file)
index 0000000..e150c06
--- /dev/null
+++ b/t/smpeg.t
@@ -0,0 +1,43 @@
+#!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 /);
+
+