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 回答