Changeset 152 for trunk/Test.pas

Timestamp:

Jun 6, 2023, 5:05:18 PM (18 months ago)

Author:

chronos

Message:

• Added: VCardProcessor class for processing contacts available from VCard package.
• Added: Normalize menu action for normalization of contact property values.

File:

• trunk/Test.pas (modified) (3 diffs)

trunk/Test.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, VCard, TestCase;
+  Classes, SysUtils, VCard, VCardProcessor, TestCase;
 
 type
@@ -29 +29 @@
   end;
 
+  { TTestCaseVCardProcessor }
+
+  TTestCaseVCardProcessor = class(TTestCase)
+    Input: string;
+    Output: string;
+    Processor: TVCardProcessor;
+    procedure Run; override;
+    constructor Create; override;
+    destructor Destroy; override;
+  end;
+
 
 implementation
@@ -38 +49 @@
   SExpected = 'Expected:';
   SOutput = 'Output:';
+
+{ TTestCaseVCardProcessor }
+
+procedure TTestCaseVCardProcessor.Run;
+var
+  Lines: TStringList;
+begin
+  Lines := TStringList.Create;
+  try
+    with TVCardFile.Create(nil) do
+    try
+      Lines.Text := Input;
+      VCard.LoadFromStrings(Lines);
+
+      Processor.Process(VCard);
+
+      Lines.Text := '';
+      VCard.SaveToStrings(Lines);
+      Evaluate(Lines.Text = Output);
+      Log := SExpected + LineEnding +
+        '"' + Output + '"' + LineEnding + LineEnding +
+        SOutput + LineEnding +
+        '"' + Lines.Text + '"';
+    finally
+      Free;
+    end;
+  finally
+    Lines.Free;
+  end;
+end;
+
+constructor TTestCaseVCardProcessor.Create;
+begin
+  inherited;
+  Processor := TVCardProcessor.Create(nil);
+end;
+
+destructor TTestCaseVCardProcessor.Destroy;
+begin
+  FreeAndNil(Processor);
+  inherited;
+end;
 
 { TTestCaseCheckProperty }