## "Fossies" - the Fresh Open Source Software Archive

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

primitive.t  (PDL-2.077):primitive.t  (PDL-2.078)
skipping to change at line 224 skipping to change at line 224
#Test intersect again #Test intersect again
my \$intersect_test=intersect(pdl(1,-5,4,0), pdl(0,3,-5,2)); my \$intersect_test=intersect(pdl(1,-5,4,0), pdl(0,3,-5,2));
ok (all(\$intersect_test==pdl(-5,0)), 'Intersect test values'); ok (all(\$intersect_test==pdl(-5,0)), 'Intersect test values');
############################## ##############################
# Test uniqind # Test uniqind
\$x = pdl([0,1,2,2,0,1]); \$x = pdl([0,1,2,2,0,1]);
\$y = \$x->uniqind; \$y = \$x->uniqind;
eval { \$c = all(\$y==pdl([0,1,3])) }; eval { \$c = all(\$y==pdl([0,1,3])) };
is \$@, ''; is \$@, '';
ok \$c, "uniqind"; ok \$c, "uniqind" or diag "got: \$y";
is \$y->ndims, 1, "uniqind"; is \$y->ndims, 1, "uniqind";
\$y = pdl(1,1,1,1,1)->uniqind; # SF bug 3076570 \$y = pdl(1,1,1,1,1)->uniqind; # SF bug 3076570
ok(! \$y->isempty); ok(! \$y->isempty);
eval { \$c = all(\$y==pdl([0])) }; eval { \$c = all(\$y==pdl([0])) };
is \$@, ''; is \$@, '';
ok \$c, "uniqind"; ok \$c, "uniqind";
is \$y->ndims, 1, "uniqind, SF bug 3076570"; is \$y->ndims, 1, "uniqind, SF bug 3076570";
############################## ##############################
End of changes. 1 change blocks.
1 lines changed or deleted 1 lines changed or added