"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

---