percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-27 07:54:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

PT-2340 - Support MySQL 8.4

Browse Source 
- Adjusted t/pt-deadlock-logger/check_schema_exists.t so it makes sense
This commit is contained in:
Sveta Smirnova
2024-10-04 18:32:39 +03:00
parent 33086769a1
commit e4281dc6c2
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
t/pt-deadlock-logger/check_schema_exists.t
View File

@@ -19,7 +19,7 @@ my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp); my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('source'); my $dbh = $sb->get_dbh_for('source');
my ($output, $exist_status) = full_output( my ($output, $exit_status) = full_output(
sub { sub {
pt_deadlock_logger::main( pt_deadlock_logger::main(
"h=127.1,D=non_existent_db,u=msandbox,p=msandbox", "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. # Done.
# ############################################################################# # #############################################################################