Delphi2005和DUnit搭建敏捷开发平台

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。

　　至此重构功能和单元测试都有了。剩下的就是给既有代码添加测试，然后慢慢重构的事情了。

上一篇： 用Delphi来DIY一个软件"变脸"功能
下一篇： Delpih 中的Windows API编程初步

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!