delphi – CheckException只接受0参数方法;如何测试其他方法抛出异常?

前端之家收集整理的这篇文章主要介绍了delphi – CheckException只接受0参数方法;如何测试其他方法抛出异常?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我想知道什么是测试在dunit中的异常的最佳实践。我对Delphi中的方法指针不是很熟悉。是否有可能绑定参数到方法指针,以便它可以没有参数调用。目前我总是写一个附加的方法,这手动“绑定”。如果SUT有很多抛出方法,这将是恼人的。
// What i did before i knew abput CheckExcepion
procedure MyTest.MyMethod_BadInput_Throws;
var
    res: Boolean;
begin
    res := false;
    try
        sut.MyMethod('this is bad');
    except
        on e : MyExpectedException do:
            res := true;
    end;
    CheckTrue(res);
end;

// What i do now
procedure MyTest.MyMethodWithBadInput;
begin
    sut.MyMethod('this is bad');
end;

procedure MyTest.MyMethod_BadInput_Throws;
begin
    CheckException(MyMethodWithBadInput,MyExpectedException);
end;

// this would be nice
procedure MyTest.MyMethod_BadInput_Throws;
begin
    CheckException(
        BindArguments(sut.MyMethod,'this is bad'),// <-- how to do this
        MyExpectedException);
end;

解决方法

你可以使用StartExpectingException包围你的方法调用)。
StartExpectingException(MyException);
MyMethod(MyParam);
StopExpectingException();

猜你在找的Delphi相关文章