Delphi单元测试工具Dunit介绍

　　end;

　　最后将initialization改为

　　initialization

　　//TestFramework.RegisterTest(TTestCaseFirst.Suite);

　　TestFramework.RegisterTest(TestSetupTest.Create(TTestCaseFirst.Suite));

　　end.

　　运行之后的结果如下：

　　注意TtestCaseFirst前面加了”[d]”。运行一次测试就可以清楚看到TestSetupTest类中Setup和TearDown只运行了一次，而TtestCaseFirst中的Setup和TearDown运行了两次

　　测试Exception

　　虽然TexceptionTestCase没有实现，但是Dunit在源码附加\examples\testexception目录中有一个如何测试Exception的例子。

　　主要的实现在procedure TTestMyObject.CheckException和procedure TTestMyObjectOverrideRunTest.RunTest中。具体的实现可以看代码。

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