Delphi單元測試工具Dunit介紹

領測軟件測試網    

使用TestSuite
       使用TestSuite的目的是對TestCase進行分類管理，如果我們再增加一個TestCase 如下

TTestCaseSecond = class(TTestCase)

 published

   procedure TestThrid;

 end;

添加TestThrid實現代碼后，在initialization代碼處增加

       TestFramework.RegisterTest(TTestCaseSecond.Suite);

運行以后我們可以看到結果如下：



   如果我們將initialization處的代碼改為如下：

initialization

 TestFramework.RegisterTest(’Simple suite’,TTestCaseFirst.Suite); 

 TestFramework.RegisterTest(’Simple suite’,TTestCaseSecond.Suite); 

end.

      那么運行的結果如下：



     這就是一個簡單的TestSuite的使用，我們將TestCaseFirst和TestCaseSecond放到Simple suite中來進行管理。

  對于復雜的應用，我們也可以使用多層的TestSuite來進行管理。先增加一個函數：

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。 

 

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

TAG: delphi Delphi DELPHI dunit Dunit 單元 工具