Question

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

目前我有以下测试程序：

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

当我去编译时，我收到一个错误＆＃39;没有超载版本的＆＃39; WillRaise＆＃39;可以使用这些参数调用。＆＃39;

有没有更好的方法来检查过程是否引发了自定义异常，还是应该使用try，除非在捕获到异常时通过了块？

Answer 1

WillRaise的第一个参数是TTestLocalMethod。这被声明为：

type
  TTestLocalMethod = reference to procedure;

换句话说，您打算通过WillRaise可以调用的过程。你不是那样做的。你正在调用这个程序。这样做：

Assert.WillRaise(
  procedure begin Data.GetId(input); end,
  IdIsZeroException, 
  '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。一旦掌握了这一点，我相信它会很明显。

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

1 个答案: