CPAN::Groonga

ne2", 0
		);
isnt( $effect_id, -1, '[register] registerering echo effect callback' );
SDL::delay($delay);
my $check = SDL::Mixer::Effects::unregister( $playing_channel, $effect_id );
isnt(
		$check, 0

done2", 0
		);
isnt( $effect_id, -1, '[register] registerering echo effect callback' );
SDL::delay($delay);
$check = SDL::Mixer::Effects::unregister( $playing_channel, $effect_id );
isnt(
		$check, 0,

:echo_effect_func",
		"main::effect_done", 0
		);
isnt( $effect_id_all, -1, '[register] registerering echo effect callback' );
SDL::delay($delay);
isnt(
		SDL::Mixer::Effects::unregister_all(MIX_CHANN

 SDL::Rect->new(0,0,400,200));

isnt( $surfs[1]->[1][2], 0, 'Pixel blitted from one surface to another' );

$surfs[1]->blit_by( $surfs[0], undef, [ 1, 0, 0, 0 ] );

isnt( $surfs[1]->[2][2], 0, 'Pixel 

 ], 22, $cir_color , 1 );
		$surfs[0]->draw_circle_filled( [ 100, 10 ], 20, $cir_color ); #fill
		isnt( $surfs[0]->[100][10], 0 );
		pass 'draw_circle works';
		pass 'draw_circle_filled works';
	}

	i

[0]->draw_trigon( $verts, $color, 1 );
		$surfs[0]->draw_trigon_filled( $verts, $color ); #fill
		isnt( $surfs[0]->[100][10], 0 );
		pass 'draw_trigon works';
		pass 'draw_trigon_filled works';
	}

	i

io_test_file);
my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample_chunk, -1 );
isnt(
		$playing_channel, -1,
		"[play_channel] plays $audio_test_file on channel " . $playing_channel

e_in_channel( -1, $sample_chunk, 0, $delay );
ok( $delay, 'delay definedness madness test #4' );

isnt(
		$playing_channel, -1,
		"[fade_in_channel] $delay ms for channel $playing_channel"
	);
is( SDL

annel_timed( -1, $sample_chunk, 0, $delay );
ok( $delay, 'delay definedness madness test #10' );

isnt(
		$playing_channel, -1,
		"[play_channel_timed] play $delay ms for channel $playing_channel"
	);

at, $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_sp

AT );

isnt( SDL::get_error(), '', '[get_error] got error ' . SDL::get_error() );
TODO:
{
	local $TODO = 'These test are not critcal if they fail';

	SDL::quit_sub_system(SDL_INIT_VIDEO);
	isnt(
		SDL

ned back on sub system'
	);
}

SDL::quit();
pass '[quit] SDL quit with out segfaults or errors';

isnt(
	SDL::was_init(0), SDL_INIT_VIDEO,
	'[was_init] recognizes turned off flags'
);

SKIP:
{
	skip '

	'filled_polygon_RGBA'
); # magenta
SKIP:
{
	skip( 'Version 2.0.14 needed', 1 ) if $v < 2.0.14;
	isnt(
		SDL::GFX::Primitives::textured_polygon(
			$display,
			[ 298, 302, 300, 302, 298 ],
			[ 243,

 247, 247 ],
			5, 0x00, 0xFF, 0x00, 0xFF, 0, 0
		),
		0,
		'filled_polygon_RGBA_MT'
	); # green
	isnt(
		SDL::GFX::Primitives::textured_polygon_MT(
			$display,
			[ 316, 320, 318, 320, 316 ],
			[ 2

	is( SDLx::Validate::map_rgba( eval, $format ), $mapped_white, "map_rgba($_, $format) is $mapped_white" );
}

isnt( SDLx::Validate::num_rgba(0), 0xFF, "num_rgba(0) isn't 0x000000FF" );

done_testing;

chr );

		if ( $f && $p++ > 200 ) {
			$f = 0;
		} elsif ( !$f && $p-- < 0 ) {
			$f = 1;
		}
	}
	isnt $p, 0, '[callback] tested $p = ' . $p;

}
die 'AudioMixer, Unable to open audio: ' . SDL::get_err

DLIBARY. How do we get this from XS though?
	# below t/realGL.so needs to use SDL_GL_LOADLIBRARY
	isnt(
		SDL::Video::GL_get_proc_address('t/realGL.so'),
		0, '[GL_get_proc_address] returns not null o

] $num_decoders decoders available"
	);

	my $decoder = SDL::Mixer::Music::get_music_decoder(0);
	isnt( $decoder, undef, "[get_music_decoder] got $decoder" );
}

SDL::delay($delay);

is( SDL::Mixer::M

was_init(), 0, "[was_init] returns false" );
is( SDL::Pango::init(),     0, "[init] succeeded" );
isnt( SDL::Pango::was_init(), 0, "[was_init] returns true" );

my $context = SDL::Pango::Context->new;

n::fire' );

sleep(2);
is( SDL::Time::remove_timer($id), 1, "[remove_timer] removed $id timer" );
isnt( $fired, 0, '[add_timer] ran ' . $fired );

my @left = qw/set_timer new_timer_callback add_timer