Changeset 168 for trunk/Test.pas

Timestamp:

Jul 1, 2023, 8:17:50 PM (17 months ago)

Author:

chronos

Message:

• Modifed: Export/Import moved to TVCard class.
• Added: Export/Import tests for CSV and MediaWiki formats.

File:

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

trunk/Test.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, VCard, VCardProcessor, TestCase;
+  Classes, SysUtils, VCard, VCardProcessor, TestCase, Table;
 
 type
@@ -40 +40 @@
   end;
 
+  { TTestCaseVCardExportImport }
+
+  TTestCaseVCardExportImport = class(TTestCase)
+    Input: string;
+    Output: string;
+    Format: TTableFormat;
+    HumanReadableHeader: Boolean;
+    procedure Run; override;
+  end;
+
 
 implementation
@@ -49 +59 @@
   SExpected = 'Expected:';
   SOutput = 'Output:';
+  SExport = 'Export:';
+
+{ TTestCaseVCardExportImport }
+
+procedure TTestCaseVCardExportImport.Run;
+var
+  Lines: TStringList;
+  ExportedLines: TStringList;
+begin
+  Lines := TStringList.Create;
+  ExportedLines := TStringList.Create;
+  try
+    with TVCardFile.Create(nil) do
+    try
+      Lines.Text := Input;
+      VCard.LoadFromStrings(Lines);
+
+      VCard.ExportToStrings(ExportedLines, Format, HumanReadableHeader);
+      VCard.Contacts.Clear;
+      VCard.ImportFromStrings(ExportedLines, Format, HumanReadableHeader);
+
+      Lines.Text := '';
+      VCard.SaveToStrings(Lines);
+      Evaluate(Lines.Text = Output);
+      Log := SExpected + LineEnding +
+        '"' + Output + '"' + LineEnding + LineEnding +
+        SExport + LineEnding +
+        '"' + ExportedLines.Text + '"' + LineEnding + LineEnding +
+        SOutput + LineEnding +
+        '"' + Lines.Text + '"';
+    finally
+      Free;
+    end;
+  finally
+    FreeAndNil(Lines);
+    FreeAndNil(ExportedLines);
+  end;
+end;
 
 { TTestCaseVCardProcessor }