Delphi GUI 测试和模态表单

Question

在关于 delphiXtreme 的这篇有趣的博客文章中，我了解了 DUnit 的内置 GUI 测试功能（基本上是替代测试用例类< code>TGUITestCase 在单元 GUITesting 中定义，它具有多个用于调用 GUI 中操作的实用函数。我对它非常满意，直到我注意到它不适用于模态形式。例如，如果第一个按钮显示模态配置表单，则以下序列将不起作用：

Click ('OpenConfigButton');
Click ('OkButton');

第二个 Click 仅在模态表单关闭时执行，我必须手动执行此操作。

我不太了解模态表单在后台如何工作，但必须有某种方法来规避这种行为。天真地，我想以某种方式“在线程中”执行 ShowModal ，以便“主线程”保持响应。现在我知道在线程中运行 ShowModal 可能会弄乱一切。还有其他选择吗？有什么方法可以规避 ShowModal 的阻塞性质吗？有人在 Delphi 中进行过 GUI 测试吗？

我了解外部工具（来自 QA 或其他工具）并且我们使用这些工具，但这个问题是关于 IDE 中的 GUI 测试。

谢谢！

Answer 1

您无法通过调用 ShowModal 来测试模态表单；因为正如您非常正确地发现的那样，这会导致您的测试用例代码在模态表单等待用户交互时“暂停”。

原因是 ShowModal 将您切换到“辅助消息循环”，直到表单关闭后才会退出。

然而，模态形式仍然可以被测试。

1. 使用正常 Show 方法显示通常模态表单。
2. 这允许您的测试用例代码继续并模拟用户操作。
3. 这些动作和效果可以正常测试。
4. 您将需要一个针对模态表单的额外测试：
   1. 模态表单通常通过设置模态结果来关闭。
   2. 您使用了 Show 意味着表单不会通过设置模态结果来关闭。
   3. 这很好，因为如果您现在模拟单击“确定”按钮...
   4. 您只需检查 ModalResult 是否正确即可。

警告

您可以使用此技术通过显式显示非模态形式来测试特定的模态形式。但是，任何显示模式形式的测试代码（例如错误对话框）都会暂停您的测试用例。

即使您的示例代码：Click ('OpenConfigButton'); 也会导致调用 ShowModal，并且无法以这种方式进行测试。

要解决此问题，您需要将“显示命令”注入到您的应用程序中。如果您不熟悉依赖注入，我推荐您在 YouTube 上观看 Misko Hevery 的 Clean Code Talks 视频。然后在测试时，您注入“显示命令”的合适版本，该版本不会显示模式形式。

例如，如果单击“确定”按钮时验证失败，您的模态表单可能会显示错误对话框。

所以：

1）定义一个接口（或抽象基类）来显示错误消息。

IErrorMessage = interface
  procedure ShowError(AMsg: String);
end;

2) 您正在测试的表单可以保存对接口的注入引用 (FErrorMessage: IErrorMessage)，并在验证失败时使用它来显示错误。

procedure TForm1.OnOkClick;
begin
  if (Edit1.Text = '') then
    FErrorMessage.ShowError('Please fill in your name');
  else
    ModalResult := mrOk; //which would close the form if shown modally
end;

3) 用于生产代码/注入的 IErrorMessage 的默认版本将像往常一样简单地显示消息。

4) 测试代码将注入 IErrorMessage 的模拟版本，以防止测试被暂停。

5) 您的测试现在可以执行通常会显示错误消息的情况。

procedure TTestClass.TestValidationOfBlankEdit;
begin
  Form1.Show; //non-modally
  //Do not set a value for Edit1.Text;
  Click('OkButton');
  CheckEquals(0, Form1.ModalResult);  //Note the form should NOT close if validation fails
end;

6) 您可以进一步使用模拟 IErrorMessage 来实际验证消息文本。

TMockErrorMessage = class(TInterfaceObject, IErrorMessage)
private
  FLastErrorMsg: String;
protected
  procedure ShowError(AMsg: String); //Implementaion trivial
public
  property LastErrorMsg: String read FLastErrorMsg;
end;

TTestClass = class(TGUITesting)
private
  //NOTE!
  //On the test class you keep a reference to the object type - NOT the interface type
  //This is so you can access the LastErrorMsg property
  FMockErrorMessage: TMockErrorMessage;
  ...
end;

procedure TTestClass.SetUp;
begin
  FMockErrorMessage := TMockErrorMessage.Create;
  //You need to ensure that reference counting doesn't result in the
  //object being destroyed before you're done using it from the 
  //object reference you're holding.
  //There are a few techniques: My preference is to explicitly _AddRef 
  //immediately after construction, and _Release when I would 
  //otherwise have destroyed the object.
end;

7）现在早期的测试变成：

procedure TTestClass.TestValidationOfBlankEdit;
begin
  Form1.Show; //non-modally
  //Do not set a value for Edit1.Text;
  Click('OkButton');
  CheckEquals(0, Form1.ModalResult);  //Note the form should NOT close if validation fails
  CheckEqulsString('Please fill in your name', FMockErrorMessage.LastErrorMsg);
end;

Answer 2

其实Delphi中有一种测试模态窗口的方法。当显示模式窗口时，您的应用程序仍然处理窗口消息，因此您可以在显示模式窗口之前将消息发布到某些帮助程序窗口。然后，您的消息将从模态循环中处理，允许您在模态窗口仍然可见时执行代码。

最近我一直在开发一个简单的库来处理这个问题。您可以从这里下载代码：https://github.com/tomazy/DelphiUtils（请参阅：FutureWindows .pas）。

使用示例：

uses
  Forms,
  FutureWindows;

procedure TFutureWindowsTestCase.TestSample;
begin
  TFutureWindows.Expect(TForm.ClassName)
    .ExecProc(
       procedure (const AWindow: IWindow)
       var
         myForm: TForm;
       begin
         myForm := AWindow.AsControl as TForm;

         CheckEquals('', myForm.Caption);

         myForm.Caption := 'test caption';
         myForm.Close();
       end
    );

  with TForm.Create(Application) do
  try
    Caption := '';

    ShowModal();

    CheckEquals('test caption', Caption);
  finally
    Free;
  end;
end;