source: tags/1.4.0/UTestCases.pas

unit UTestCases;

interface

uses
  Classes, SysUtils, UTest;

function InitTestCases: TTestCases;


implementation

uses
  UVCard;

const
  VCardVersion = 'VERSION:2.1';
  UnixLineEnding = #10;
  MacLineEnding = #13;

function BeginEnd(Text: string; WithVersion: Boolean = True): string;
begin
  Result := VCardBegin + VCardLineEnding;
  if WithVersion then Result := Result + VCardVersion + VCardLineEnding;
  Result := Result + Text + VCardEnd + VCardLineEnding;
end;

function InitTestCases: TTestCases;
begin
  Result := TTestCases.Create;
  with Result do begin
    with TTestCaseLoadSave(AddNew('Load and save', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'N:Surname;Name' + VCardLineEnding +
        'FN:Name Surname' + VCardLineEnding);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Long text', TTestCaseLoadSave)) do begin
      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);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Multi-line', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'NOTE:First line\nsecond line\nempty line\n\nlast line' + VCardLineEnding);
     Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Quoted-printable load-save', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD' + VCardLineEnding);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Quoted-printable load-save multi-line', TTestCaseLoadSave)) do begin
      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);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Base64 load-save (encoding=base64)', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'FN;ENCODING=BASE64:VGVzdCBzdHJpbmc=' + VCardLineEnding);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Base64 load-save (base64)', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'FN;BASE64:VGVzdCBzdHJpbmc=' + VCardLineEnding);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Base64 load-save (encoding=b)', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'FN;ENCODING=B:VGVzdCBzdHJpbmc=' + VCardLineEnding);
      Output := Input;
    end;
    with TTestCaseLoadSave(AddNew('Base64 load-save multi-line', TTestCaseLoadSave)) do begin
      Input := BeginEnd(
        'FN;ENCODING=BASE64:U29tZSB2ZXJ5IGxvbmcgc3RyaW5nIFNvbWUgdmVyeSBsb25nIHN0cmlu' + VCardLineEnding +
        ' ZyBTb21lIHZlcnkgbG9uZyBzdHJpbmcgU29tZSB2ZXJ5IGxvbmcgc3RyaW5n' + VCardLineEnding);
      Output := Input;
    end;
    //AddNew('Image format', TTestCaseLoadSave);
    with TTestCaseLoadSave(AddNew('Empty', TTestCaseLoadSave)) do begin
      Input := '';
      Output := '';
    end;
    with TTestCaseLoadSave(AddNew('Begin only', TTestCaseLoadSave)) do begin
      Input := VCardBegin;
      Output := '';
    end;
    with TTestCaseLoadSave(AddNew('Missing end', TTestCaseLoadSave)) do begin
      Input := VCardBegin + VCardLineEnding +
        VCardVersion + VCardLineEnding +
        'N:Surname;Name' + VCardLineEnding +
        'FN:Name Surname' + VCardLineEnding;
      Output := '';
    end;
    with TTestCaseLoadSave(AddNew('Missing start', TTestCaseLoadSave)) do begin
      Input := VCardVersion + VCardLineEnding +
        'N:Surname;Name' + VCardLineEnding +
        'FN:Name Surname' + VCardLineEnding +
        VCardEnd + VCardLineEnding;
      Output := '';
    end;
    with TTestCaseCheckProperty(AddNew('Property FN', TTestCaseCheckProperty)) do begin
      Index := cfFullName;
      Value := 'Name Surname';
      Input := BeginEnd('FN:' + Value + VCardLineEnding);
    end;
    with TTestCaseCheckProperty(AddNew('Escaped new lines in text', TTestCaseCheckProperty)) do begin
      Index := cfNote;
      Value := 'Line' + #13#10 + 'Line';
      Input := BeginEnd('NOTE:Line\nLine' + VCardLineEnding);
    end;
    with TTestCaseCheckProperty(AddNew('Compound value', TTestCaseCheckProperty)) do begin
      Index := cfFirstName;
      Value := 'FirstName';
      Input := BeginEnd('N:Surname;FirstName;;;' + VCardLineEnding);
    end;
    with TTestCaseCheckProperty(AddNew('Quoted-printable special symbols', TTestCaseCheckProperty)) do begin
      Index := cfFullName;
      Value := 'Jméno Příjmení';
      Input := BeginEnd(
        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD' + VCardLineEnding);
    end;
    with TTestCaseCheckProperty(AddNew('Base64 special symbols', TTestCaseCheckProperty)) do begin
      Index := cfFullName;
      Value := 'Jméno Příjmení';
      Input := BeginEnd('FN;ENCODING=BASE64:Sm3DqW5vIFDFmcOtam1lbsOt' + VCardLineEnding);
    end;
    with TTestCaseLoadSave(AddNew('Remove exact duplicates', TTestCaseLoadSave)) do begin
      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);
      Action := akRemoveExactDuplicates;
      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 TTestCaseLoadSave(AddNew('Normalize Unix line endings', TTestCaseLoadSave)) do begin
      Input := VCardBegin + UnixLineEnding +
        VCardVersion + UnixLineEnding +
        'N:Surname;Name' + UnixLineEnding +
        'FN:Name Surname' + UnixLineEnding +
        VCardEnd + UnixLineEnding;
      Output := VCardBegin + VCardLineEnding +
        VCardVersion + VCardLineEnding +
        'N:Surname;Name' + VCardLineEnding +
        'FN:Name Surname' + VCardLineEnding +
        VCardEnd + VCardLineEnding;
    end;
    with TTestCaseLoadSave(AddNew('Normalize Mac line endings', TTestCaseLoadSave)) do begin
      Input := VCardBegin + MacLineEnding +
        VCardVersion + MacLineEnding +
        'N:Surname;Name' + MacLineEnding +
        'FN:Name Surname' + MacLineEnding +
        VCardEnd + MacLineEnding;
      Output := VCardBegin + VCardLineEnding +
        VCardVersion + VCardLineEnding +
        'N:Surname;Name' + VCardLineEnding +
        'FN:Name Surname' + VCardLineEnding +
        VCardEnd + VCardLineEnding;
    end;
  end;
end;

end.