delphi-10.1-berlin - 将 spring.Nullable 与 DUnitX 一起使用时的内存问题
问题描述
最近在我的公司,我们尝试使用 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 之间时,它工作正常整个调用堆栈消失在旁边两行(我们不确定它是否相关,但它看起来不是好兆头),在到达最顶层的函数(根据调用堆栈)之后,我们得到错误。
是我们的错还是 system/spring/dunitx 单元有问题?我们如何同时使用可空类型和测试?
解决方案
我不确定 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 模拟。
推荐阅读
- amazon-web-services - 具有多个数据集的 AWS QuickSight 控制面板
- vue.js - 从 Vue Select 中选择时,Safari 表单失去输入焦点
- swift - 如何将 NSString 转换为 AutoreleasingUnsafeMutablePointer
- javascript - 如何正确配置 Babel、Webpack 和 Corejs 以确保浏览器兼容性
- c++ - clang 是否支持 __attribute__ ((alias))?
- python - 让诗歌尊重诗歌领域的秩序。lock
- javascript - tensorflowjs:将预测数组显示为图像
- python - 为什么 selenium 不能识别 Python 中的类?
- postgresql - Postgres 9.3中具有相同名称的多个表
- reactjs - 无法将 HTTP 标头放入变量中