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