DUint使用说明.docxVIP

DUnit使用详细说明Dunit是Xunit家族中的一员，用于Dephi的单元测试。是Extreme Programming测试实现Xtreme Testing的一种工具。本文主要介绍了如何在Delphi使用DUnit提供的各种功能开展有效的单元测试。1 软件支持在开始介绍DUnit之前，我们需要以下软件的支持：IDE：我们使用Delphi 7作为标准的开发环境并基于Delphi 7介绍DUnit的使用。DUnit：我们使用Dunit-9.3.0对DUnit的使用进行介绍。可以在网站下载Dunit-9.3.0。下载地址：/projects/dunit/下面是解压后的DUnit-9.3.0开发包的目录结构：目录名称说明DUnit　　srcDUnit源代码　doc一些说明文档，还包括Time2Help生成Api帮助文档　Contrib非核心的一些工具　　XPGen一个可以自动生成Test Case的工具。　testsDUnit框架本身的测试案例　examples　　　cmdline示范如何在控制台程序中使用DUnit　　collection一个类似于Java的容器类的Delphi类的代码以及它的测试代码。　　registration演示几种注册测试案例方法的例子　　structure组织测试代码的方法　　　diffunit将测试案例放在独立的单元中的示例　　　sameunit将测试案例代码和被测试的程序代码放在同一个单元中的示例??registry一个建立读写注册表的工具及其测试案例建立的教程。　　embeddable示范如果将 GUITestRunner嵌入到其他界面中的示例　　TListTest为Delphi中的TList类编写的测试案例2 环境配置解压下载文件后将DUnit的路径添加到Delphi的单元搜索路径中。例如我解压的路径为D:\DELPHI LIB\dunit-9.3.0（路径不影响操作，你可以解压到任意路径）。然后你在delphi中的Tools | Environment Options | Library添加你的Dunit路径下的src的路径，例如我需要加入的路径为D:\DELPHI LIB\dunit-9.3.0\src。如图所示：3简单测试3.1测试案例本章我们以一个工程Project1中计算阶乘的函数为例介绍如何使用DUnit进行简单的单元测试。我们需要测试这个函数是否真的能够给出阶乘运算结果。代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Factorial: TButton; Exit: TButton; procedure FactorialClick(Sender: TObject); procedure ExitClick(Sender: TObject); private { Private declarations } public { Public declarations } function FactorialPro(i : Integer) : Integer; end;var Form1: TForm1;implementation{$R *.dfm}function TForm1.FactorialPro(i : integer) : Integer;begin if i=1 then Result := 1 else Result:=Self.FactorialPro(i-1)*i;end;procedure TForm1.FactorialClick(Sender: TObject);beginShowMessage(IntToStr(FactorialPro(3)));end;procedure TForm1.ExitClick(Sender: TObject);beginShowMessage(closing);Self.Close;end;end.3.2 创建测试工程3.2.1新建工程因为项目代码和被测试代码混在一起会造成混乱，而且单元测试代码是不会出现在最终产品中的，因此要求测试目录以及工程名要符合以下规定：1 为测试工程创建单独的文件夹。2 测试工程文件夹应以被测试工程文件夹+Tests命名。3保证测试工程子文件夹与被测试工程子文件夹具有相同的目录结构。4 测试工程名应以被测试工程名+Tests作为工程名。根据以上规则我们新建一个测试工程，取名为P