Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

added constants test, not working yet

  • Loading branch information...
commit acf2844fa562007042457a63fcfd458b72cbb9a7 1 parent fc83c12
@FROGGS FROGGS authored
Showing with 140 additions and 0 deletions.
  1. +140 −0 t/mixer.t
View
140 t/mixer.t
@@ -0,0 +1,140 @@
+#!/usr/local/bin/perl6
+
+use lib 'lib';
+use SDL::Mixer :mix_init;
+use Test;
+
+plan *;
+
+is $MIX_INIT_FLAC, 0x00000001;
+is $MIX_INIT_MOD, 0x00000002;
+is $MIX_INIT_MP3, 0x00000004;
+is $MIX_INIT_OGG, 0x00000008;
+is $MIX_CHANNELS, 8;
+is $MIX_DEFAULT_FORMAT, 32784;
+is $MIX_DEFAULT_FREQUENCY, 22050;
+is $MIX_DEFAULT_CHANNELS, 2;
+is $MIX_MAX_VOLUME, 128;
+is $MIX_CHANNEL_POST, -2;
+is $MIX_NO_FADING, 0;
+is $MIX_FADING_OUT, 1;
+is $MIX_FADING_IN, 2;
+is $MUS_NONE, 0;
+is $MUS_CMD, 1;
+is $MUS_WAV, 2;
+is $MUS_MOD, 3;
+is $MUS_MID, 4;
+is $MUS_OGG, 5;
+is $MUS_MP3, 6;
+is $MUS_MP3_MAD, 7;
+is $MUS_MP3_FLAC, 8;
+
+#use strict;
+#use warnings;
+#use SDL;
+#use SDL::Config;
+#
+#my $audiodriver;
+#
+#BEGIN {
+# use Config;
+# if ( !$Config{'useithreads'} ) {
+# print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+# exit(0);
+# }
+#
+# use Test::More;
+# use lib 't/lib';
+# use SDL::TestTool;
+#
+# $audiodriver = $ENV{SDL_AUDIODRIVER};
+# $ENV{SDL_AUDIODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};
+#
+# if ( !SDL::TestTool->init(SDL_INIT_AUDIO) ) {
+# plan( skip_all => 'Failed to init sound' );
+# } elsif ( !SDL::Config->has('SDL_mixer') ) {
+# plan( skip_all => 'SDL_mixer support not compiled' );
+# }
+#} #SDL_init(SDL_INIT_AUDIO) + Version bootstrap conflict prevention in windows
+#
+#
+## To reproduce this bug do
+##
+## use SDL; use SDL::Version; SDL::init(SDL_INIT_AUDIO);
+##
+#
+#use SDL::Mixer;
+#use SDL::Version;
+#
+#my $v = SDL::Mixer::linked_version();
+#
+#isa_ok( $v, 'SDL::Version', '[linked_version]' );
+#printf( "got version: %d.%d.%d\n", $v->major, $v->minor, $v->patch );
+#
+#is( MIX_DEFAULT_CHANNELS, 2, 'MIX_DEFAULT_CHANNELS should be imported' );
+#is( MIX_DEFAULT_CHANNELS(), 2,
+# 'MIX_DEFAULT_CHANNELS() should also be available'
+#);
+#is( MIX_DEFAULT_FORMAT, 32784, 'MIX_DEFAULT_FORMAT should be imported' );
+#is( MIX_DEFAULT_FORMAT(), 32784,
+# 'MIX_DEFAULT_FORMAT() should also be available'
+#);
+#is( MIX_DEFAULT_FREQUENCY, 22050, 'MIX_DEFAULT_FREQUENCY should be imported' );
+#is( MIX_DEFAULT_FREQUENCY(), 22050,
+# 'MIX_DEFAULT_FREQUENCY() should also be available'
+#);
+#is( MIX_FADING_IN, 2, 'MIX_FADING_IN should be imported' );
+#is( MIX_FADING_IN(), 2, 'MIX_FADING_IN() should also be available' );
+#is( MIX_FADING_OUT, 1, 'MIX_FADING_OUT should be imported' );
+#is( MIX_FADING_OUT(), 1, 'MIX_FADING_OUT() should also be available' );
+#is( MIX_MAX_VOLUME, 128, 'MIX_MAX_VOLUME should be imported' );
+#is( MIX_MAX_VOLUME(), 128, 'MIX_MAX_VOLUME() should also be available' );
+#is( MIX_NO_FADING, 0, 'MIX_NO_FADING should be imported' );
+#is( MIX_NO_FADING(), 0, 'MIX_NO_FADING() should also be available' );
+#
+#SKIP:
+#{
+# skip( 'Version 1.2.10 needed', 1 ) if $v < 1.2.10;
+# my @flags = ( MIX_INIT_MP3, MIX_INIT_MOD, MIX_INIT_FLAC, MIX_INIT_OGG );
+# my @names = qw/MP3 MOD FLAC OGG/;
+# foreach ( 0 ... 3 ) {
+# my $f = $flags[$_];
+# my $n = $names[$_];
+# ( SDL::Mixer::init($f) != $f )
+# ? print "Tried to init $n" . SDL::get_error() . "\n"
+# : print "You have $n support\n";
+# pass 'Init ran';
+# }
+#}
+#
+#is( SDL::Mixer::open_audio( 44100, SDL::Audio::AUDIO_S16SYS, 2, 4096 ),
+# 0, '[open_audio] ran'
+#);
+#
+#my $data = SDL::Mixer::query_spec();
+#
+#my ( $status, $freq, $format, $chan ) = @{$data};
+#
+#isnt( $status, 0, '[query_spec] ran' );
+#isnt( $freq, 0, '[query_spec] got frequency ' . $freq );
+#isnt( $format, 0, '[query_spec] got format ' );
+#isnt( $chan, 0, '[query_spec] got channels ' . $chan );
+#
+#SDL::Mixer::close_audio();
+#pass '[close_audio] ran';
+#
+#SKIP:
+#{
+# skip( 'Version 1.2.10 needed', 1 ) if $v < 1.2.10;
+# SDL::Mixer::quit();
+# pass '[quit] ran';
+#}
+#
+#if ($audiodriver) {
+# $ENV{SDL_AUDIODRIVER} = $audiodriver;
+#} else {
+# delete $ENV{SDL_AUDIODRIVER};
+#}
+#
+#done_testing();
+#
Please sign in to comment.
Something went wrong with that request. Please try again.