Changeset 21181

Timestamp:

07/03/08 15:00:58 (3 months ago)

Author:

moritz

Message:

[spec] fixed complex log10() tests

Files:

• t/spec/S29-num/log.t (modified) (2 diffs)

t/spec/S29-num/log.t

@@ -28 +28 @@
 #?rakudo 2 todo 'complex log()'
 is_approx(log(-1 + 0i,), 0 + 1i * pi, "got the log of -1");
-is_approx(log10(-1 + 0i), 0 + 1i * pi, "got the log10 of -1");
+is_approx(log10(-1 + 0i), 0 + 1i * pi / log(10), "got the log10 of -1");
 
 # log(exp(1+i pi)) = 1 + i pi
@@ -34 +34 @@
 #?rakudo 2 todo 'complex log()'
 is_approx(log(-exp(1)) + 0i, 1 + 1i * pi, "got the log of -e");
-is_approx(log10(-10 + 0i), 1 + 1i * pi, "got the log10 of -10");
+is_approx(log10(-10 + 0i), 1 + 1i * pi / log(10), "got the log10 of -10");
 
 #?pugs todo 'feature'