用Delphi2005与DUnit搭建敏捷开发平台

interface

uses
  TestFramework;

type
  TBasic = class
  public
    function Add(a, b: integer): integer;
  end;

  TTestBasic = class(TTestCase)
  private
    FBasic: TBasic;
  public
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure TestAdd;
  end;

implementation

function TBasic.Add(a, b: integer): integer;
begin
  Result := a + b;
end;

procedure TTestBasic.SetUp;
begin
  FBasic := TBasic.Create;
end;

procedure TTestBasic.TearDown;
begin
  FBasic.Free;
end;

procedure TTestBasic.TestAdd;
begin
  CheckEquals(2, FBasic.Add(1, 1));
end;

initialization
  RegisterTest('', TTestBasic.Suite);

end.

修改Core.bdsproj（KAO，什么古怪的后缀啊）
把begin end.改成
exports
  RegisteredTests name 'Test';
end.
并在Uses部分添加TestFramework。

DUnit就是通过这个export的函数在dll中找出我们注册的TestCase的。

9、运行DUnit
把DUnit添加到Tools菜单下吧，那样方便许多。只是参数不好填写。我没有用里面的macro，直接填了绝对路径。如果你和我一样这样直接填的绝对路径，那么从Tools菜单下选DUnit就能直接看到一个测试列表了，点运行就会看到一个绿灯亮起了。
如果你不是把DUnit添加到Tools菜单，那么就要从File->Load Test的文件选择窗口中找到Core项目编译出来的dll，core.dll。