単体テストについて考えるのに多くの時間を費やしました。少なくとも、以前のコードを使った効率的な作業を電子ブックとして購入しました。古いコードの単体テストに関する素晴らしい本のようです。しかし、それでも私たちのプロジェクト Attracs は大きいので、これには出発点が必要だと思います。ユニットテストに関する私の一般的な質問も参照してください。
このアプリケーションには、クラス、属性、および関係を定義し、Bold for Delphi を使用するための UML モデルがあります。モデルを変更するたびに、ラウンドトリップを行います。これにより、ファイル businessclasses.pas および BusinessClasses_Interface.inc 内のメソッドの宣言が自動的に生成されます。変更にデータベースの変更が必要な場合は、SQL スクリプトも生成されます。これは何年もうまく機能していますが、単体テストを使用したことはありません。
そのため、新しいテストプロジェクトを追加すると、依存関係が問題を引き起こします。私は得た
[DCC エラー] Attracs_Interface_Uses.inc(10): F1026 ファイルが見つかりません: 'MsxSupport.dcu'
エラーを要約すると
AttracsTest.dpr は、Attracs_Interface_Uses.inc を使用する
BusinessClasses_Interface.inc
を使用する
BusinessClasses.pa を使用します。
では、どうすれば依存関係の連鎖を断ち切ることができますか?
実際には、ファイルははるかに大きいことに注意してください。モデルには 300 以上のクラスがあり、businessClasses.pas には 53000 行以上のコードがあります... テストケースとして、メソッド AddResponsibility を持つクラス TPerson しかありません。しかし、あなたは原則を理解する必要があります。
ここに私のファイルがあります：
AttracsTest.dpr
program AttracsTests;
{$IFDEF CONSOLE_TESTRUNNER}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
Forms,
TestFramework,
GUITestRunner,
TextTestRunner,
BusinessClasses in '..\..\server\code\BusinessClasses.pas',
TestBusinessClasses in 'TestBusinessClasses.pas',
ArrayOfObject in '..\..\server\code\ArrayOfObject.pas';
{$R *.RES}
begin
Application.Initialize;
if IsConsole then
TextTestRunner.RunRegisteredTests
else
GUITestRunner.RunRegisteredTests;
end.
TestBusinessClasses.pas
unit TestBusinessClasses;
interface
uses
TestFramework,
ArrayOfObject,
AttracsAttributes,
AttracsDefs,
atXMLObjModel,
BoldAttributes
BoldDBInterfaces,
BoldDefs,
BoldDeriver,
BoldDomainElement,
BoldElements,
BoldSubscription,
BoldSystem,
BoldSystemRT,
BusinessClasses, // Trigger the dependency, but also contain info about the classes get and set methods for attributes.
Classes,
Contnrs,
SysUtils,
XMLIntf,
XMLObjModel,
XMLParser;
type
TestTPerson = class(TTestCase)
strict private
FPerson: TPerson;
public
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestAddResponsibility;
end;
implementation
procedure TestTPerson.SetUp;
begin
FPerson := TPerson.Create;
end;
procedure TestTPerson.TearDown;
begin
FPerson.Free;
FPerson := nil;
end;
procedure TestTPerson.TestAddResponsibility;
var
ReturnValue: Boolean;
aSession: TLogonSession;
aDevType: TDevTypeDef;
aMarketArea: TMarketArea;
begin
// TODO: Setup method call parameters
ReturnValue := FPerson.AddResponsibility(aMarketArea, aDevType, aSession);
// TODO: Validate method results
end;
initialization
// Register any test cases with the test runner
RegisterTest(TestTPerson.Suite);
end.
Attracs_Interface_Uses
AttracsDefs,
atXMLObjModel,
XMLObjModel,
XMLParser,
Contnrs,
XMLIntf,
ArrayOfObject,
BoldDBInterfaces,
MsxSupport // Line that compiler complain about
BusinessClasses_Interface.inc
(*****************************************)
(* This file is autogenerated *)
(* Any manual changes will be LOST! *)
(*****************************************)
{$IFNDEF BusinessClasses_Interface.inc}
{$DEFINE BusinessClasses_Interface.inc}
{$IFNDEF BusinessClasses_unitheader}
unit BusinessClasses;
{$ENDIF}
{$INCLUDE Attracs.inc} //PATCH
interface
uses
// interface uses
{$INCLUDE Attracs_Interface_Uses.inc} ,
// interface dependencies
// attribute classes
AttracsAttributes,
BoldAttributes,
// other
Classes,
SysUtils,
BoldDefs,
BoldSubscription,
BoldDeriver,
BoldElements,
BoldDomainElement,
BoldSystemRT,
BoldSystem;
type
{ forward declarations of all classes }
TPerson = class;
TPerson = class(TAmStateObject)
public
function AddResponsibility(aMarketArea: TMarketArea; aDevType: TDevTypeDef; aSession: TLogonSession): Boolean;
end;
function GeneratedCodeCRC: String;
implementation
uses
// implementation uses
{$INCLUDE Attracs_Implementation_Uses.inc} ,
// implementation dependencies
// other
BoldGeneratedCodeDictionary;
{$ENDIF}
Businessclasses.pas
(*****************************************)
(* This file is autogenerated *)
(* Any manual changes will be LOST! *)
(*****************************************)
unit BusinessClasses;
{$DEFINE BusinessClasses_unitheader}
{$INCLUDE BusinessClasses_Interface.inc}
{ Includefile for methodimplementations
Have concrete implementation of methods}
{$INCLUDE Person.inc}
// Some get and set methods fopr attributes in the class
// attribute FirstName
function TPerson._Get_M_FirstName: TBAString;
begin
assert(ValidateMember('TPerson', 'FirstName', 14, TBAString));
Result := TBAString(BoldMembers[14]);
end;
function TPerson._GetFirstName: String;
begin
Result := M_FirstName.AsString;
end;
procedure TPerson._SetFirstName(const NewValue: String);
begin
M_FirstName.AsString := NewValue;
end;
procedure InstallBusinessClasses(BoldObjectClasses: TBoldGeneratedClassList);
begin
BoldObjectClasses.AddObjectEntry('Person', TPerson);
end;
var
CodeDescriptor: TBoldGeneratedCodeDescriptor;
initialization
CodeDescriptor := GeneratedCodes.AddGeneratedCodeDescriptorWithFunc('BusinessClasses', InstallBusinessClasses, InstallObjectListClasses, GeneratedCodeCRC);
finalization
GeneratedCodes.Remove(CodeDescriptor);
end.
株式会社パーソン
function TPerson.AddResponsibility(aMarketArea: TMarketArea; aDevType: TDevTypeDef; aSession: TLogonSession): Boolean;
var
vOCL: String;
vDevResponse: TDevResponsible;
begin
vOCL := Format('DevResponsible.allinstances->select((devType.TypeName = ''%s'') and (marketArea.name = ''%s''))->first',
[aDevType.TypeName, aMarketArea.name]);
vDevResponse := GetApplicationKernel.EvaluateExpressionAsDirectElement(vOCL) as TDevResponsible;
if not Assigned(vDevResponse) then
vDevResponse := GetApplicationKernel.CreateAMObject('DevResponsible') as TDevResponsible;
if Assigned(vDevResponse) then
begin
vDevResponse.marketArea := aMarketArea;
vDevResponse.devType := aDevType;
vDevResponse.responsiblePers := self;
NotifyModificationHistory(Now, aSession, Format('Responsible for %s marketarea: %s', [aDevType.TypeName, aMarketArea.Name]));
Result := True;
end
else
Result := False;
end;