delphi - DUnit:如何运行测试？

Question

如何从 IDE 运行 TestCase？

我创建了一个新项目，具有一个简单的表单:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

现在我将添加一个测试用例来检查按下 Button1 是否执行了应有的操作:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
    TestFramework;

type
  TForm1Tests = class(TTestCase)
  private
        f: TForm1;
  protected
     procedure SetUp; override;
     procedure TearDown; override;
  published
     procedure TestButton1Click;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    //todo
end;

{ TForm1Tests }

procedure TForm1Tests.SetUp;
begin
  inherited;

    f := TForm1.Create(nil);
end;

procedure TForm1Tests.TearDown;
begin
    f.Free;
  inherited;
end;

procedure TForm1Tests.TestButton1Click;
begin
    f.Button1Click(nil);
    Self.CheckEqualsString('Hello, world!', f.Caption);
end;

end.

鉴于我所做的事情(GUI 项目中的测试代码)，我现在如何触发测试运行？如果我按 F9 那么表单就会出现:

理想情况下，IDE 中会有一个按钮或菜单选项，显示运行 DUnit 测试:

我是生活在梦境里吗？一个梦幻之地，住在 Lollipop 巷的橡皮糖房子里？

Answer 1

向主项目添加测试用例并不是正确的方法。您应该创建一个单独的 TestProject(可以将其与主项目放在同一个 ProjectGroup 中)，添加 TestCase 并运行。