Changeset 126 for trunk/Forms/UFormTest.pas

Timestamp:

Apr 6, 2022, 11:36:27 AM (3 years ago)

Author:

chronos

Message:

• Added: Action to remove exact duplicates.
• Modified: Test cases definition moved to separate file.

File:

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

trunk/Forms/UFormTest.pas

@@ -34 +34 @@
       Selected: Boolean);
   private
+    FTestCases: TTestCases;
     procedure ReloadList;
+    procedure SetTestCases(AValue: TTestCases);
     procedure UpdateInterface;
-    procedure InitTestCases;
   public
-    TestCases: TTestCases;
+    property TestCases: TTestCases read FTestCases write SetTestCases;
   end;
 
@@ -50 +51 @@
 
 uses
-  UCore, UFormTestCase, UContact;
-
-resourcestring
-  SPassed = 'Passed';
-  SFailed = 'Failed';
+  UCore, UFormTestCase, UContact, UTestCases;
 
 { TFormTest }
@@ -80 +77 @@
 end;
 
+procedure TFormTest.SetTestCases(AValue: TTestCases);
+begin
+  if FTestCases = AValue then Exit;
+  FTestCases := AValue;
+  ReloadList;
+  UpdateInterface;
+end;
+
 procedure TFormTest.UpdateInterface;
 var
@@ -101 +106 @@
   LabelResult.Caption := SPassed + ' ' + IntToStr(Passed) + ', ' +
     SFailed + ' ' + IntToStr(Failed);
-end;
-
-procedure TFormTest.InitTestCases;
-const
-  VCardVersion = 'VERSION:2.1';
-begin
-  TestCases := TTestCases.Create;
-  with TestCases do begin
-    with TTestCaseLoadSave(AddNew('Load and save', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'N:Surname;Name' + LineEnding +
-        'FN:Name Surname' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Long text', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'NOTE:This is some long test which is really multi-lined each line is on dif' + LineEnding +
-        ' ferent line so it is on multiple lines.' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Multi-line', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'NOTE:First line\nsecond line\nempty line\n\nlast line' + LineEnding +
-        VCardEnd + LineEnding;
-     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=20P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Quoted-printable load-save multi-line', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=ADJm=C3=A9n=' + LineEnding +
-        'o=20P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Base64 load-save (encoding=base64)', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN;ENCODING=BASE64:VGVzdCBzdHJpbmc=' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Base64 load-save (base64)', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN;BASE64:VGVzdCBzdHJpbmc=' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Base64 load-save (encoding=b)', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN;ENCODING=B:VGVzdCBzdHJpbmc=' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    with TTestCaseLoadSave(AddNew('Base64 load-save multi-line', TTestCaseLoadSave)) do begin
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN;ENCODING=BASE64:U29tZSB2ZXJ5IGxvbmcgc3RyaW5nIFNvbWUgdmVyeSBsb25nIHN0cmlu' + LineEnding +
-        ' ZyBTb21lIHZlcnkgbG9uZyBzdHJpbmcgU29tZSB2ZXJ5IGxvbmcgc3RyaW5n' + LineEnding +
-        VCardEnd + LineEnding;
-      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 + LineEnding +
-        VCardVersion + LineEnding +
-        'N:Surname;Name' + LineEnding +
-        'FN:Name Surname' + LineEnding;
-      Output := '';
-    end;
-    with TTestCaseLoadSave(AddNew('Missing start', TTestCaseLoadSave)) do begin
-      Input := VCardVersion + LineEnding +
-        'N:Surname;Name' + LineEnding +
-        'FN:Name Surname' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := '';
-    end;
-    with TTestCaseCheckProperty(AddNew('Property FN', TTestCaseCheckProperty)) do begin
-      Index := cfFullName;
-      Value := 'Name Surname';
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN:' + Value + LineEnding +
-        VCardEnd + LineEnding;
-    end;
-    with TTestCaseCheckProperty(AddNew('Escaped new lines in text', TTestCaseCheckProperty)) do begin
-      Index := cfNote;
-      Value := 'Line' + #13#10 + 'Line';
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'NOTE:Line\nLine' + LineEnding +
-        VCardEnd + LineEnding;
-    end;
-    with TTestCaseCheckProperty(AddNew('Compound value', TTestCaseCheckProperty)) do begin
-      Index := cfFirstName;
-      Value := 'FirstName';
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'N:Surname;FirstName;;;' + LineEnding +
-        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;
-    with TTestCaseCheckProperty(AddNew('Base64 special symbols', TTestCaseCheckProperty)) do begin
-      Index := cfFullName;
-      Value := 'Jméno Příjmení';
-      Input := VCardBegin + LineEnding +
-        VCardVersion + LineEnding +
-        'FN;ENCODING=BASE64:Sm3DqW5vIFDFmcOtam1lbsOt' + LineEnding +
-        VCardEnd + LineEnding;
-    end;
-  end;
 end;
 
@@ -282 +148 @@
   Core.Translator.TranslateComponentRecursive(Self);
   Core.ThemeManager1.UseTheme(Self);
-
-  InitTestCases;
 end;
 
 procedure TFormTest.FormDestroy(Sender: TObject);
 begin
-  FreeAndNil(TestCases);
 end;