"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/ufunc.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).

ufunc.t  (PDL-2.077):ufunc.t  (PDL-2.078)
skipping to change at line 18 skipping to change at line 18
my $d = abs( $x - $y ); my $d = abs( $x - $y );
my $check = ($d <= 0.0001); my $check = ($d <= 0.0001);
diag "diff = [$d]\n" unless my $res = all $check; diag "diff = [$d]\n" unless my $res = all $check;
return $res; return $res;
} }
my $p = pdl([]); $p->setdims([1,0]); $p->qsortvec; # shouldn't segfault! my $p = pdl([]); $p->setdims([1,0]); $p->qsortvec; # shouldn't segfault!
my $p2d = pdl([[1,2],[3,4],[1,3],[1,2],[3,3]]); my $p2d = pdl([[1,2],[3,4],[1,3],[1,2],[3,3]]);
is $p2d->dice_axis(1,$p2d->qsortveci).'', $p2d->qsortvec.'', "qsortveci"; is $p2d->dice_axis(1,$p2d->qsortveci).'', $p2d->qsortvec.'', "qsortveci";
eval { empty()->medover }; # shouldn't segfault
isnt $@, '', 'exception for percentile on empty ndarray';
# set up test arrays # set up test arrays
# #
my $x = pdl(0,0,6,3,5,0,7,14,94,5,5,8,7,7,1,6,7,13,10,2,101,19,7,7,5); # sf.net bug #2019651 my $x = pdl(0,0,6,3,5,0,7,14,94,5,5,8,7,7,1,6,7,13,10,2,101,19,7,7,5); # sf.net bug #2019651
my $a_sort = $x->qsort; my $a_sort = $x->qsort;
my $y = pdl(55); my $y = pdl(55);
my $b_sort = $y->qsort; my $b_sort = $y->qsort;
my $c = cat($x,$x); my $c = cat($x,$x);
my $c_sort = $c->qsort; my $c_sort = $c->qsort;
my $d = sequence(10)->rotate(1); my $d = sequence(10)->rotate(1);
my $d_sort = $d->qsort; my $d_sort = $d->qsort;
 End of changes. 1 change blocks. 
0 lines changed or deleted 3 lines changed or added

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