Changeset 96 for trunk/Forms/UFormTest.pas

Timestamp:

Feb 3, 2022, 11:52:20 PM (2 years ago)

Author:

chronos

Message:

• Added: More validation tests.

File:

• trunk/Forms/UFormTest.pas (modified) (2 diffs)

trunk/Forms/UFormTest.pas

@@ -143 +143 @@
       Output := Input;
     end;
+    with TTestCaseLoadSave(AddNew('Quoted-printable load-save', TTestCaseLoadSave)) do begin
+      Input := VCardBegin + LineEnding +
+        VCardVersion + LineEnding +
+        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
+        VCardEnd + LineEnding;
+      Output := Input;
+    end;
     //AddNew('Encoding base64', TTestCaseLoadSave);
     //AddNew('Encoding quoted-printable', TTestCaseLoadSave);
@@ -192 +199 @@
         VCardEnd + LineEnding;
     end;
+    with TTestCaseCheckProperty(AddNew('Quoted-printable special symbols', TTestCaseCheckProperty)) do begin
+      Index := cfFullName;
+      Value := 'Jméno Příjmení';
+      Input := VCardBegin + LineEnding +
+        VCardVersion + LineEnding +
+        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
+        VCardEnd + LineEnding;
+    end;
   end;
 end;