From e4281dc6c297871635e7e47872cc902a005eda62 Mon Sep 17 00:00:00 2001 From: Sveta Smirnova Date: Fri, 4 Oct 2024 18:32:39 +0300 Subject: [PATCH] PT-2340 - Support MySQL 8.4 - Adjusted t/pt-deadlock-logger/check_schema_exists.t so it makes sense --- t/pt-deadlock-logger/check_schema_exists.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/t/pt-deadlock-logger/check_schema_exists.t b/t/pt-deadlock-logger/check_schema_exists.t index b664a913..1538bb6b 100644 --- a/t/pt-deadlock-logger/check_schema_exists.t +++ b/t/pt-deadlock-logger/check_schema_exists.t @@ -19,7 +19,7 @@ my $dp = new DSNParser(opts=>$dsn_opts); my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp); my $dbh = $sb->get_dbh_for('source'); -my ($output, $exist_status) = full_output( +my ($output, $exit_status) = full_output( sub { pt_deadlock_logger::main( "h=127.1,D=non_existent_db,u=msandbox,p=msandbox", @@ -29,6 +29,17 @@ my ($output, $exist_status) = full_output( } ); +is( + $exit_status, + 2, + 'Dies when connects to non existent database' +); + +like( + $output, + qr/Unknown database 'non_existent_db'/, + 'Error printed when connects to non existent database' +); # ############################################################################# # Done. # #############################################################################