FPCUnit - TAssert.CheckIs eats message parameter
Original Reporter info from Mantis: Fr0sT
-
Reporter name:
Original Reporter info from Mantis: Fr0sT
- Reporter name:
Description:
Currently TAssert.CheckIs does not use msg parameter
class procedure TAssert.CheckIs(obj: TObject; pClass: TClass; msg: string);
begin
Assert(pClass <> nil);
if obj = nil then
Fail(ComparisonMsg(pClass.ClassName, 'nil'))
else if not obj.ClassType.InheritsFrom(pClass) then
Fail(ComparisonMsg(pClass.ClassName, obj.ClassName));
end;
the patch attached adds msg to ComparisonMsg call
Mantis conversion info:
- Mantis ID: 34131
- OS: any
- OS Build: any
- Platform: any
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 39613 (#e3e621a0)
- Monitored by: » Fr0sT (Fr0sT)
- Target version: 3.2.0