Add tests for for 1e0 ** bigint.

Particularly test that the type is correctly a Num.
Raku · Jul 12, 2013 · bfefc54 · bfefc54
1 parent 9119a79
commit bfefc54
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/S32-num/power.t b/S32-num/power.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 50;
+plan 52;
 
 # Real **
 is(0 ** 0,    1, "0 ** 0 ==  1");
@@ -14,6 +14,8 @@ is(4 ** 2,   16, "4 **  2 == 16");
 
 is 0 ** 4553535345364535345634543534, 0, "0 ** 4553535345364535345634543534 == 0";
 is 1 ** 4553535345364535345634543534, 1, "1 ** 4553535345364535345634543534 == 1";
+is 1e0 ** 4553535345364535345634543534, 1, "1e0 ** 4553535345364535345634543534 == 1";
+isa_ok 1e0 ** 4553535345364535345634543534, Num, "1e0 ** 4553535345364535345634543534 is a Num";
 #?rakudo.parrot 2 todo "Simple bigint optimizations NYI"
 is (-1) ** 4553535345364535345634543534, 1, "-1 ** 4553535345364535345634543534 == 1";
 is (-1) ** 4553535345364535345634543533, -1, "-1 ** 4553535345364535345634543534 == -1";