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テストの実行」というボタンまたはメニューオプションがあります。
私は夢の世界に住んでいますか?ロリポップレーンのガムドロップハウスに住むファンタジーランド?