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