Added another complex test.

Raku · Jul 16, 2011 · 22a02fc · 22a02fc
1 parent 9e1a6c4
commit 22a02fc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/S32-num/exp.t b/S32-num/exp.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 71;
+plan 72;
 
 # L<S32::Numeric/Numeric/"=item exp">
 
@@ -42,6 +42,7 @@ is(exp(-Inf), 0, 'exp(-Inf) == 0');
 is(exp(NaN), NaN, 'exp(NaN) == NaN');
 is_approx(exp(log(100)),100, 'e^(log(100))=100');
 
+is_approx((1i*$pi).exp, -1, '(i $pi).exp == -1');
 is_approx(exp(1i*$pi), -1, 'exp(i $pi) == -1');
 is_approx(exp(-1i*$pi), -1, 'exp(-i $pi) == -1');