delphi – 测试过程是否在DUnitX中引发异常

我正在使用DUnitX框架,我正在尝试测试该过程是否抛出异常.

目前我有以下测试程序：

procedure TAlarmDataTest.TestIdThrowsExceptionUnderFlow;
begin
  Input := 0;
  Assert.WillRaise(Data.GetId(input),IdisZeroException,'ID uninitialized');
end;

当我去编译时,我得到一个错误’没有可以使用这些参数调用的’WillRaise’的重载版本.

有没有更好的方法来检查过程是否引发自定义异常,或者我应该使用try,除非捕获异常时传递的块除外？

解决方法

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的了解.一旦掌握了这一点,我相信它会很明显.