"Fossies" - the Fresh Open Source Software Archive  

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

nat_complex.t  (PDL-2.082)	:	nat_complex.t  (PDL-2.083)
skipping to change at line 73		skipping to change at line 73
is $got->isbad.'', '[0 1]', "$_ isbad";		is $got->isbad.'', '[0 1]', "$_ isbad";
# this captures a failure in IO/Flexraw/t/iotypes.t		# this captures a failure in IO/Flexraw/t/iotypes.t
eval { ok $bv == $obv, 'can equality-check badvalue and orig_badvalue' };		eval { ok $bv == $obv, 'can equality-check badvalue and orig_badvalue' };
is $@, '', 'no error from ==' or diag explain [$bv, $obv];		is $@, '', 'no error from ==' or diag explain [$bv, $obv];
}		}
{		{
# dataflow from complex to real		# dataflow from complex to real
my $ar = $x->re;		my $ar = $x->re;
$ar++;		$ar++;
ok(tapprox($x->re, -$ref->slice("0,")->squeeze + 1), 'complex to real dataflow') or diag "got=".$x->re;		ok(tapprox($x->re, -$ref->slice("0,")->squeeze + 1), 'complex to real dataflow') or diag "got=".$x->re, "expected=".(-$ref->slice("0,")->squeeze + 1);
my $ai = $x->im;		my $ai = $x->im;
$x+=i;		$x+=i;
my $expected = pdl(-2, -2);		my $expected = pdl(-2, -2);
ok(tapprox($x->im, $expected), 'dataflow after conversion')		ok(tapprox($x->im, $expected), 'dataflow after conversion')
or diag "got=".$x->im, "\nexpected=$expected";		or diag "got=".$x->im, "\nexpected=$expected";
$ai++;		$ai++;
$expected++;		$expected++;
ok(tapprox($x->im, $expected), 'dataflow after change ->im')		ok(tapprox($x->im, $expected), 'dataflow after change ->im')
or diag "got=".$x->im, "\nexpected=$expected";		or diag "got=".$x->im, "\nexpected=$expected";
}		}
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---