动态创建测试列表

Question

我在Delphi中使用DUnitX，但我被卡住了。如何动态创建测试列表？

例如。我有sql列表，需要像一样测试它们

for i:= 0 to List.Count do
  begin
    AddTest(List[i].SQL, List[i].Info, List[i].MaxTime);
  end;

其中一种方法是简单的

[Test]
procedure TestSingleSQL;

实现

procedure TestSingleSQL;
Var tick: Cardinal;
begin
  tic:= GetTickCount;
  Connection.Execute(SQL);
  Assert.IsTrue(Abs(GetTickCount-Tick)<MaxTime);
end

但若我需要测试列表，那个么属性是不够的。RepeatTest属性也不充分，因为如果里面有一个测试失败然后整个测试停止，但我需要运行所有的sql

有任何建议

EDIT1

在DUnit（没有X）中，这是可能的，就像一样

function CreateDBTests: ITestSuite;
Var i: Integer;
  baza: String;
  TS_Connected, TS_SumyZlecFakt, TS_WPLATY, TS_KONTRAHENT: ITestSuite;
begin
  Result:= TTestSuite.Create('Lista baz');
  TS_Connected:= TTestSuite.Create('Połączenia');
  TS_SumyZlecFakt:= TTestSuite.Create('SyumyZlecFakt');
  TS_WPLATY:= TTestSuite.Create('Wpłaty');
  TS_KONTRAHENT:= TTestSuite.Create('Kontrahent');
  for i:= 0 to ListaBaz.Count-1 do
    begin
      baza:= ListaBaz[i];
      TS_Connected.AddTest(TTestConnected.CreateDBListTest(baza));
      TS_SumyZlecFakt.AddTest(TestSumyZlecFakt.CreateDBListTest(baza));
      TS_WPLATY.AddTest(TestWplaty.CreateDBListTest(baza));
      TS_KONTRAHENT.AddTest(TestKontrahent.CreateDBListTest(baza));
    end;
  Result.AddSuite(TS_Connected);
  Result.AddSuite(TS_SumyZlecFakt);
  Result.AddSuite(TS_WPLATY);
  Result.AddSuite(TS_KONTRAHENT);
end;

DUnitX中的等价物是什么？

Answer 1

根据这一描述，DunitX是属性驱动的。它并不意味着是DUnit的替代品（或扩展）。所以我想它不支持动态测试用例创建。

p.s.我是一个开源组件测试框架的作者，该框架基于DUnit，大量使用动态测试生成。

Answer 2

通过在JSON文件中声明测试用例并挂接到DUnitX插件系统，我在某种程度上取得了成功：

https://github.com/VSoftTechnologies/DUnitX/issues/211#issuecomment-411082097