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

git-svn-id: http://svn.pugscode.org/pugs@28157 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Sep 1, 2009 · c3ff100 · c3ff100
1 parent 20fa18e
commit c3ff100
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/S32-trig/trig.t b/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");