some tests for *ⁿ

Author: TimToady

S32-num/power.t

@@ -3,7 +3,7 @@ use lib 't/spec/packages';
 use Test;
 use Test::Util;
 
-plan 78;
+plan 97;
 
 # Real **
 is(0 ** 0,    1, "0 ** 0 ==  1");
@@ -103,6 +103,31 @@ is(2³²,  2 ** 32, "2³² == 2 ** 32");
 is(2⁶⁴,  2 ** 64, "2⁶⁴ == 2 ** 64");
 is(10¹⁰⁰,  10 ** 100, "10¹⁰⁰ == 10 ** 100");
 
+# Test corresponding curried forms
+
+is(*⁰(0),    1, "*⁰(0) ==  1");
+is(*¹(0),    0, "*¹(0) ==  0");
+is(*²(1),    1, "*²(1) ==  1");
+is(*⁰(4),    1, "*⁰() ==  1");
+is(*¹(4),    4, "*¹() ==  4");
+is(*²(4),   16, "*²() == 16");
+is(*³²(2),  2 ** 32, "*³²(2) == 2 ** 32");
+is(*⁶⁴(2),  2 ** 64, "*⁶⁴(2) == 2 ** 64");
+is(*¹⁰⁰(10),  10 ** 100, "*¹⁰⁰(10) == 10 ** 100");
+
+# Test some odd numbers too.
+
+is(3³,  *³(3), "3³");
+is(3⁴,  *⁴(3), "3⁴");
+is(3⁵,  *⁵(3), "3⁵");
+is(3⁶,  *⁶(3), "3⁶");
+is(3⁷,  *⁷(3), "3⁷");
+is(3⁸,  *⁸(3), "3⁸");
+is(3⁹,  *⁹(3), "3⁹");
+is(3¹⁰, *¹⁰(3), "3¹⁰");
+is(3¹³, *¹³(3), "3¹³");
+is((-1)¹²³, *¹²³(-1), "(-1)¹²³");
+
 is 0⁴⁵⁵³⁵³⁵³⁴⁵³⁶⁴⁵³⁵³⁴⁵, 0, "0⁴⁵⁵³⁵³⁵³⁴⁵³⁶⁴⁵³⁵³⁴⁵ == 0";
 is 1⁴⁵⁵³⁵³⁵³⁴⁵³⁶⁴⁵³⁵³⁴⁵, 1, "1⁴⁵⁵³⁵³⁵³⁴⁵³⁶⁴⁵³⁵³⁴⁵ == 1";
 is 1e0⁴⁵⁵³⁵³⁵³⁴⁵³⁶⁴⁵³⁵³⁴⁵, 1, "1e0⁴⁵⁵³⁵³⁵³⁴⁵³⁶⁴⁵³⁵³⁴⁵ == 1";