3 # Copyright (C) 2003 Tels
4 # Copyright (C) 2004 David J. Goehrig
6 # basic testing of SDL::Mixer
9 unshift @INC, 'blib/lib','blib/arch';
18 if ( SDL::Config->has('SDL_mixer') ) {
21 plan ( skip_all => 'SDL_mixer support not compiled' );
24 use_ok( 'SDL::Mixer' );
26 can_ok ('SDL::Mixer', qw/
63 # these are exported by default, so main:: should know them:
64 SDL::Init(SDL_INIT_AUDIO);
65 my $mixer = SDL::Mixer->new();
66 isa_ok($mixer, 'SDL::Mixer');