"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/core.t" between
PDL-2.075.tar.gz and PDL-2.076.tar.gz

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

core.t  (PDL-2.075):core.t  (PDL-2.076)
skipping to change at line 276 skipping to change at line 276
my $null = null; my $null = null;
is $null->info, 'PDL->null', "null ndarray's info is 'PDL->null'"; is $null->info, 'PDL->null', "null ndarray's info is 'PDL->null'";
my $mt_info = $empty->info; my $mt_info = $empty->info;
$mt_info =~m/\[([\d,]+)\]/; $mt_info =~m/\[([\d,]+)\]/;
my $mt_info_dims = pdl("$1"); my $mt_info_dims = pdl("$1");
ok(any($mt_info_dims==0), "empty ndarray's info contains a 0 dimension"); ok(any($mt_info_dims==0), "empty ndarray's info contains a 0 dimension");
ok($null->isnull, "a null ndarray is null"); ok($null->isnull, "a null ndarray is null");
ok($null->isempty, "a null ndarray is empty") or diag $null->info; ok($null->isempty, "a null ndarray is empty") or diag $null->info;
ok(!$empty->isnull, "an empty ndarray is not null"); ok(!$empty->isnull, "an empty ndarray is not null");
ok($empty->isempty, "an empty ndarray is empty"); ok($empty->isempty, "an empty ndarray is empty");
eval { $null->long };
like $@, qr/null/, 'null->long gives right error';
$x = short pdl(3,4,5,6); $x = short pdl(3,4,5,6);
eval { $x->reshape(2,2);}; eval { $x->reshape(2,2);};
is($@, '', "reshape succeeded in the normal case"); is($@, '', "reshape succeeded in the normal case");
ok( ( $x->ndims==2 and $x->dim(0)==2 and $x->dim(1)==2 ), "reshape did the right thing"); ok( ( $x->ndims==2 and $x->dim(0)==2 and $x->dim(1)==2 ), "reshape did the right thing");
ok(all($x == short pdl([[3,4],[5,6]])), "reshape moved the elements to the right place"); ok(all($x == short pdl([[3,4],[5,6]])), "reshape moved the elements to the right place");
$y = $x->slice(":,:"); $y = $x->slice(":,:");
eval { $y->reshape(4); }; eval { $y->reshape(4); };
ok( $@ !~ m/Can\'t/, "reshape doesn't fail on a PDL with a parent" ); ok( $@ !~ m/Can\'t/, "reshape doesn't fail on a PDL with a parent" );
 End of changes. 1 change blocks. 
0 lines changed or deleted 2 lines changed or added

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