Delphi单元测试工具Dunit介绍

　　function UnitTests: ITestSuite;

　　var

　　ATestSuite,BTestSuite: TTestSuite;

　　begin

　　BTestSuite := TTestSuite.Create('Some trivial tests',

　　[

　　TTestCaseFirst.Suite,

　　TTestCaseSecond.Suite

　　]);

　　ATestSuite := TTestSuite.create('Some other trivial tests');

　　ATestSuite.addTest(TTestCaseFirst.Suite);

　　ATestSuite.addTest(BTestSuite);

　　Result := ATestSuite;

　　end;

　　我们先使用TtestSuite.Create创建一个一层的TestSuite, BtestSuite.然后在将BtestSuite加入到AtestSuite。

　　最后将initialization处的代码改为如下：

　　initialization

　　TestFramework.RegisterTest('Simple Test', UnitTests);

　　end.

　　注册AtestSuite就可以了，以下是运行结果:

　　控制台(console)模式

文章来源于领测软件测试网 https://www.ltesting.net/