Permalink
Browse files

that was still p5 code

  • Loading branch information...
1 parent 291713d commit 26927436831aa14441dc7be3e9a5660dd88cb993 @FROGGS FROGGS committed Sep 18, 2012
Showing with 0 additions and 140 deletions.
  1. +0 −140 t/mixer.t
View
140 t/mixer.t
@@ -1,140 +0,0 @@
-#!/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();
-#

0 comments on commit 2692743

Please sign in to comment.