Update tests re revised PowNZN routine.

Regenerated UMathsCatSnippets using CodeSnip to include the revised
version of PowNZN.

Added a test for the EOverflow exception that can now be raised by
PowNZN.

Author: delphidabbler

tests/Cat-Maths/TestUMathsCatSnippets.pas

@@ -20,6 +20,7 @@   TestMathsCatSnippets = class(TTestCase)
     procedure TestWeightedArithMean_Double_Except4;
     procedure TestDigitSumBase_Except;
     procedure TestDigitsOf_ArgExcept;
+    procedure TestPowNZN_EOverflow;
     function EqualArrays(const Left, Right: TBytes): Boolean;
     function ReverseArray(const A: TBytes): TBytes;
   published
@@ -930,6 +931,12 @@ procedure TestMathsCatSnippets.TestPowNZN;
   CheckEquals(10000,  PowNZN(10, 4),  'PowNZN(10,2)');
   CheckEquals(-1000,  PowNZN(-10, 3), 'PowNZN(-10,3)');
   CheckEquals(10000,  PowNZN(-10, 4), 'PowNZN(-10,4)');
+  CheckException(TestPowNZN_EOverflow, EOverflow, 'EOverflow');
+end;
+
+procedure TestMathsCatSnippets.TestPowNZN_EOverflow;
+begin
+  PowNZN(2, 63);
 end;
 
 procedure TestMathsCatSnippets.TestPowNZZ;

tests/Cat-Maths/UMathsCatSnippets.pas

@@ -6,7 +6,7 @@
  * The unit is copyright © 2005-2024 by Peter Johnson & Contributors and is
  * licensed under the MIT License (https://opensource.org/licenses/MIT).
  * 
- * Generated on : Tue, 07 Jan 2025 13:13:01 GMT.
+ * Generated on : Wed, 08 Jan 2025 17:47:45 GMT.
  * Generated by : DelphiDabbler CodeSnip Release 4.24.0.
  * 
  * The latest version of CodeSnip is available from the CodeSnip GitHub project
@@ -1614,14 +1614,24 @@ function PowN(const X: Extended; const N: Integer): Extended;
 function PowNZN(const X: Integer; const N: Cardinal): Int64;
 var
   I: Integer;
+  OverflowGuard: Int64;
 begin
-  if (X = 0) and (N > 0) then
-    Exit(0);
-  if X = 1 then
+  if N = 0 then
+    // IEEE: pown(x, 0) is 1, even when X is zero
     Exit(1);
+  if X = 0 then
+    // pown(0, n) = 0, for all positive n
+    Exit(0);
+  OverflowGuard := High(Int64) div Abs(X);
   Result := 1;
   for I := 1 to N do
+  begin
+    if OverflowGuard < Abs(Result) then
+      raise SysUtils.EOverflow.CreateFmt(
+        'Overflow calculating %d to the power %d', [X, N]
+      );
     Result := Result * X;
+  end;
 end;
 
 {