必要元件:
1.Delphi 6以上
功能:
1.使用DUnit在進行GUI測試時, 截取MessageBox的文字內容。
使用方法如下:
type
TTestHelper1 = class(TTestHelper);
var
TestHelper1: TTestHelper1;
implementation
procedure TTestcase1.SetUp;
begin
TestHelper1 := TTestHelper1.Create();
end;
procedure TTestcase1.Test_Add;
var
messageBoxContent: string;
result: string;
begin
Application.Initialize();
Application.CreateForm(TForm1, Form1);
Form_Calculater.Show();
Form_Calculater.Summand.Text := '1';
Form_Calculater.Addend.Text := '2';
result := '3';
TestHelper1.WaitForMessageBox('Calculater');
Form1.Button1.Click;
messageBoxContent := TestHelper1.GetMessageBoxContent();
Check(messageBoxContent = result, '相加功能異常!!');
end;