[p5sagit/p5-mst-13.2.git] / lib / Math / underbar.t

#
# Tests that the standard Perl 5 functions that we override
# that operate on the $_ will work correctly [perl #62412]
#

use Test::More;

my @f = qw(abs cos exp log sin sqrt);

plan tests => scalar @f;

use strict;

use Math::Complex;

my %CORE;

for my $f (@f) {
    local $_ = 0.5;
    $CORE{$f} = eval "CORE::$f";
}

for my $f (@f) {
    local $_ = 0.5;
    is(eval "Math::Complex::$f", $CORE{$f}, $f);
}
Commit	Line	Data
e7deb4af	1	#
	2	# Tests that the standard Perl 5 functions that we override
	3	# that operate on the $_ will work correctly [perl #62412]
	4	#
	5
	6	use Test::More;
	7
	8	my @f = qw(abs cos exp log sin sqrt);
	9
	10	plan tests => scalar @f;
	11
	12	use strict;
	13
	14	use Math::Complex;
	15
	16	my %CORE;
	17
	18	for my $f (@f) {
	19	local $_ = 0.5;
	20	$CORE{$f} = eval "CORE::$f";
	21	}
	22
	23	for my $f (@f) {
	24	local $_ = 0.5;
	25	is(eval "Math::Complex::$f", $CORE{$f}, $f);
	26	}
	27