[perl #68848] tests available

[kyleha]

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