Merge branch 'feature/79-fix-failing-tests' into develop

delphidabbler · delphidabbler · commit efa799504fe6 · 2022-12-17T01:36:42.000Z
Closes #79
diff --git a/Src/UStrUtils.pas b/Src/UStrUtils.pas
@@ -228,15 +228,15 @@ function StrSplit(const Str: UnicodeString; const Delim: UnicodeString;
 ///  offsets each line using spaces to form a left margin of size given by
 ///  Margin.</summary>
 ///  <remarks>Output lines are separated by CRLF.</remarks>
-function StrWrap(const Str: UnicodeString; const MaxLen, Margin: Integer):
+function StrWrap(const Str: UnicodeString; const MaxLen, Margin: UInt16):
   UnicodeString; overload;
 
 ///  <summary>Word wraps each paragraph of text in Paras so that each line of a
 ///  paragraph has lines of maximum length MaxLineLen and is offset by the
 ///  number of spaces gvien by Margin. Blanks lines are used to separate
 ///  output paragraphs iff SeparateParas is true.</summary>
 ///  <remarks>Output lines are separated by CRLF.</remarks>
-function StrWrap(const Paras: TStrings; const MaxLineLen, Margin: Integer;
+function StrWrap(const Paras: TStrings; const MaxLineLen, Margin: UInt16;
   const SeparateParas: Boolean): UnicodeString; overload;
 
 ///  <summary>Checks in string Str forms a valid sentence and, if not, adds a
@@ -773,7 +773,7 @@ function StrWindowsLineBreaks(const Str: UnicodeString): UnicodeString;
   Result := StrReplace(Result, LF, CRLF);
 end;
 
-function StrWrap(const Str: UnicodeString; const MaxLen, Margin: Integer):
+function StrWrap(const Str: UnicodeString; const MaxLen, Margin: UInt16):
   UnicodeString;
 var
   Word: UnicodeString;  // next word in input Str
@@ -823,7 +823,7 @@ function StrWrap(const Str: UnicodeString; const MaxLen, Margin: Integer):
   end;
 end;
 
-function StrWrap(const Paras: TStrings; const MaxLineLen, Margin: Integer;
+function StrWrap(const Paras: TStrings; const MaxLineLen, Margin: UInt16;
   const SeparateParas: Boolean): UnicodeString; overload;
 var
   Para: string;
diff --git a/Tests/Src/DUnit/TestUStrUtils.pas b/Tests/Src/DUnit/TestUStrUtils.pas
@@ -1069,10 +1069,8 @@ procedure TTestStrUtilsRoutines.TestStrWrap_overload1;
   CheckEquals(ResA, StrWrap(Text, 10, 0), 'Test 5');
   CheckEquals(ResB, StrWrap(Text, 10, 2), 'Test 6');
   CheckEquals(ResC, StrWrap(Text, 15, 0), 'Test 7');
-  CheckEquals(ResC, StrWrap(Text, 15, -2), 'Test 8');
-  CheckEquals(ResD, StrWrap(Text, 1, 0), 'Test 9');
-  CheckEquals(ResD, StrWrap(Text, 0, 0), 'Test 10');
-  CheckEquals(ResD, StrWrap(Text, -1, 0), 'Test 11');
+  CheckEquals(ResD, StrWrap(Text, 1, 0), 'Test 8');
+  CheckEquals(ResD, StrWrap(Text, 0, 0), 'Test 9');
 end;
 
 procedure TTestStrUtilsRoutines.TestStrWrap_overload2;
