Source position: fpcunitreport.pp line 37
type TTestNameEvent = procedure(
Sender: TObject;
const AName: string
) of object;