"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

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)