使用弹簧时的内存问题.可使用 DUnitX 为空

Question

最近在我的公司，我们试图使用DUnitX来测试我们编写的类。由于这些类反映了数据库中的实体，因此所有字段都必须接受空值以及特定类型(例如整数或字符串(。

由于 spring4d 已经有了我们尝试使用的那些：

INaleznosc = interface
['{D5D6C901-3DB9-4EC2-8070-EB0BEDBC7B06}']
function DajPodstawaVAT(): TNullableCurrency;
property PodstawaVAT: TNullableCurrency read DajPodstawaVAT;
end;
TNaleznosc = class(TInterfacedObject, INaleznosc)
strict private
FId: TNullableInt64;
FPodstawaVAT: Currency;
function TNaleznosc.DajPodstawaVAT(): TNullableCurrency;
published
property PodstawaVAT: TNullableCurrency read DajPodstawaVAT;
end; 
INaleznoscFunkcje = interface
['{509288AB-110A-4A52-BE93-3723E5725F4B}']
function DajPodstawaVAT(pID: TNullableInt64): TNullableCurrency;
end;
function TNaleznosc.DajPodstawaVAT(): TNullableCurrency;
begin
FPodstawaVAT := FFunkcje.DajPodstawaVAT(FId);
end;
procedure TTestNaleznosc.PodstawaVATGetterNieWywolujefunkcji();
var
funkcjeNaleznosc: TMock<INaleznoscFunkcje>;
klasa: INaleznosc;
id: TNullableInteger;
begin
//initialize tested elements
funkcjeNaleznosc := TMock<INaleznoscFunkcje>.Create();
id := 15;
klasa := TNaleznosc.Create(funkcjeNaleznosc, id, zmienne);
//setup expected behaviour from mock
funkcjeNaleznosc.Setup.WillReturn(2).When.DajPodstawaVAT(id);
funkcjeNaleznosc.Setup.Expect.Once.When.DajPodstawaVAT(id);
//this triggers getter
klasa.PodstawaVAT;
end;

执行此代码时，我们得到 AV 异常First chance exception at $00000000. Exception class $C0000005 with message 'access violation at 0x00000000: access of address 0x00000000'. Process Tests.exe (6556)。

最终，我们将此问题缩小到System.Rtti单元中的移动过程，TValueDataImpl.ExtractRawDataNoCopy功能： 当长度(FData(小于或等于8时，它工作正常 当 Length(FData( 在单元 (FISTP QWORD PTR [EDX+8] {Save Second 8}(System的第 5905 行处介于 9 和 32 之间时，整个调用堆栈在两行旁边消失(我们不确定它是否相关，但它看起来不像好兆头(，并且在到达最顶层函数(根据调用堆栈(后，我们得到错误。

"保存秒 8"之前的调用堆栈

"保存秒 8"后的调用堆栈

是我们的错还是系统/弹簧/dunitx单元的问题？我们如何同时使用可为空的类型和测试？

Answer 1

我不确定 Delphi Mocks 是否在其WillReturn方法上具有泛型类型参数，但如果是这样，则TNullableCurrency传递到那里 - 否则编译器将从您传递2参数推断类型，显然在内部它无法将其放入它应该返回的TNullableCurrency中。

如果它不允许并且只允许TValue那么你需要传递一个包含TNullableCurrency而不是2它会使用其隐式运算符，如下所示：TValue.From<TNullableCurrency>(2)

此外，我不确定他们是否确实修复了 Delphi Mocks 中SameValue例程中的代码，当要比较的值是记录时(TNullableCurrency是(

编辑：不，他们没有 - 见 https://github.com/VSoftTechnologies/Delphi-Mocks/issues/39

您可能需要考虑尝试一下应该能够处理可为空的 Spring4D 模拟。