percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-12 06:00:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

PT-1488 Added a test

Browse Source
This commit is contained in:
Carlos Salguero
2018-03-30 19:31:32 -03:00
parent c6a8f843a7
commit cec7e7d052
1 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
t/pt-show-grants/mysql_8_roles.t
View File

@@ -25,7 +25,7 @@ if ( !$dbh ) {
} elsif ($sandbox_version < '8.0') { } elsif ($sandbox_version < '8.0') {
plan skip_all => "There are no roles in this MySQL version. Need MySQL 8.0+"; plan skip_all => "There are no roles in this MySQL version. Need MySQL 8.0+";
} else { } else {
plan tests => 4; plan tests => 49;
} }
$sb->wipe_clean($dbh); $sb->wipe_clean($dbh);
@@ -77,6 +77,26 @@ unlike(
); );
## Do a cleanup and try to run all the queries from the output
for my $query(@$cleanup_queries) {
$sb->do_as_root('master', $query);
}
my @lines = split(/\n/, $output);
my $count=0;
for my $query(@lines) {
next if $query =~ m/^-- /;
$count++;
eval { $sb->do_as_root('master', $query) };
is(
$EVAL_ERROR,
'',
"Ran query $count from the output of pt-show grants",
) or diag("Cannot execute query from the output: $query -> $EVAL_ERROR");
}
## Cleanup to leave sandbox ready for next test file.
for my $query(@$cleanup_queries) { for my $query(@$cleanup_queries) {
$sb->do_as_root('master', $query); $sb->do_as_root('master', $query);
} }