在Delphi中用TDD ：一个简单的实现

最近因工作的关系又再次搞了一些时候的Delphi开发，因为Java的影响也就开始思想如何在Delphi开发中用TDD的方法， 这篇文章就是要谈谈TDD在Delphi中的应用。我想网上已有很多的文章谈到这方面的话题，我这篇也只是谈谈我自己的经验而已。 

那从何说起呢？用个具体的例子会更好的说明问题。试想我们想开个动物繁殖中心，不过我们现阶段还没有特定的动物， 先把这中心搞起来再说，不过中心是离不开动物的，我们就先定义个接口：

1.  IAnimal = Interface
2.     procedure Mate;
3.     procedure Eat;
4.     procedure GiveBirth;
5.   End;

这个接口定义了每种动物的三个基本功能：Eat(吃), Mate(交配), GiveBirth(生产), 为了简单起见，我们只处理母的， 公的不在考虑之内。有了接口我们就可以定义繁殖中心：

1. TAnimalCare= class
2.   private
3.     FIntf : IAnimal;
4.   public
5.     constructor Create(AnIntf : IAnimal);
6.     procedure Reproduction;
7.   end;

TAnimalCare 是处理繁殖的一个类，它需要依靠IAnimal才可以繁殖，不过它并没有锁定任何的动物，

所以在建立时需要注人一个基于IAnimal的类。

有了IAnimal, TAnimalCare 我们需要个测试Project来对它们进行测试，DUnit是Delphi的很好的单元测试工具， 如你用的是Delphi 2007版， DUnit已经在里面， 如用的是早些的版本， 可在 DUnit下载，安装。

建立好Test Project后，我们可以加入下面的这个TestCase:

1.  TestTAnimalCare = class(TTestCase)
2.   strict private
3.     FAnimalCare: TAnimalCare;
4.   public
5.     procedure SetUp; override;
6.     procedure TearDown; override;
7.   published
8.     procedure TestReproduction;
9.   end;

在SetUp这里，需要个基于IAnimal的类才可以，至到目前我们并没有定义一个，同时我们也不需要，因为我们还没有特定的动物。 那么如何来满足这条件以便测试能进行下去呢？这里我们可以用到一种叫Mock的东西， 在Delphi可用 PascalMock, 大家可在这下载， 安装后，我们就可以定义个TAnimalMock:

1. TAnimalMock = class(TMock, IAnimal)
2.   public
3.     procedure Mate;
4.     procedure Eat;
5.     procedure GiveBirth;
6.   end;
8. procedure TestTAnimalCare.SetUp;
9. begin
10.   FMock := TAnimalMock.Create;
11.   FAnimalCare := TAnimalCare.Create(FMock);
12. end;

有了TAnimalMock我们已基本满足了编译的要求，可以通过编译。是可以开始TDD的时候了，让我们先完善TestReproduction, 先写些期望，然后verify，看有没有达到：

1. procedure TestTAnimalCare.TestReproduction;
2. begin
3.   // Expectations
4.   FMock.Expects('Mate');
5.   FMock.Expects('Eat');
6.   FMock.Expects('GiveBirth');
8.   FAnimalCare.Reproduction;
9.   FMock.Verify('check');
11. end;

这些期望是很自然的，交配(mate),营养(eat)是生产(GiveBirth)的必须条件，否则是无法繁殖的，我们跑一下测试，失败：

1. TestReproduction: EMockVerifyException
2. at  $0049B30A
3. check
4. Unexpected call to GiveBirth() <-- Don't match expectations
6. Expected: 
7. Mate()
8. Eat()
9. GiveBirth()
11. Called: 
12. GiveBirth() <-- Don't match expectations

为什么？看看：

1. procedure TAnimalCare.Reproduction;
2. begin
3.   Fintf.GiveBirth;
4. end;

原来我们只调用GiveBirth而没调用Mate(), Eat(), 不合我们的期望，改成如下：

1. procedure TAnimalCare.Reproduction;
2. begin
3.   FIntF.Mate;
4.   FIntF.Eat;
5.   Fintf.GiveBirth;
6. end;

再跑下测试，成功！

总结：

1. 用Dependency Injection， 将基于IAnimal的类注入TAnimalCare, 把有关IAnimal的一些具体的实现从TAnimalCare中分离出来。
2. 
   
3. 用Mock来实现一个基于IAnimal的类以便测试.

IAnimal, TAnimalCare码如下：

1. unit MyObjects;
3. interface
4. uses
5.   classes;
7. type
8.   IAnimal = Interface
9.     procedure Mate;
10.     procedure Eat;
11.     procedure GiveBirth;
12.   End;
14.   TAnimalCare= class
15.   private
16.     FIntf : IAnimal;
17.   public
18.     constructor Create(AnIntf : IAnimal);
19.     procedure Reproduction;
20.   end;
22. implementation
24. { TAnimalCare }
26. constructor TAnimalCare.Create(AnIntf: IAnimal);
27. begin
28.   inherited Create;
29.   FintF := AnIntf;
30. end;
32. procedure TAnimalCare.Reproduction;
33. begin
34.   FIntF.Mate;
35.   FIntF.Eat;
36.   Fintf.GiveBirth;
37. end;
39. end.

测试码如下：

1. unit TestMyObjects;
3. interface
5. uses
6.   TestFramework, classes, MyObjects, PascalMock;
7. type
9.   TAnimalMock = class(TMock, IAnimal)
10.   public
11.     procedure Mate;
12.     procedure Eat;
13.     procedure GiveBirth;
14.   end;
16.   TestTAnimalCare = class(TTestCase)
17.   strict private
18.     FMock : TAnimalMock;
19.     FAnimalCare: TAnimalCare;
20.   public
21.     procedure SetUp; override;
22.     procedure TearDown; override;
23.   published
24.     procedure TestReproduction;
25.   end;
27. implementation
29. procedure TestTAnimalCare.SetUp;
30. begin
31.   FMock := TAnimalMock.Create;
32.   FAnimalCare := TAnimalCare.Create(FMock);
33. end;
35. procedure TestTAnimalCare.TearDown;
36. begin
37.   FAnimalCare.Free;
38.   FAnimalCare := nil;
39.   FMock.Free;
40.   FMock := nil;
41. end;
43. procedure TestTAnimalCare.TestReproduction;
44. begin
45.   // Expectations
46.   FMock.Expects('Mate');
47.   FMock.Expects('Eat');
48.   FMock.Expects('GiveBirth');
50.   FAnimalCare.Reproduction;
51.   FMock.Verify('check');
53. end;
55. { TAnimalMock }
57. procedure TAnimalMock.Eat;
58. begin
59.   self.AddCall('Eat');
60. end;
62. procedure TAnimalMock.GiveBirth;
63. begin
64.   self.AddCall('GiveBirth');
65. end;
67. procedure TAnimalMock.Mate;
68. begin
69.   self.AddCall('Mate');
70. end;
72. initialization
73.   RegisterTest(TestTAnimalCare.Suite);
74. end.