Changeset 168 for trunk/TestCases.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/TestCases.pas

@@ -12 +12 @@
 
 uses
-  VCard;
+  VCard, Table;
 
 const
@@ -275 +275 @@
     end;
 
+    with TTestCaseVCardExportImport(AddNew('Export/Import CSV', TTestCaseVCardExportImport)) do begin
+      Format := tfCsv;
+      HumanReadableHeader := False;
+      Input := BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname2;Name2' + VCardLineEnding +
+        'FN:Name2 Surname2' + VCardLineEnding);
+      Output := Input;
+    end;
+    with TTestCaseVCardExportImport(AddNew('Export/Import CSV human header', TTestCaseVCardExportImport)) do begin
+      Format := tfCsv;
+      HumanReadableHeader := True;
+      Input := BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname2;Name2' + VCardLineEnding +
+        'FN:Name2 Surname2' + VCardLineEnding);
+      Output := Input;
+    end;
+    with TTestCaseVCardExportImport(AddNew('Export/Import MediaWiki', TTestCaseVCardExportImport)) do begin
+      Format := tfMediaWiki;
+      HumanReadableHeader := False;
+      Input := BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname2;Name2' + VCardLineEnding +
+        'FN:Name2 Surname2' + VCardLineEnding);
+      Output := Input;
+    end;
+
     with TTestCaseLoadSave(AddNew('Merge same cell phone', TTestCaseLoadSave)) do begin
       Input := VCardBegin + MacLineEnding +