Мне интересно, что лучше всего проверять на исключения в 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;