3 # Copyright (C) 2003 Tels
4 # Copyright (C) 2004 David J. Goehrig
5 # Copyright (C) 2009 Kartik Thakore
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/
64 # these are exported by default, so main:: should know them:
65 SDL::Init(SDL_INIT_AUDIO);
66 my $mixer = SDL::Mixer->new();
67 isa_ok($mixer, 'SDL::Mixer');