Skip to content
Browse files

[t/spec] Check in some skipped Complex.sin tests.

git-svn-id: http://svn.pugscode.org/pugs@28157 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 20fa18e commit c3ff100f89887521a2dfee289584729c6036ea0b colomon committed Sep 1, 2009
Showing with 8 additions and 2 deletions.
  1. +8 −2 S32-trig/trig.t
View
10 S32-trig/trig.t
@@ -215,8 +215,14 @@ for %sines.kv -> $angle, $sine
is_approx(sin($angle/180*$PI + 0i), $sine, "sin Complex - default");
# Complex.sin tests
- #?rakudo skip "Complex.sin not yet implemented"
- is_approx(($angle/180*$PI + 0i).sin, $sine, ".sin - default");
+ #?rakudo 3 skip "sin(Complex) not yet implemented"
+ is_approx(($angle/180*$PI + 0i).sin, $sine, "Complex.sin - default");
+ is_approx(($angle/180*$PI + 1i).sin,
+ $sine * cosh(1.0) + 1i * cos($angle/180*$PI) * sinh(1.0),
+ "Complex.sin - default");
+ is_approx(($angle/180*$PI + 2i).sin,
+ $sine * cosh(2.0) + 1i * cos($angle/180*$PI) * sinh(2.0),
+ "Complex.sin - default");
}
is(sin(Inf), NaN, "sin - default");

0 comments on commit c3ff100

Please sign in to comment.
Something went wrong with that request. Please try again.