add a failing case

Author: cometkim

tests/tests/src/exponentiation_test.mjs

@@ -36,7 +36,9 @@ eq("File \"exponentiation_test.res\", line 19, characters 5-12", -2147483648, in
 
 eq("File \"exponentiation_test.res\", line 20, characters 5-12", 0, intPow(2, 32));
 
-eq("File \"exponentiation_test.res\", line 22, characters 5-12", 256, four ** four | 0);
+eq("File \"exponentiation_test.res\", line 21, characters 5-12", 1, intPow(2147483647, 2));
+
+eq("File \"exponentiation_test.res\", line 23, characters 5-12", 256, four ** four | 0);
 
 Mt.from_pair_suites("Exponentiation_test", suites.contents);
 

tests/tests/src/exponentiation_test.res

@@ -18,6 +18,7 @@ let () = {
   eq(__LOC__, (2 ** 3) ** 2, intPow(intPow(2, 3), 2))
   eq(__LOC__, -2 ** 31, intPow(-2, 31))
   eq(__LOC__, 2 ** 32, intPow(2, 32))
+  eq(__LOC__, 2147483647 ** 2, intPow(2147483647, 2))
 
   eq(__LOC__, 4 ** 4, four ** four)
 }

tests/tests/src/unified_ops_test.mjs

@@ -65,6 +65,8 @@ let pow2 = 2 ** 2;
 
 let pow3 = 2n ** 2n;
 
+let pow_overflow = 1;
+
 let int = 3;
 
 export {
@@ -88,5 +90,6 @@ export {
   pow1,
   pow2,
   pow3,
+  pow_overflow,
 }
 /* No side effect */

tests/tests/src/unified_ops_test.res

@@ -24,3 +24,5 @@ let odd = n => n % 2 == 1
 let pow1 = 2 ** 2
 let pow2 = 2. ** 2.
 let pow3 = 2n ** 2n
+
+let pow_overflow = 2147483647 ** 2