"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/Transform/t/transform.t" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

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

transform.t  (PDL-2.077)	:	transform.t  (PDL-2.078)
skipping to change at line 193		skipping to change at line 193
my $m51 = rfits('../../m51.fits');		my $m51 = rfits('../../m51.fits');
my $tp = t_perspective(r0=>200,iu=>'arcmin',origin=>[-10,3]);		my $tp = t_perspective(r0=>200,iu=>'arcmin',origin=>[-10,3]);
foreach my $method(qw/s l c h g j H G/){ #f doesn't work so well on i mages this big		foreach my $method(qw/s l c h g j H G/){ #f doesn't work so well on i mages this big
lives_ok {$m51->map(!$tp,{nofits=>1,method=>$method})} "no map se gfault m=>$method";		lives_ok {$m51->map(!$tp,{nofits=>1,method=>$method})} "no map se gfault m=>$method";
}		}
}		}
}		}
{		{
		use PDL::Transform::Cartography;
		my $pa = t_raster2fits()->apply(sequence(byte, 3, 10, 10));
		eval { $pa->match([100,100,3]) };
		is $@, '', 't_fits invertible';
		}
		{
##############################		##############################
# Test boundary conditions		# Test boundary conditions
my $pa = sequence(5,5);		my $pa = sequence(5,5);
{		{
my $pb = $pa->match([10,10],{pix=>1,method=>'s'});		my $pb = $pa->match([10,10],{pix=>1,method=>'s'});
ok( all($pb->slice([0,4],[0,4])==$pa) && all($pb->slice([5,9])==0) && all($pb->s lice('x',[5,9])==0), "truncation boundary condition works");		ok( all($pb->slice([0,4],[0,4])==$pa) && all($pb->slice([5,9])==0) && all($pb->s lice('x',[5,9])==0), "truncation boundary condition works");
}		}
{		{
End of changes. 1 change blocks.
0 lines changed or deleted		7 lines changed or added

---