Source position: fpcunitreport.pp line 31
type TFailureEvent = procedure(
Sender: TObject;
ATest: TTest;
AFailure: TTestFailure
) of object;