RunBare method |
Applies to
TTestSetup
Declaration
Procedure RunBare(ATestResult: TTestResult);
Implementation
procedure TTestSetup.RunBare(ATestResult: TTestResult); begin try Setup; except on E: Exception do assert(false, 'Setup failed: ' + e.message); end; try inherited RunBare(ATestResult); finally try TearDown; except on E: Exception do assert(false, 'Teardown failed: ' + e.message); end; end; End; |
|