Changeset 91 for trunk/Forms/UFormTest.pas

Timestamp:

Feb 2, 2022, 4:33:25 PM (3 years ago)

Author:

chronos

Message:

• Added: A windows for showing log output for selected test case.
• Added: Various load-save tests.
• Modified: Improved parsing vCard format.

File:

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

trunk/Forms/UFormTest.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  UTest;
+  ActnList, Menus, UTest;
 
 type
@@ -14 +14 @@
 
   TFormTest = class(TForm)
+    ARun: TAction;
+    AShow: TAction;
+    ActionList1: TActionList;
     ButtonRun: TButton;
     ListViewTestCases: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    PopupMenuTest: TPopupMenu;
+    procedure ARunExecute(Sender: TObject);
+    procedure AShowExecute(Sender: TObject);
     procedure ButtonRunClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -22 +30 @@
     procedure FormShow(Sender: TObject);
     procedure ListViewTestCasesData(Sender: TObject; Item: TListItem);
+    procedure ListViewTestCasesSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
     procedure ReloadList;
+    procedure UpdateInterface;
   public
     TestCases: TTestCases;
@@ -37 +48 @@
 
 uses
-  UCore;
+  UCore, UFormTestCase;
 
 { TFormTest }
@@ -46 +57 @@
   with TestCases[Item.Index] do begin
     Item.Caption := Name;
+    Item.Data := TestCases[Item.Index];
+    Item.SubItems.Add(ResultText[Result]);
   end;
+end;
+
+procedure TFormTest.ListViewTestCasesSelectItem(Sender: TObject;
+  Item: TListItem; Selected: Boolean);
+begin
+  UpdateInterface;
 end;
 
@@ -53 +72 @@
   ListViewTestCases.Items.Count := TestCases.Count;
   ListViewTestCases.Refresh;
+end;
+
+procedure TFormTest.UpdateInterface;
+begin
+  ARun.Enabled := Assigned(ListViewTestCases.Selected);
+  AShow.Enabled := Assigned(ListViewTestCases.Selected);
 end;
 
@@ -66 +91 @@
   for I := 0 to TestCases.Count - 1 do
     TestCases[I].Run;
+  ReloadList;
+end;
+
+procedure TFormTest.AShowExecute(Sender: TObject);
+begin
+  if Assigned(ListViewTestCases.Selected) then
+  with TFormTestCase.Create(nil) do
+  try
+    MemoLog.Text := TTestCase(ListViewTestCases.Selected.Data).Log;
+    ShowModal;
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormTest.ARunExecute(Sender: TObject);
+begin
+  if Assigned(ListViewTestCases.Selected) then begin
+    TTestCase(ListViewTestCases.Selected.Data).Run;
+    ReloadList;
+  end;
 end;
 
@@ -72 +118 @@
   TestCases := TTestCases.Create;
   with TestCases do begin
-    AddNew('Load and save');
-    AddNew('Multi-line');
-    AddNew('Encoding base64');
-    AddNew('Encoding quoted-printable');
-    AddNew('Image format');
+    with TTestCaseLoadSave(AddNew('Load and save', TTestCaseLoadSave)) do begin
+      Input := 'BEGIN:VCARD' + LineEnding +
+        'VERSION:2.1' + LineEnding +
+        'N:Surname;Name' + LineEnding +
+        'FN:Name Surname' + LineEnding +
+        'END:VCARD' + LineEnding;
+      Output := Input;
+    end;
+    with TTestCaseLoadSave(AddNew('Multi-line', TTestCaseLoadSave)) do begin
+      Input := 'BEGIN:VCARD' + LineEnding +
+        'VERSION:2.1' + LineEnding +
+        'NOTE:This is some long test which is really multi-lined\neach line\nis on' + LineEnding +
+        ' different\nline so it is on multiple\nlines.'  + LineEnding +
+        'END:VCARD' + LineEnding;
+      Output := Input;
+    end;
+    AddNew('Encoding base64', TTestCaseLoadSave);
+    AddNew('Encoding quoted-printable', TTestCaseLoadSave);
+    AddNew('Image format', TTestCaseLoadSave);
+    with TTestCaseLoadSave(AddNew('Empty', TTestCaseLoadSave)) do begin
+      Input := '';
+      Output := '';
+    end;
+    with TTestCaseLoadSave(AddNew('Begin only', TTestCaseLoadSave)) do begin
+      Input := 'BEGIN:VCARD';
+      Output := '';
+    end;
+    with TTestCaseLoadSave(AddNew('Missing end', TTestCaseLoadSave)) do begin
+      Input := 'BEGIN:VCARD' + LineEnding +
+        'VERSION:2.1' + LineEnding +
+        'N:Surname;Name' + LineEnding +
+        'FN:Name Surname' + LineEnding;
+      Output := '';
+    end;
   end;
 end;
@@ -89 +164 @@
   Core.PersistentForm1.Load(Self);
   ReloadList;
+  UpdateInterface;
 end;