我正在使用DUnitX框架,我正在尝试测试该过程是否抛出异常.
目前我有以下测试程序:
procedure TAlarmDataTest.TestIdThrowsExceptionUnderFlow; begin Input := 0; Assert.WillRaise(Data.GetId(input),IdisZeroException,'ID uninitialized'); end;
解决方法
WillRaise的第一个参数是TTestLocalMethod.这被宣布为:
type TTestLocalMethod = reference to procedure;
换句话说,您打算传递一个WillRaise可以调用的过程.你不是那样做的.你正在调用这个程序.像这样做:
Assert.WillRaise( procedure begin Data.GetId(input); end,'ID uninitialized' );
关键是WillRaise需要调用预期会引发的代码.如果调用代码,则会在准备要传递给WillRaise的参数时引发异常.因此,我们需要推迟执行预期会提升的代码,直到我们进入WillRaise.将代码包装在匿名方法中是实现此目的的一种简单方法.
对于它的价值,WillRaise的实现如下:
class procedure Assert.WillRaise(const AMethod : TTestLocalMethod; const exceptionClass : ExceptClass; const msg : string); begin try AMethod; except on E: Exception do begin CheckExceptionClass(e,exceptionClass); Exit; end; end; Fail('Method did not throw any exceptions.' + AddLineBreak(msg),ReturnAddress); end;
因此,WillRaise在try / except块中包装对您的过程的调用,如果未引发所需的异常,则失败.
如果你仍然在努力理解这一点,那么我怀疑你需要提高你对anonymous methods的了解.一旦掌握了这一点,我相信它会很明显.