"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Complex/t/complex.t" between
PDL-2.076.tar.gz and PDL-2.077.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.076)	:	complex.t  (PDL-2.077)
skipping to change at line 15		skipping to change at line 15
use PDL::Math;		use PDL::Math;
use Test::More;		use Test::More;
sub tapprox {		sub tapprox {
my($x,$y) = @_;		my($x,$y) = @_;
my $c = abs($x-$y);		my $c = abs($x-$y);
my $d = PDL::max($c);		my $d = PDL::max($c);
$d < 0.0001;		$d < 0.0001;
}		}
		# capture error in PDL::LinearAlgebra
		{
		my $info = bless pdl(1), 'PDL::Complex';
		eval { $info ? 1 : 0 };
		is $@, '', 'no error in comparison';
		}
#Type of cplx and cmplx		#Type of cplx and cmplx
my $x=PDL->sequence(2);		my $x=PDL->sequence(2);
my $y=$x->cplx;		my $y=$x->cplx;
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?
End of changes. 1 change blocks.
0 lines changed or deleted		7 lines changed or added

---