Changeset 116 for trunk/Forms/UFormTest.pas

Timestamp:

Feb 15, 2022, 5:09:10 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Fully disable automatic max. line width detection.
• Added: More tests.
• Added: Show number of passing and failing tests in test window.

File:

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

trunk/Forms/UFormTest.pas

@@ -18 +18 @@
     ActionList1: TActionList;
     ButtonRun: TButton;
+    LabelResult: TLabel;
     ListViewTestCases: TListView;
     MenuItem1: TMenuItem;
@@ -51 +52 @@
   UCore, UFormTestCase, UContact;
 
+resourcestring
+  SPassed = 'Passed';
+  SFailed = 'Failed';
+
 { TFormTest }
 
@@ -78 +83 @@
 var
   Selected: Boolean;
+  Passed: Integer;
+  Failed: Integer;
+  I: Integer;
 begin
   Selected := Assigned(ListViewTestCases.Selected);
   ARun.Enabled := Selected;
   AShow.Enabled := Selected;
+
+  Passed := 0;
+  Failed := 0;
+  for I := 0 to TestCases.Count - 1 do begin
+    case TestCases[I].Result of
+      trPassed: Inc(Passed);
+      trFailed: Inc(Failed);
+    end;
+  end;
+  LabelResult.Caption := SPassed + ' ' + IntToStr(Passed) + ', ' +
+    SFailed + ' ' + IntToStr(Failed);
 end;
 
@@ -101 +120 @@
       Input := VCardBegin + LineEnding +
         VCardVersion + LineEnding +
-        'NOTE:This is some long test which is really multi-lined each line is on d' + LineEnding +
-        ' ifferent line so it is on multiple lines.' + 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;
@@ -123 +142 @@
       Input := VCardBegin + LineEnding +
         VCardVersion + LineEnding +
-        'FN;ENCODING=QUOTED-PRINTABLE:Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD=' + LineEnding +
-        'Jm=C3=A9no=20P=C5=99=C3=ADjmen=C3=AD' + LineEnding +
-        VCardEnd + LineEnding;
-      Output := Input;
-    end;
-    //AddNew('Encoding base64', TTestCaseLoadSave);
-    //AddNew('Encoding quoted-printable', TTestCaseLoadSave);
+        '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
@@ -153 +199 @@
       Output := '';
     end;
-    with TTestCaseCheckProperty(AddNew('Propery FN', TTestCaseCheckProperty)) do begin
+    with TTestCaseCheckProperty(AddNew('Property FN', TTestCaseCheckProperty)) do begin
       Index := cfFullName;
       Value := 'Name Surname';
@@ -185 +231 @@
         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;
@@ -200 +254 @@
     TestCases[I].Run;
   ReloadList;
+  UpdateInterface;
 end;
 
@@ -219 +274 @@
     TTestCase(ListViewTestCases.Selected.Data).Run;
     ReloadList;
+    UpdateInterface;
   end;
 end;