Added Mix_VolumeChunk to SDL::Mixer + tests

diff --git a/lib/SDL/Mixer.pm b/lib/SDL/Mixer.pm
index d84dd3a..a578126 100644 (file)
--- a/lib/SDL/Mixer.pm
+++ b/lib/SDL/Mixer.pm
@@ -1,8 +1,9 @@
 #      Mixer.pm
 #
 #      a SDL module for manipulating the SDL_mixer lib.
-#
+#      
 #      Copyright (C) 2000,2002 David J. Goehrig
+#      Copyright (C) 2009 Kartik Thakore
 
 package SDL::Mixer;
 use strict;
@@ -123,6 +124,7 @@ sub music_volume ($$) {
        return SDL::MixVolumeMusic($volume);
 }
 
+
 sub halt_channel ($$) {
        my ($self,$channel) = @_;
        return SDL::MixHaltChannel($channel);
@@ -202,6 +204,11 @@ sub playing ($$) {
        return SDL::MixPlaying($channel);
 }
 
+sub mix_volume_chunk($$$) {
+       my ($self, $chunk, $volume) = @_;
+       return SDL::MixVolumeChunk($chunk, $volume);
+}
+
 sub playing_music () {
        return SDL::MixPlayingMusic();
 }

diff --git a/t/mixerpm.t b/t/mixerpm.t
index f484487..fca1fc3 100644 (file)
--- a/t/mixerpm.t
+++ b/t/mixerpm.t
@@ -2,7 +2,7 @@
 #
 # Copyright (C) 2003 Tels
 # Copyright (C) 2004 David J. Goehrig
-#
+# Copyright (C) 2009 Kartik Thakore
 # basic testing of SDL::Mixer
 
 BEGIN {
@@ -58,6 +58,7 @@ can_ok ('SDL::Mixer', qw/
        music_paused
        playing
        playing_music
+       mix_volume_chunk
        /);
 
 # these are exported by default, so main:: should know them: