some basic tests that Complex can do approx

Raku · Dec 16, 2015 · 5ba241d · 5ba241d
1 parent cd6ef58
commit 5ba241d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S03-operators/relational.t b/S03-operators/relational.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 156;
+plan 159;
 
 ## N.B.:  Tests for infix:«<=>» (spaceship) and infix:<cmp> belong
 ## in F<t/S03-operators/comparison.t>.
@@ -197,6 +197,10 @@ is(2.4 <=> 7, Order::Less, 'Rat <=> Int');
 
 ok exp(i * pi) =~= -1, "=~= does approximate equality";
 ok exp(i * pi) ≅ -1, "≅ does approximate equality";
+
+is sqrt((-1).Complex) ≅ 0+1i, True, "can use approximate on Complex with negligible real";
+is sqrt((-1).Complex) ≅ 0+2i, False, "can use approximate on Complex with non-negligible real";
+is sqrt((-1).Complex) ≅ 0+(1+1e-17)i, True, "can use approximate on Complex";
 
 {
     my $*TOLERANCE = 0.1;