当TSQLConnection.Connected = true时,如何使Delphi DUnit测试失败

uses
  TestFramework, SysUtils, SqlExpr;

type
  TMyTest = class(TTestCase)
  private
    FSQLConnection: TSQLConnection;
  protected
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure TestConnection;
  end;

procedure TMyTest.SetUp;
begin
  FSQLConnection := TSQLConnection.Create(nil);
  FSQLConnection.DriverName := 'MSSQL';
  FSQLConnection.LoginPrompt := False;
  FSQLConnection.Params.Add('Server=myServerAddress');
  FSQLConnection.Params.Add('Database=myDataBase');
  FSQLConnection.Params.Add('User_ID=myUsername');
  FSQLConnection.Params.Add('Password=myPassword');
end;

procedure TMyTest.TearDown;
begin
  FSQLConnection.Free;
end;

procedure TMyTest.TestConnection;
begin
  FSQLConnection.Open;
  CheckTrue(FSQLConnection.Connected, 'Failed to connect to the database');
end;