Changeset 96 for trunk/Forms


Ignore:
Timestamp:
Feb 3, 2022, 11:52:20 PM (3 years ago)
Author:
chronos
Message:
  • Added: More validation tests.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormTest.pas

    r94 r96  
    143143      Output := Input;
    144144    end;
     145    with TTestCaseLoadSave(AddNew('Quoted-printable load-save', TTestCaseLoadSave)) do begin
     146      Input := VCardBegin + LineEnding +
     147        VCardVersion + LineEnding +
     148        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
     149        VCardEnd + LineEnding;
     150      Output := Input;
     151    end;
    145152    //AddNew('Encoding base64', TTestCaseLoadSave);
    146153    //AddNew('Encoding quoted-printable', TTestCaseLoadSave);
     
    192199        VCardEnd + LineEnding;
    193200    end;
     201    with TTestCaseCheckProperty(AddNew('Quoted-printable special symbols', TTestCaseCheckProperty)) do begin
     202      Index := cfFullName;
     203      Value := 'Jméno Příjmení';
     204      Input := VCardBegin + LineEnding +
     205        VCardVersion + LineEnding +
     206        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
     207        VCardEnd + LineEnding;
     208    end;
    194209  end;
    195210end;
Note: See TracChangeset for help on using the changeset viewer.