Delphi单元测试工具Dunit介绍

发布: 2008-7-10 14:42 | 作者: 不详 | 来源: 测试时代采编 | 查看: 313次 | 进入软件测试论坛讨论

使用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。