Ignore:
Timestamp:
Aug 30, 2022, 7:56:17 PM (21 months ago)
Author:
chronos
Message:
  • Modified: General test part moved into Common package.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormTest.pas

    r129 r146  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
    7   ActnList, Menus, UTest;
     7  ActnList, Menus, UTest, UTestCase;
    88
    99type
     
    2626    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2727    procedure FormCreate(Sender: TObject);
    28     procedure FormDestroy(Sender: TObject);
    2928    procedure FormShow(Sender: TObject);
    3029    procedure ListViewTestCasesData(Sender: TObject; Item: TListItem);
     
    5958    Item.Caption := Name;
    6059    Item.Data := TestCases[Item.Index];
    61     Item.SubItems.Add(ResultText[Result]);
     60    Item.SubItems.Add(ResultText[TestResult]);
    6261  end;
    6362end;
     
    9796  Failed := 0;
    9897  for I := 0 to TestCases.Count - 1 do begin
    99     case TestCases[I].Result of
     98    case TestCases[I].TestResult of
    10099      trPassed: Inc(Passed);
    101100      trFailed: Inc(Failed);
     
    148147end;
    149148
    150 procedure TFormTest.FormDestroy(Sender: TObject);
    151 begin
    152 end;
    153 
    154149procedure TFormTest.FormShow(Sender: TObject);
    155150begin
Note: See TracChangeset for help on using the changeset viewer.