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;


HTML generated by Time2HELP
http://www.time2help.com