Hunting SDL 2.516 Interface bug on BSD platform

Hi Chris,

I am trying to hunt down the following failures for SDL 2.516. Most of
them seem to happen in your *bsd farms. May I get access to one of them
to debug the code? If not can you force install and run

gdb --args perl t/sdlx_interface.t
gdb> run

and also run this

gdb --args perl script.pl
gdb> run

Where script.pl is attached to this email. 

Thank you very much
Kartik Thakore 

On Thu, 2010-09-23 at 02:08 +0000, CPAN Tester Report Server wrote:

> Dear Kartik Thakore,
> 
> Please find below the latest reports for your distributions, generated by CPAN Testers, from the last 24 hours. 
> 
> To set your preferences for what you wish to have reported in this Daily Summary, please visit the CPAN Testers Preferences system at https://prefs.cpantesters.org.
> 
> 
> SDL-2.516:
> - amd64-netbsd / 5.10.0:
>   - FAIL http://www.cpantesters.org/cpan/report/c8815bd2-c612-11df-a192-193f4afd17af
> 
> - amd64-netbsd / 5.10.1:
>   - FAIL http://www.cpantesters.org/cpan/report/d9356bf6-c650-11df-a192-193f4afd17af
> 
> - i386-freebsd / 5.12.0:
>   - FAIL http://www.cpantesters.org/cpan/report/4dfcd040-c657-11df-8f8a-f8988fbefd91
> 
> - i386-freebsd / 5.12.1:
>   - FAIL http://www.cpantesters.org/cpan/report/b850d2bc-c688-11df-8f8a-f8988fbefd91
> 
> 
> 
> If you have an issue with a particular report, or wish to gain further information from the tester, please use the 'Find A Tester' tool at http://stats.cpantesters.org/cpanmail.html, using the ID or GUID of the report, as listed above, to locate the correct email address.
> 
> If you wish to unsubscribe from these notifications, please login to the CPAN Testers Preferences system, with your PAUSE credentials, and disable CPAN Testers notifications permanently or temporarily. If you have problems with accessing the site, please contact Barbie <[email protected]> and request to be removed from the automatic mailings. 
> 
> Thanks,
> The CPAN Testers

use strict;
use warnings;
use SDL;
use SDLx::App;
use SDLx::Controller;
use SDLx::Controller::State;
use SDLx::Controller::Interface;

use Data::Dumper;

my $videodriver = $ENV{SDL_VIDEODRIVER};
$ENV{SDL_VIDEODRIVER} = 'dummy';


my $obj = SDLx::Controller::Interface->new( x => 1, y => 2, v_x => 3, v_y => 4, rot => 5, ang_v => 6 );

my $s = sub { warn 'Accel 1'; return ( 0.0, 10, 19 ) };

$obj->set_acceleration($s);

my $av = $obj->acceleration(1);

my $hv = $obj->interpolate(0.5);


$obj->update( 2, 0.5 );

$hv = $obj->interpolate(0.5);

$obj = SDLx::Controller::Interface->new( x => 1, y => 2, v_x => 3, v_y => 4, rot => 5, ang_v => 6 );


$obj->set_acceleration( sub { $_[1]->x(2); warn 'Accel 2';  return ( 0.0, 10, 19 ) } );

$obj->acceleration(1);
my $a   = $obj->current;
my $a_x = $a->x();

my $dummy = SDLx::App->new();

my $controller = SDLx::Controller->new( dt => 0.2 );

my $interface    = SDLx::Controller::Interface->new();
my $event_called = 0;

require SDL::Event;
require SDL::Events;
my $eve = SDL::Event->new();

SDL::Events::push_event($eve);
my $counts = [ 0, 0, 0 ];
$controller->add_event_handler( sub { $counts->[0]++; return 0 if $interface->current->x; return 0 } );

$interface->set_acceleration(
	sub {
		die
			if $counts->[1] > 100; $counts->[1]++;
			return ( 10, 10, 10 );
	}
);

$interface->attach(
	$controller,
	sub {
		$counts->[2]++;
		
	}
);


$controller->run();
$interface->detach();



if ($videodriver) {
	$ENV{SDL_VIDEODRIVER} = $videodriver;
} else {
	delete $ENV{SDL_VIDEODRIVER};
}