"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/GIS/Proj/t/gis_proj.t" between
PDL-2.076.tar.gz and PDL-2.077.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

gis_proj.t  (PDL-2.076)	:	gis_proj.t  (PDL-2.077)
skipping to change at line 13		skipping to change at line 13
# Test program for the PDL::GIS::Proj library		# Test program for the PDL::GIS::Proj library
#		#
# Judd Taylor, Orbital Systems, Ltd.		# Judd Taylor, Orbital Systems, Ltd.
# 18 March 2003		# 18 March 2003
#		#
use strict;		use strict;
use warnings;		use warnings;
use PDL::LiteF;		use PDL::LiteF;
use Test::More;		use Test::More;
		BEGIN {
		diag "ENV $_ = ", explain $ENV{$_}
		for qw(LD_LIBRARY_PATH DYLD_LIBRARY_PATH LDFLAGS CFLAGS CXXFLAGS LD_RUN_PATH
		LC_RUN_PATH);
		}
use PDL::GIS::Proj;		use PDL::GIS::Proj;
sub tapprox		sub tapprox
{		{
my $x = shift;		my $x = shift;
my $y = shift;		my $y = shift;
my $d = abs($x - $y);		my $d = abs($x - $y);
my $res = all($d < 1.0e-5);		my $res = all($d < 1.0e-5);
diag "got:$x\nexpected:$y" if !$res;		diag "got:$x\nexpected:$y" if !$res;
$res;		$res;
End of changes. 1 change blocks.
0 lines changed or deleted		5 lines changed or added

---