include UpperCopy255Buf() explicit test

synopse · Apr 26, 2022 · 5973720 · 5973720
1 parent 87fb5bd
commit 5973720
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.3272'
+'2.0.3273'
diff --git a/test/test.core.base.pas b/test/test.core.base.pas
@@ -4294,8 +4294,9 @@ procedure TTestCoreBase._UTF8;
       ($61, $41, $62, $42, $e0, $c0, $fd, $dd, $14b, $14a, $371, $370,
        $3F3, $37F, $451, $401, $435, $415, $442, $422, $4e1, $4e0, $2d00, $10a0);
   var
-    i: PtrInt;
+    i, j: PtrInt;
     up, lo, up2: array[0..10] of AnsiChar;
+    src, dst: array[byte] of AnsiChar;
   begin
     CheckEqual('A', UpperCaseReference('a'));
     CheckEqual('ABC', UpperCaseReference('aBc'));
@@ -4315,6 +4316,15 @@ procedure TTestCoreBase._UTF8;
       CheckEqual(Utf8ILCompReference(@lo, @up, StrLen(@lo), StrLen(@up)), 0,
         'CaseFoldingLComp');
     end;
+    FillCharFast(src, SizeOf(src), ord('a'));
+    for i := 0 to 200 do
+    begin
+      FillCharFast(dst, SizeOf(dst), 0);
+      UpperCopy255Buf(@dst, @src, i)^ := #0;
+      Check(StrLen(@dst) = i);
+      for j := 0 to i - 1 do
+        Check(dst[j] = 'A');
+    end;
   end;
 
   procedure Test(CP: cardinal; const W: WinAnsiString);