"Fossies" - the Fresh Open Source Software Archive  

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

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

ops.t  (PDL-2.074):ops.t  (PDL-2.075)
skipping to change at line 214 skipping to change at line 214
ok(all($data == 0), 'and assign'); ok(all($data == 0), 'and assign');
$data |= 1; $data |= 1;
ok(all($data == 1), 'or assign'); ok(all($data == 1), 'or assign');
ok(all($data eq $data), 'eq'); # check eq operator ok(all($data eq $data), 'eq'); # check eq operator
$data = ones cdouble, 5; $data = ones cdouble, 5;
$data+=i(); $data+=i();
$data &= 0; $data &= 0;
ok(all($data == 0), 'and assign complex'); ok(all($data == 0), 'and assign complex');
} }
if ($Config{ivsize} >= 8) { # else the IVs below are NVs which aren't exact if ($Config{ivsize} >= 8 and $Config{intsize} >= 8) { # else the IVs below are N Vs which aren't exact
# check ipow routine # check ipow routine
my $xdata = longlong(0xeb * ones(8)); my $xdata = longlong(0xeb * ones(8));
my $n = sequence(longlong,8); my $n = sequence(longlong,8);
is $n->type, 'longlong', 'sequence with specified type has that type'; is $n->type, 'longlong', 'sequence with specified type has that type';
my $exact = longlong(1,235,55225,12977875,3049800625,716703146875,16842523951562 5,39579931286171875); my $exact = longlong(1,235,55225,12977875,3049800625,716703146875,16842523951562 5,39579931286171875);
my $got = ipow($xdata,$n); my $got = ipow($xdata,$n);
ok(all($exact - $got == longlong(0)), 'ipow') or diag "got=$got\nexpected=$exact "; ok(all($exact - $got == longlong(0)), 'ipow') or diag "got=$got\nexpected=$exact ";
} }
#### Modulus checks #### #### Modulus checks ####
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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