Changeset 152 for trunk/TestCases.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/TestCases.pas (modified) (4 diffs)

trunk/TestCases.pas

@@ -39 +39 @@
       Input := BeginEnd(
         'NOTE:This is some long test which is really multi-lined each line is on dif' + VCardLineEnding +
-        ' ferent line so it is on multiple lines.' + VCardLineEnding);
+        ' ferent line so it is on multiple lines.' + VCardLineEnding +
+        VCardLineEnding);
       Output := Input;
     end;
@@ -55 +56 @@
       Input := BeginEnd(
         'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=ADJm=C3=A9n=' + VCardLineEnding +
-        'o=20P=C5=99=C3=ADjmen=C3=AD' + VCardLineEnding);
+        'o=20P=C5=99=C3=ADjmen=C3=AD' + VCardLineEnding +
+        VCardLineEnding);
       Output := Input;
     end;
@@ -76 +78 @@
       Input := BeginEnd(
         'FN;ENCODING=BASE64:U29tZSB2ZXJ5IGxvbmcgc3RyaW5nIFNvbWUgdmVyeSBsb25nIHN0cmlu' + VCardLineEnding +
-        ' ZyBTb21lIHZlcnkgbG9uZyBzdHJpbmcgU29tZSB2ZXJ5IGxvbmcgc3RyaW5n' + VCardLineEnding);
+        ' ZyBTb21lIHZlcnkgbG9uZyBzdHJpbmcgU29tZSB2ZXJ5IGxvbmcgc3RyaW5n' + VCardLineEnding +
+        VCardLineEnding);
       Output := Input;
     end;
@@ -182 +185 @@
     end;
 
+    with TTestCaseVCardProcessor(AddNew('VCardProcessor - Remove exact duplicates', TTestCaseVCardProcessor)) do begin
+      Processor.RemoveExactDuplicates := True;
+      Input := BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname2;Name2' + VCardLineEnding +
+        'FN:Name2 Surname2' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding +
+        'NOTE:Note' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding);
+      Output := BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname2;Name2' + VCardLineEnding +
+        'FN:Name2 Surname2' + VCardLineEnding) +
+        BeginEnd(
+        'N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding +
+        'NOTE:Note' + VCardLineEnding);
+    end;
+    with TTestCaseVCardProcessor(AddNew('VCardProcessor - Remove phone spaces', TTestCaseVCardProcessor)) do begin
+      Processor.RemovePhoneSpaces := True;
+      Input := BeginEnd('TEL: 123 456 789 ' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:919 191 919' + VCardLineEnding);
+      Output := BeginEnd('TEL:123456789' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:919191919' + VCardLineEnding);
+    end;
+    with TTestCaseVCardProcessor(AddNew('VCardProcessor - Remove photos', TTestCaseVCardProcessor)) do begin
+      Processor.RemovePhotos := True;
+      Input := BeginEnd('N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding +
+        'PHOTO:dadsa' + VCardLineEnding) +
+        BeginEnd('N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding +
+        'PHOTO:dadsa' + VCardLineEnding +
+        'PHOTO:adsadadsa' + VCardLineEnding);
+      Output := BeginEnd('N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding) +
+        BeginEnd('N:Surname;Name' + VCardLineEnding +
+        'FN:Name Surname' + VCardLineEnding);
+    end;
+    with TTestCaseVCardProcessor(AddNew('VCardProcessor - Order', TTestCaseVCardProcessor)) do begin
+      Processor.Order := True;
+      Input := BeginEnd('N:Surname2;Name2' + VCardLineEnding +
+        'FN:Name2 Surname2' + VCardLineEnding) +
+        BeginEnd('N:Surname1;Name1' + VCardLineEnding +
+        'FN:Name1 Surname1' + VCardLineEnding) +
+        BeginEnd('N:Surname3;Name3' + VCardLineEnding +
+        'FN:Name3 Surname3' + VCardLineEnding);
+      Output := BeginEnd('FN:Name1 Surname1' + VCardLineEnding +
+        'N:Surname1;Name1' + VCardLineEnding) +
+        BeginEnd('FN:Name2 Surname2' + VCardLineEnding +
+        'N:Surname2;Name2'+ VCardLineEnding) +
+        BeginEnd('FN:Name3 Surname3' + VCardLineEnding +
+        'N:Surname3;Name3' + VCardLineEnding);
+    end;
+    with TTestCaseVCardProcessor(AddNew('VCardProcessor - Add phone country code', TTestCaseVCardProcessor)) do begin
+      Processor.AddDefaultPhoneCountryPrefix := True;
+      Processor.DefaultPhoneCountryCode := '+470';
+      Processor.NonPrefixedPhoneLength := 9;
+      Input := BeginEnd('TEL: 123 456 789 ' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:919 191 919' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:+421 919 191 919' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:*#1234' + VCardLineEnding);
+      Output := BeginEnd('TEL:+470 123 456 789 ' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:+470919 191 919' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:+421 919 191 919' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:*#1234' + VCardLineEnding);
+    end;
+    with TTestCaseVCardProcessor(AddNew('VCardProcessor - Convert international call prefix to country code', TTestCaseVCardProcessor)) do begin
+      Processor.ConvertInternationalCallPrefixToCountryCode := True;
+      Processor.DefaultInternationalCallPrefix := '00420';
+      Processor.DefaultPhoneCountryCode := '+470';
+      Input := BeginEnd('TEL:00420123456789' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:00420 919 191 919 ' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:00421919191919' + VCardLineEnding);
+      Output := BeginEnd('TEL:+470123456789' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:+470 919 191 919 ' + VCardLineEnding) +
+        BeginEnd('TEL;CELL:00421919191919' + VCardLineEnding);
+    end;
+
     with TTestCaseLoadSave(AddNew('Merge same cell phone', TTestCaseLoadSave)) do begin
       Input := VCardBegin + MacLineEnding +