Delphi单元测试工具Dunit介绍

　　使用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来进行管理。先增加一个函数：

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