Changeset 96 for trunk/Forms
- Timestamp:
- Feb 3, 2022, 11:52:20 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormTest.pas
r94 r96 143 143 Output := Input; 144 144 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; 145 152 //AddNew('Encoding base64', TTestCaseLoadSave); 146 153 //AddNew('Encoding quoted-printable', TTestCaseLoadSave); … … 192 199 VCardEnd + LineEnding; 193 200 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; 194 209 end; 195 210 end;
Note:
See TracChangeset
for help on using the changeset viewer.