Changeset 199 for trunk/Test.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/Test.pas (modified) (3 diffs)

trunk/Test.pas

@@ -19 +19 @@
   end;
 
-  { TTestCaseCheckProperty }
-
-  TTestCaseCheckProperty = class(TTestCase)
-    Input: string;
+  { TTestCasePropertyRead }
+
+  TTestCasePropertyRead = class(TTestCase)
+    Input: string;
+    ContactIndex: Integer;
+    Index: TContactFieldIndex;
+    Value: string;
+    procedure Run; override;
+  end;
+
+  { TTestCasePropertyWrite }
+
+  TTestCasePropertyWrite = class(TTestCase)
+    Input: string;
+    Output: string;
     ContactIndex: Integer;
     Index: TContactFieldIndex;
@@ -140 +151 @@
 end;
 
-{ TTestCaseCheckProperty }
-
-procedure TTestCaseCheckProperty.Run;
+{ TTestCasePropertyRead }
+
+procedure TTestCasePropertyRead.Run;
 var
   Lines: TStringList;
@@ -169 +180 @@
 end;
 
+{ TTestCasePropertyWrite }
+
+procedure TTestCasePropertyWrite.Run;
+var
+  Lines: TStringList;
+begin
+  Lines := TStringList.Create;
+  try
+    with TVCardFile.Create(nil) do
+    try
+      Lines.Text := Input;
+      VCard.LoadFromStrings(Lines);
+      if ContactIndex < VCard.Contacts.Count then begin
+        VCard.Contacts[ContactIndex].Fields[Index] := Value;
+      end else Fail;
+      Lines.Clear;
+      VCard.SaveToStrings(Lines);
+      Log := SExpected + LineEnding +
+        '"' + Output + '"' + LineEnding + LineEnding +
+        SOutput + LineEnding +
+        '"' + Lines.Text + '"';
+      Evaluate(Lines.Text = Output);
+    finally
+      Free;
+    end;
+  finally
+    Lines.Free;
+  end;
+end;
+
 { TTestCaseLoadSave }