delphi - 如何以编程方式按名称禁用 DUnit 测试？

Question

对于集成测试，我创建了一个 DUnit 测试套件，它为第三方组件（消息代理）的每个版本运行一次。不幸的是，由于某些版本的测试组件中的已知错误，某些测试总是失败。

这意味着测试套件永远不会 100% 完成。但是，对于自动化测试，需要 100% 的成功分数。DUnit 没有提供现成的方法来按名称禁用测试套件中的测试。

Answer 1

我编写了一个过程，它接受一个测试套件和一个测试名称列表，禁用所有具有匹配名称的测试，并执行递归到嵌套测试套件。

procedure DisableTests(const ATest: ITest; const AExclude: TStrings);
var
  I: Integer;
begin
  if AExclude.IndexOf(ATest.Name) <> -1  then
  begin
    ATest.Enabled := False;
  end;
  for I := 0 to ATest.Tests.Count - 1 do
  begin
    DisableTests(ATest.Tests[I] as ITest, AExclude);
  end
end;

示例用法（在 Setup 方法中创建 TStringlist 'Excludes'）：

procedure TSuiteVersion1beta2.SetUp;
begin
  // fill test suite
  inherited;

  // exclude some tests because they will fail anyway
  Excludes.Add('TestA');
  Excludes.Add('TestB');

  DisableTests(Self, Excludes);
end;