如何在CodeGear BDS 2007中创建和使用测试用例DUNIT

  如何在Delphi 2007中使用敏捷开发方式？如何创建和使用测试用例？这些好象一直都是Java的专利。其实，从Delphi 8开始Borland公司开始引入JUNIT的兄弟--DUNIT了，有了DUNIT，再加上Together，世界终于不一样了。

  那么，我们如何在Delphi中使用DUNIT呢？
  如果你使用的是Delphi2005以前的Delphi版本，如Delphi 7/8，你需要自已动手写上测试用例，尽管有DUNIT的Demo，但也是很烦很累的。如果是用CodeGear BDS 2007的话，这一切又不同了，IDE中集成了DUNIT与Together不说，最关键是的加入自动化的Test Project和Test Case 向导。
  测试用例、测试用例关键在这个“例”上，“例”者，“类”也！也就是说，要测试的对象必须是用类封装起来的对象，所以我们得先进行类的定义，然后才能测试类中的方法。
  举个例子：
  一、文件构成：
    首先建立一项目组（Project Group），包含两个项目，
    项目一，要测试的项目：
           PTest.prj
             |--uMaint.pas
             |--frmMaint.dfm
             |--uXXXMath.pas

    项目二一，DUNIT项目：
           PTestTests.prj
             |--uXXXMath.pas（手动加入的项目一中的要测试的类文件）
             |--TestuXXXMath.pas

  二、创建过程
     1、项目一创建过程，略！
     其中uXXXMath.pas文件的内容为：

unit uXXXMath;

interface
uses SysUtils;

type

TXXXMath = class
public
  function getSum(const a,b:Integer):Integer;//求和函数
end;

implementation

{ TXXXMath }

function TXXXMath.getSum(const a, b: Integer): Integer;
begin
  Result := a+b;
end;

end.

    2、项目二（测试用例）的创建过程
        a)File|New|Other...，Unit Test-->Test Project，建立一个Test Project项目。



        b)File|New|Other...，Unit Test-->Test Case，创建测试用户。


        这就是Delphi 2007为我们自动生成的测试用例文件的内容，无须任何修改即可使用了，当然我们在测试函数中还是给函数变量进行了赋值，并加入了一条对测试结果进行判断的语句：

unit TestuXXXMath;
{

  Delphi DUnit Test Case
  ----------------------
  This unit contains a skeleton test case class generated by the Test Case Wizard.
  Modify the generated code to correctly setup and call the methods from the unit
  being tested.

}

interface

uses
  TestFramework, SysUtils, uXXXMath;

type
  // Test methods for class TXXXMath

  TestTXXXMath = class(TTestCase)
  strict private
    FXXXMath: TXXXMath;
  public
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure TestgetSum;
  end;

implementation

procedure TestTXXXMath.SetUp;
begin
  FXXXMath := TXXXMath.Create;
end;

procedure TestTXXXMath.TearDown;
begin
  FXXXMath.Free;
  FXXXMath := nil;
end;

procedure TestTXXXMath.TestgetSum;
var
  ReturnValue: Integer;
  b: Integer;
  a: Integer;
begin
  // TODO: Setup method call parameters
  a := 10;    //我们加上的
  b := 20;
  ReturnValue := FXXXMath.getSum(a, b);
  CheckEquals(a+b,ReturnValue,'结果不对呀！出错了？');//我们加上的

  // TODO: Validate method results
end;

initialization
  // Register any test cases with the test runner
  RegisterTest(TestTXXXMath.Suite);
end.

  三、编译、运行测试用例项目，测试结果一目了然。

  四、可能的问题
  1、Q：无法加入要测试的单元？
     A：要测试的函数或过程不是类成员。
  2、Q：运行测试项目文件后，主界面中的“执行”按钮不可用（灰色的）。
     A：系统自动加入的欲测试单元文件丢失（可能是Delphi2007中的一个BUG吧），请手动再加一次。