Changeset 169 for trunk/TestCases.pas


Ignore:
Timestamp:
Jul 2, 2023, 3:05:45 PM (11 months ago)
Author:
chronos
Message:
  • Added: JSON data export and import.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/TestCases.pas

    r168 r169  
    308308      Output := Input;
    309309    end;
     310    with TTestCaseVCardExportImport(AddNew('Export/Import XML', TTestCaseVCardExportImport)) do begin
     311      Format := tfXml;
     312      HumanReadableHeader := False;
     313      Input := BeginEnd(
     314        'N:Surname;Name' + VCardLineEnding +
     315        'FN:Name Surname' + VCardLineEnding) +
     316        BeginEnd(
     317        'N:Surname2;Name2' + VCardLineEnding +
     318        'FN:Name2 Surname2' + VCardLineEnding);
     319      Output := Input;
     320    end;
     321    with TTestCaseVCardExportImport(AddNew('Export/Import JSON', TTestCaseVCardExportImport)) do begin
     322      Format := tfJSON;
     323      HumanReadableHeader := False;
     324      Input := BeginEnd(
     325        'N:Surname;Name' + VCardLineEnding +
     326        'FN:Name Surname' + VCardLineEnding) +
     327        BeginEnd(
     328        'N:Surname2;Name2' + VCardLineEnding +
     329        'FN:Name2 Surname2' + VCardLineEnding);
     330      Output := Input;
     331    end;
    310332
    311333    with TTestCaseLoadSave(AddNew('Merge same cell phone', TTestCaseLoadSave)) do begin
Note: See TracChangeset for help on using the changeset viewer.