简单替换为：

    TestFramework.RegisterTest(TRepeatedTest.Create(TTestCaseFirst.Suite， 2));

    可以，TRepeatedTest.Create的第一个参数为要重复的TestSuite/TestCase，第二个参数代表次数。运行后的结果如下：

    请注意，TestCaseFirst前面多了“2x”。

    使用TtestSetup类
    使用TtestSetup类的作用是在运行所有的测试方法前后只运行一次Setup几TearDown。可以用于创建数据库连接等等。
    要使用TtestSetup，我们先在《创建一个简单的例子》一节中创建的TestUnit中声明一个新的类（先在Uses中加入Dialogs，TestExtensions）

    TestSetupTest = class (TTestSetup)

    protected

    procedure SetUp; override; //初始化类

    procedure TearDown; override; //清除数据

    end;

    加入实现代码

    procedure TestSetupTest.SetUp;

    begin

    ShowMessage('TestSetupTest Setup');

    end;

    procedure TestSetupTest.TearDown;

    begin

    ShowMessage('TestSetupTest TearDown');

    end;

    修改TtestCaseFirst.SetUp及TTestCaseFirst.TearDown，加入下面加粗语句。

    procedure TTestCaseFirst.SetUp;

    begin

    BeTestForm := TBeTestForm.Create(Nil);

    ShowMessage('TTestCaseFirst Setup');

    end;

    procedure TTestCaseFirst.TearDown;

    begin

    BeTestForm.Destroy;

    ShowMessage('TTestCaseFirst TearDown');

    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 estexception目录中有一个如何测试Exception的例子。

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