4

您可以TAbstractTest.Status在测试期间使用过程在 DUnit GUI 中显示一些调试消息。

但是当我运行这组测试时，我只能看到上次执行的测试的状态消息。我可以以某种方式查看完整的日志，而无需选择要运行的每个测试吗？

4

3 回答 3

3

我使用了 Status() 方法，该方法将在发生故障时输出值：

procedure Test.TestGetStringListQueryValuesException;
var
  ReturnValue: TList<String>;
  item: String;
begin
  ReturnValue := FTest.GetStringListQueryValues;
  try
    for item in ReturnValue do
    begin
      Status('Value Processed: ' + item);
      CheckTrue(Pos('B', item) > 0, 'Wrong Value, Expected Item containing ''B'' but found: ' + item);
    end;
  finally
    ReturnValue.Free;
  end;
end;

结果是这样的：

TestGetIntegerListQueryValuesException: ETestFailure
at  $0050B842
Wrong Value, Expected > 50 and < 60 but found: 61, expected: <True> but was: <False>

Status Messages
Value Processed: 52
Value Processed: 54
Value Processed: 55
Value Processed: 58
Value Processed: 59
Value Processed: 61

确定测试过程中出了什么问题非常有用。我还没有尝试过 SetStatusListener() 但我认为如果我们想在测试成功时显示日志记录应该是正确的方法。

我想模仿与 Nunit 相同的行为，您可以在输出部分记录自定义消息。

有更好的想法吗？

于 2012-05-27T09:09:40.260 回答
2

DUnit 源代码使用 IStatusListener 接口和公共方法

procedure TAbstractTest.SetStatusListener(Listener: IStatusListener);

可以覆盖它以在您的测试类中使用新的实现。我没有尝试过，但它可能是最干净的解决方案。

于 2012-03-06T13:52:11.570 回答
0

先写一个新程序

   procedure Log(text: string);
   begin
      LogStringList.Add(text);
      Status(text);
   end;

全部替换status()为Log(). 并在所有测试结束时创建一个新测试

   procedure TestXXX.ShowLog;
   begin
      Status(LogStringList.Text);
      LogStringList.Clear;
   end;

您必须LogStringList: TStringList在测试单元的初始化块中创建。

于 2013-01-09T11:09:51.787 回答