Typo in the implementation 'TAssert.AssertException(AExceptionClass, AMethod, AExceptionMessage, AExceptionContext)'
Original Reporter info from Mantis: silvioprog
-
Reporter name: silvioprog
Original Reporter info from Mantis: silvioprog
- Reporter name: silvioprog
Description:
Hello,
Aprogrammer could use:
AssertException(EMyException, @MyException, 'My exception');
But the current implementation in this method is:
class procedure TAssert.AssertException(AExceptionClass: ExceptClass; AMethod: TRunMethod;AExceptionMessage : String = ''; AExceptionContext : Integer = 0); begin AssertException('', AExceptionClass, AMethod,'',0,CallerAddr); end;
To fix this problem, it could be:
class procedure TAssert.AssertException(AExceptionClass: ExceptClass; AMethod: TRunMethod;AExceptionMessage : String = ''; AExceptionContext : Integer = 0); begin AssertException('', AExceptionClass, AMethod, AExceptionMessage, 0, CallerAddr); end;
Attached a patch to fix that.
Mantis conversion info:
- Mantis ID: 27789
- Version: 3.1.1
- Fixed in version: 3.0.0
- Fixed in revision: 30461 (#1caae4e3)
- Target version: 3.0.0