Changeset 22546

Timestamp:

10/08/08 23:59:21 (6 weeks ago)

Author:

pmichaud

Message:

t/spec: Regress Rakudo a bit due to Complex PMC errors (RT #59630)

Location:

t/spec/S29-num

Files:

• complex.t (modified) (3 diffs)
• exp.t (modified) (1 diff)
• log.t (modified) (2 diffs)
• sqrt.t (modified) (2 diffs)

t/spec/S29-num/complex.t

@@ -15 +15 @@
 my $pi = 3.141592653589793238;
 
+#?rakudo skip 'Complex PMC RT #59630'
 {
     is_approx(cis(0),        1 + 0i,       "cis(0)     == 1");
@@ -30 +31 @@
     for 1..20 -> $i {
         my $angle = 2 * $pi * $i / 20;
+#?rakudo skip 'Complex PMC RT #59630'
         is_approx(cis($i), 1.unpolar($i), "cis(x) == 1.unpolar(x) No $i");
     }
@@ -58 +60 @@
 
     is_approx(4.unpolar(0),         4,     "4.unpolar(0)    == 4");
+#?rakudo 3 skip 'Complex PMC RT #59630'
     is_approx(4.unpolar($pi/4),     $s + ($s)i ,"4.unpolar(pi/4) == 2+2i");
     is_approx(4.unpolar($pi/2),     4i,    "4.unpolar(pi/2) == 4i");

t/spec/S29-num/exp.t

@@ -20 +20 @@
     for 1 .. 20 {
             my $arg = 2.0 * pi / $_;
+#?rakudo skip 'Complex PMC RT #59630'
             is_approx(exp(1i * $arg), cos($arg) + 1i * sin($arg), 'expi == cos + i sin No. ' ~ $_);
             is_approx(exp(1i * $arg) * exp(-1i * $arg), 1, 'exp(ix) * exp(-ix) == 1 No. ' ~ $_);

t/spec/S29-num/log.t

@@ -25 +25 @@
  
 # log(exp(i pi)) = i pi log(exp(1)) = i pi
+#?rakudo 8 skip 'Complex PMC RT #59630'
 #?pugs 2 todo 'feature'
 is_approx(log(-1 + 0i,), 0 + 1i * pi, "got the log of -1");
-#?rakudo todo 'complex log10()'
+##?rakudo todo 'complex log10()'
 is_approx(log10(-1 + 0i), 0 + 1i * pi / log(10), "got the log10 of -1");
 
@@ -33 +34 @@
 #?pugs 2 todo 'feature'
 is_approx(log(-exp(1) + 0i), 1 + 1i * pi, "got the log of -e");
-#?rakudo 1 todo 'complex log10()'
+##?rakudo 1 todo 'complex log10()'
 is_approx(log10(-10 + 0i), 1 + 1i * pi / log(10), "got the log10 of -10");
 is_approx(log10(10), 1.0, 'log10(10)=1');

t/spec/S29-num/sqrt.t

@@ -17 +17 @@
 
 # The spec specifies a branch cut in the complex plane of -pi <= theta <= pi
+#?rakudo skip 'Complex PMC RT #59630'
 is_approx(sqrt(-1 +0i), 1i, 'got the square root of -1+0i');
 
@@ -25 +26 @@
 }
 
+#?rakudo 2 skip 'Complex PMC RT #59630'
 is_approx(sqrt(1i), (1+1i)/sqrt(2), 'got the square root of 1i');
 is_approx(sqrt(-1i), (1-1i)/sqrt(2), 'got the square root of -1i');