From 5973720f8d0f5c3a04e96b83552755ac92403d17 Mon Sep 17 00:00:00 2001
From: Arnaud Bouchez <ab@synopse.info>
Date: Tue, 26 Apr 2022 14:35:01 +0200
Subject: [PATCH] include UpperCopy255Buf() explicit test

---
 src/mormot.commit.inc   |  2 +-
 test/test.core.base.pas | 12 +++++++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
index adb743dfc..fbcaf8ad6 100644
--- 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
index acaed0e06..49bfd793d 100644
--- 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);