view release on metacpan or  search on metacpan

test/test.pl  view on Meta::CPAN

my $lineslicealong=[0.018676476695075068,0.0027402452008965525,0.03986681961739431,0.044469828362384625,0.031068128858192007,0.06935270196562665,0.05864477838054148,0.027389022501664605,0.1719473071884825,0.06242418657786493,0.027896581131503166,0.16...

my $bufferpoint=[[-96.92206354723291,32.83681367237103,-96.91861839660037,32.83970830403321],[-96.92214354789262,32.836847672371015,-96.9186983959406,32.8397423040332],[-96.92214354789262,32.836847672371015,-96.9186983959406,32.8397423040332],[-96.92...

sub flat{
    return map { ref eq 'ARRAY' ? @$_ : $_ } @_;
}

sub assertErr( $actual, $expected, $maxErr, $description, $type='number')
	{
    if ( ! looks_like_number($actual) || ! looks_like_number($expected)) { die "$description produced NaN" };
    my $err = $type eq 'number' ? abs(($actual - $expected) / $expected) : abs( ( $actual-$expected ) / 360);
	my $msg = sprintf ( "%-30.30s a=%10.5f   e=%10.5f   ratio =%10.5f", $description, $actual, $expected, $err);
    if ($err > $maxErr) {
		warn ". err: $msg limit= $maxErr\n"
		}
	else
		{
		warn ". ok : $msg\n";
		}
}