"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/slice.t" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

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

slice.t  (PDL-2.082)	:	slice.t  (PDL-2.083)
skipping to change at line 229		skipping to change at line 229
my $x2d = $x->cat($x->rotate(1),$x->rotate(2),$x->rotate(3),$x->rotate(4));		my $x2d = $x->cat($x->rotate(1),$x->rotate(2),$x->rotate(3),$x->rotate(4));
rle($x2d,$y=null,$c=null);		rle($x2d,$y=null,$c=null);
ok(tapprox($x2d,rld($y,$c)),"rle 2d with null input");		ok(tapprox($x2d,rld($y,$c)),"rle 2d with null input");
undef $y; undef $c;		undef $y; undef $c;
($y,$c) = rle($x2d);		($y,$c) = rle($x2d);
ok(tapprox($x2d, rld($y,$c)),"rle 2d with return vals");		ok(tapprox($x2d, rld($y,$c)),"rle 2d with return vals");
$y = $x->mslice(0.5);		$y = $x->mslice(0.5);
ok(tapprox($y, 1), "mslice 1");		ok(tapprox($y, 1), "mslice 1");
		$y = mslice($x, 0.5);
		ok(tapprox($y, 1), "func mslice 1");
$y = $x->mslice([0.5,2.11]);		$y = $x->mslice([0.5,2.11]);
is("$y", "[1 1 1]", "mslice 2");		is("$y", "[1 1 1]", "mslice 2");
$x = zeroes(3,3);		$x = zeroes(3,3);
$y = $x->splitdim(3,3);		$y = $x->splitdim(3,3);
eval { $y->make_physdims };		eval { $y->make_physdims };
like($@, qr/splitdim:nthdim/, "make_physdim: Splitdim");		like($@, qr/splitdim:nthdim/, "make_physdim: Splitdim");
$y = $x->splitdim(-1,1);		$y = $x->splitdim(-1,1);
is_deeply [$y->dims], [3,1,3], 'splitdims negative nthdim works' or diag explain [$y->dims];		is_deeply [$y->dims], [3,1,3], 'splitdims negative nthdim works' or diag explain [$y->dims];
End of changes. 1 change blocks.
0 lines changed or deleted		2 lines changed or added

---