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)模式

文章來源于領測軟件測試網 http://www.anti-gravitydesign.com/