DUint单元测试工具使用Demo

一：新建所需测试单元

unit UFunction;

interface
type
TMyfun = class (TObject)
public
function GetMyAge(Birthday:TDateTime):Integer;
end ;

implementation

uses SysUtils,DateUtils;

{ TMyfun }

function TMyfun.GetMyAge(Birthday: TDateTime): Integer;
var
syear,smonth,sday:Word;
byear,bmoth,bday:Word;
begin
syear: = YearOf(Now);
// DecodeDate(Now,syear,smonth,sday);
DecodeDate(Birthday,byear,bmoth,bday);
Result: = syear - byear;
end ;

end .

二：新建测试模块DUint->Test Module

unit UFunctionTests;

interface

uses
UFunction,
TestFrameWork;

type
TMyfunTests = class (TTestCase)
private
Myfun:TMyfun; // 声明测试单元
protected

procedure SetUp; override ;
procedure TearDown; override ;

published

// Test methods
procedure TestGetMyAge;

end ;

implementation

uses
DateUtils,SysUtils;


{ TMyfunTests }

procedure TMyfunTests.SetUp;
begin
inherited ;
Myfun: = TMyfun.Create;
end ;

procedure TMyfunTests.TearDown;
begin
inherited ;
Myfun.Destroy;
end ;

procedure TMyfunTests.TestGetMyAge;
var
dt:TDateTime;
begin
dt: = Now;
dt: = incyear(dt, - 10 );

Self.CheckEquals( 11 ,Myfun.GetMyAge(dt), ' yyyy ' );
end ;

initialization

TestFramework.RegisterTest( ' UFunctionTests Suite ' ,
TMyfunTests.Suite);

end .

三：新建测试项目 DUint->Test Project

// Uncomment the following directive to create a console application
// or leave commented to create a GUI application...
// { $APPTYPE CONSOLE }

program Tests;

uses
TestFramework { $IFDEF LINUX } ,
QForms,
QGUITestRunner { $ELSE } ,
Forms,
GUITestRunner { $ENDIF } ,
TextTestRunner,
UFunctionTests in ' UFunctionTests.pas ' ,
UFunction in ' ..\UFunction.pas ' ;

{ $R *.RES }

begin
Application.Initialize;

{ $IFDEF LINUX }
QGUITestRunner.RunRegisteredTests;
{ $ELSE }
if System.IsConsole then
TextTestRunner.RunRegisteredTests
else
GUITestRunner.RunRegisteredTests;
{ $ENDIF }

end .