0

最近在我的公司,我们尝试使用 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函数:当 Length(FData) 小于或等于 8 时,当 Length(FData) 在System单元 ( FISTP QWORD PTR [EDX+8] {Save Second 8}) 的第 5905 行的 9 到 32 之间时,它工作正常整个调用堆栈消失在旁边两行(我们不确定它是否相关,但它看起来不是好兆头),在到达最顶层的函数(根据调用堆栈)之后,我们得到错误。

“保存第二个 8”之前的调用堆栈

“保存第二个 8”后调用堆栈

是我们的错还是 system/spring/dunitx 单元有问题?我们如何同时使用可空类型和测试?

4

1 回答 1

0

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

如果它不允许并且只允许,TValue那么您需要传递一个包含 aTNullableCurrency而不是2通过使用它的隐式运算符来传递的,如下所示:TValue.From<TNullableCurrency>(2)

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

编辑:不,他们没有 - 请参阅https://github.com/VSoftTechnologies/Delphi-Mocks/issues/39

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

于 2018-06-20T08:03:15.773 回答