This is an automatically generated mail to inform you that tests are now available in t/spec/S32-num/complex.t
commit c0e06f4657f82d1d2f99f47ef7bab76c660aff4e Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64> Date: Wed Oct 28 21:13:02 2009 +0000 [t/spec] tests for RT #68848, complex powers wrapped in a subroutine git-svn-id: http://svn.pugscode.org/p...@28940 c213334d-75ef-0310-aa23-eaa082d1ae64 diff --git a/t/spec/S32-num/complex.t b/t/spec/S32-num/complex.t index e86ee90..168a66b 100644 --- a/t/spec/S32-num/complex.t +++ b/t/spec/S32-num/complex.t @@ -150,6 +150,16 @@ my $pi = 3.141592653589793238; is_approx(4.unpolar($pi), -4, "4.unpolar(pi) == -4"); } + +# used to be RT #68848 +{ + is_approx exp(3.0 * log(1i)), -1.83697e-16-1i, + 'exp(3.0 * log(1i))'; + sub iPower($a, $b) { exp($b * log($a)) }; + is_approx iPower(1i, 3.0), -1.83697e-16-1i, 'same as wrapped as sub'; + +} + done_testing; # vim: ft=perl6