我想测试最简单的情况:测试一个模拟的策略对象。 (看看:战略模式)。
如果我在TMock<T>
方法中创建TTestCase.setUp
并将其存储在TTestCase
实例属性中,那么我应该在tearDown
方法中释放/ NIL模拟变量?
mock := NIL
无法编译:
[dcc32错误] TestUnit2.pas(44):E2010不兼容的类型:&#39; Delphi.Mocks.TMock&lt; T&gt;&#39;和指针&#39;。
mock.free
运行时没有任何错误,但我不确定是否应该调用它。当进程退出其范围时(在测试用例析构函数之后),模型被释放。
我应该拨打/设置任何内容吗?
代码:
Unit2.pas:
unit Unit2;
interface
type
TPartClass = class
public
function foo( x_ : integer ) : integer; virtual;
end;
TMainClass = class
private
fPart : TPartClass;
public
constructor create( part_ : TPartClass );
function bar( x_ : integer ) : integer;
end;
implementation
function TPartClass.foo( x_ : integer ) : integer;
begin
result := x_ shl 1;
end;
constructor TMainClass.create( part_ : TPartClass );
begin
inherited create;
fPart := part_;
end;
function TMainClass.bar( x_ : integer ) : integer;
begin
result := fPart.foo( x_ );
end;
TestUnit2.pas:
unit TestUnit2;
interface
uses
Delphi.Mocks, TestFramework, Unit2;
type
TTestTMainClass = class(TTestCase)
strict private
fPartClass : TMock<TPartClass>;
FMainClass: TMainClass;
public
procedure SetUp; override;
procedure TearDown; override;
published
procedure Testbar;
end;
implementation
procedure TTestTMainClass.SetUp;
begin
fPartClass := TMock<TPartClass>.create;
FMainClass := TMainClass.Create( fPartClass );
end;
procedure TTestTMainClass.TearDown;
begin
FMainClass.Free;
FMainClass := NIL;
//fPartClass.Free;
//fPartClass := NIL;
end;
procedure TTestTMainClass.Testbar;
var
ReturnValue: Integer;
x_: Integer;
begin
fPartClass.Setup.WillReturn( 10 ).When.foo( 5 );
x_ := 5;
ReturnValue := FMainClass.bar(x_);
checkTRUE( returnValue = 10 );
end;
答案 0 :(得分:1)
您应该始终清理在SetUp期间创建的TearDown中的所有内容。即使事情可能会在以后清理干净,这也是一种很好的做法,可以让您在单元测试时查找资源泄漏。
由于TMock<T>
是一个内部保存接口的记录,因此您需要确保在测试运行后清除这些接口,尽管它们可能被下一个SetUp覆盖或者当测试用例实例被销毁时。
这就是.Free的意思(尽管来源中有评论)
一旦你用模拟执行更复杂的事情,这一点就更为重要,因为它可能会使事情保持活力或在测试后指向无效引用。我在测试应用程序结束时看到了一些糟糕的崩溃,但没有清理他们的模拟。