Changeset 199 for trunk/TestCases.pas

Timestamp:

Jan 28, 2026, 10:24:15 AM (5 hours ago)

Author:

chronos

Message:

• Fixed: Handling escaped semicolon in indexed property values.

File:

• trunk/TestCases.pas (modified) (2 diffs)

trunk/TestCases.pas

@@ -105 +105 @@
       Output := '';
     end;
-    with TTestCaseCheckProperty(AddNew('Property FN', TTestCaseCheckProperty)) do begin
+    with TTestCasePropertyRead(AddNew('Property FN', TTestCasePropertyRead)) do begin
       Index := cfFullName;
       Value := 'Name Surname';
       Input := BeginEnd('FN:' + Value + VCardLineEnding);
     end;
-    with TTestCaseCheckProperty(AddNew('Escaped new lines in text', TTestCaseCheckProperty)) do begin
+    with TTestCasePropertyRead(AddNew('Escaped new lines in text', TTestCasePropertyRead)) do begin
       Index := cfNote;
       Value := 'Line' + #13#10 + 'Line';
       Input := BeginEnd('NOTE:Line\nLine' + VCardLineEnding);
     end;
-    with TTestCaseCheckProperty(AddNew('Compound value', TTestCaseCheckProperty)) do begin
+    with TTestCasePropertyRead(AddNew('Compound value', TTestCasePropertyRead)) do begin
       Index := cfFirstName;
       Value := 'FirstName';
       Input := BeginEnd('N:Surname;FirstName;;;' + VCardLineEnding);
     end;
-    with TTestCaseCheckProperty(AddNew('Quoted-printable special symbols', TTestCaseCheckProperty)) do begin
+    with TTestCasePropertyRead(AddNew('Escaped semicolon in name get 0', TTestCasePropertyRead)) do begin
+      Index := cfLastName;
+      Value := 'Surname;Surname';
+      Input := BeginEnd('N:Surname\;Surname;Name\;Name' + VCardLineEnding);
+    end;
+    with TTestCasePropertyRead(AddNew('Escaped semicolon in name get 1', TTestCasePropertyRead)) do begin
+      Index := cfFirstName;
+      Value := 'Name;Name';
+      Input := BeginEnd('N:Surname\;Surname;Name\;Name' + VCardLineEnding);
+    end;
+    with TTestCasePropertyRead(AddNew('Escaped semicolon in name get 2', TTestCasePropertyRead)) do begin
+      Index := cfMiddleName;
+      Value := '';
+      Input := BeginEnd('N:Surname\;Surname;Name\;Name' + VCardLineEnding);
+    end;
+    with TTestCasePropertyWrite(AddNew('Escaped semicolon in name set 0', TTestCasePropertyWrite)) do begin
+      Input := BeginEnd('N:Surname\;Surname;Name\;Name' + VCardLineEnding);
+      Index := cfLastName;
+      Value := 'Surname2;Surname2';
+      Output := BeginEnd('N:Surname2\;Surname2;Name\;Name' + VCardLineEnding);
+    end;
+    with TTestCasePropertyWrite(AddNew('Escaped semicolon in name set 1', TTestCasePropertyWrite)) do begin
+      Input := BeginEnd('N:Surname\;Surname;Name\;Name' + VCardLineEnding);
+      Index := cfFirstName;
+      Value := 'Name2;Name2';
+      Output := BeginEnd('N:Surname\;Surname;Name2\;Name2' + VCardLineEnding);
+    end;
+    with TTestCasePropertyWrite(AddNew('Escaped semicolon in name set 2', TTestCasePropertyWrite)) do begin
+      Input := BeginEnd('N:Surname\;Surname;Name\;Name' + VCardLineEnding);
+      Index := cfMiddleName;
+      Value := 'Middle2;Middle2';
+      Output := BeginEnd('N:Surname\;Surname;Name\;Name;Middle2\;Middle2' + VCardLineEnding);
+    end;
+    with TTestCasePropertyRead(AddNew('Quoted-printable special symbols', TTestCasePropertyRead)) do begin
       Index := cfFullName;
       Value := 'Jméno Příjmení';
@@ -126 +159 @@
         'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD' + VCardLineEnding);
     end;
-    with TTestCaseCheckProperty(AddNew('Base64 special symbols', TTestCaseCheckProperty)) do begin
+    with TTestCasePropertyRead(AddNew('Base64 special symbols', TTestCasePropertyRead)) do begin
       Index := cfFullName;
       Value := 'Jméno Příjmení';