"Fossies" - the Fresh Open Source Software Archive  

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

complex.t  (PDL-2.082)	:	complex.t  (PDL-2.083)
skipping to change at line 35		skipping to change at line 35
is(ref $y, 'PDL::Complex', 'type of cplx');		is(ref $y, 'PDL::Complex', 'type of cplx');
is(ref $x, 'PDL', "cplx doesn't modify original pdl");		is(ref $x, 'PDL', "cplx doesn't modify original pdl");
my $z=$y->real;		my $z=$y->real;
is(ref $z, 'PDL', 'real returns type to pdl');		is(ref $z, 'PDL', 'real returns type to pdl');
is(ref $y, 'PDL::Complex', "real doesn't change type of parent");		is(ref $y, 'PDL::Complex', "real doesn't change type of parent");
#Should there be a real subroutine, such as complex, that does change		#Should there be a real subroutine, such as complex, that does change
#the parent?		#the parent?
$y=$x->complex;		$y=$x->complex;
is(ref $y, 'PDL::Complex', 'type of complex');		is(ref $y, 'PDL::Complex', 'type of complex');
is(ref $x, 'PDL::Complex', 'complex does modify original pdl');		is(ref $x, 'PDL::Complex', 'complex does modify original pdl');
		ok !$x->badflag, 'PDL::Complex badflag works';
eval { my $string = PDL::Complex->null.'' };		eval { my $string = PDL::Complex->null.'' };
is $@, '', 'can stringify complex null';		is $@, '', 'can stringify complex null';
#Check r2C		#Check r2C
is(ref r2C(1), 'PDL::Complex', 'type of r2C');		is(ref r2C(1), 'PDL::Complex', 'type of r2C');
is(r2C(1)->re, 1, 'real part of r2C');		is(r2C(1)->re, 1, 'real part of r2C');
is(r2C(1)->im, 0, 'imaginary part of r2C');		is(r2C(1)->im, 0, 'imaginary part of r2C');
#Check i2C		#Check i2C
End of changes. 1 change blocks.
0 lines changed or deleted		1 lines changed or added

---