UnitTestFramework
DeclarationProcedure SetFailureExceptionClass(EClass :ExceptClass);Implementation
procedure SetFailureExceptionClass(EClass :ExceptClass); begin __FailureExceptionClass := EClass End;