ich möchte
unit testing mit Unterstützung des D# Frameworks durchführen. mein erstes sample sieht wie folgt aus
Delphi-Quellcode:
unit Unit_TCustomtestCase;
interface
uses
TestFramework, Types, Generics.Collections, Classes, SysUtils,
DSharp.Testing.DUnit;
type
TCustomParams =
class
StartFolder:
String;
StartValue: Integer;
StartParam: Real;
end;
type
TCustomtestCase =
class(TTestCase)
private
FtestParam: TCustomParams;
protected
procedure SetUp;
override;
procedure TearDown;
override;
published
[TestCase('
''
c:\temp''
,1 ,3.1415')]
[TestCase('
''
d:\temp''
,1 ,3.1415')]
[TestCase('
''
e:\temp''
,1 ,3.1415')]
[TestCase('
''
f:\temp''
,1 ,3.1415')]
procedure InittestParams(StartFolder:
String; StartValue: Integer;
StartParam: Real);
end;
implementation
{ TCustomtestCase }
procedure TCustomtestCase.InittestParams(StartFolder:
String;
StartValue: Integer; StartParam: Real);
begin
FtestParam.StartFolder := StartFolder;
FtestParam.StartValue := StartValue;
FtestParam.StartParam := StartParam;
checkEquals(FtestParam.StartParam, StartValue);
end;
procedure TCustomtestCase.SetUp;
begin
inherited;
FtestParam := TCustomParams.Create;
end;
procedure TCustomtestCase.TearDown;
begin
inherited;
FtestParam.Free;
end;
initialization
RegisterTest(TCustomtestCase.Suite);
end.
Wenn ich das Schlüsselwort
Zitat:
// published
auskommentiere kann ich zwar kompilieren erhalte aber nur einen Testcase, die Anderen Attribute werden nicht berücksichtigt.
Verwende ich
Zitat:
published
bekomme ich eine
AV mit dem Hinweis auf DSharp.Core.Reflection.pas ???
Was mache ich denn falsch?