Source position: fpcunit.pp line 286
type TProtect = procedure(
aTest: TTest;
aResult: TTestResult
);