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

PT-2340 - Support MySQL 8.4

Browse Source 
- Updated modules and tests for pt-query-digest, pt-show-grants, pt-slave-delay, pt-slave-find, pt-slave-restart, pt-stalk, pt-summary, pt-table-checksum
This commit is contained in:
Sveta Smirnova
2024-07-30 18:35:36 +03:00
parent 76c1202cb5
commit d02355f89b
94 changed files with 2930 additions and 2306 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
t/pt-query-digest/bugs.t
View File

@@ -15,13 +15,14 @@ use Sandbox;
use PerconaTest;
require "$trunk/bin/pt-query-digest";
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
my $output = '';

5
t/pt-query-digest/collect_and_report_cycles.t
View File

@@ -14,13 +14,14 @@ use Test::More;
use PerconaTest;
use Sandbox;
use DSNParser;
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
else {
plan tests => 4;

5
t/pt-query-digest/daemon.t
View File

@@ -15,10 +15,11 @@ use Test::More tests => 7;
use PerconaTest;
use Sandbox;
use DSNParser;
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
my $output;
@@ -41,7 +42,7 @@ like(
# Daemonizing and pid creation
# #########################################################################
SKIP: {
skip "Cannot connect to sandbox master", 5 unless $dbh;
skip "Cannot connect to sandbox source", 5 unless $dbh;
my $cmd = "$trunk/bin/pt-query-digest --daemonize --pid $pid_file --processlist h=127.1,P=12345,u=msandbox,p=msandbox --log /dev/null";
`$cmd`;

7
t/pt-query-digest/explain.t
View File

@@ -15,13 +15,14 @@ use Sandbox;
use PerconaTest;
require "$trunk/bin/pt-query-digest";
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
$dbh->do('drop database if exists food');
@@ -134,7 +135,7 @@ ok(
# #############################################################################
# Issue 1196: mk-query-digest --explain is broken
# #############################################################################
$sb->load_file('master', "t/pt-query-digest/samples/issue_1196.sql");
$sb->load_file('source', "t/pt-query-digest/samples/issue_1196.sql");
ok(
no_diff(

6
t/pt-query-digest/explain_partitions.t
View File

@@ -18,13 +18,13 @@ use Sandbox;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
elsif ( VersionParser->new($dbh) < '5.1' ) {
plan skip_all => 'Sandbox master version not >= 5.1';
plan skip_all => 'Sandbox source version not >= 5.1';
}
else {
plan tests => 2;

7
t/pt-query-digest/history.t
View File

@@ -14,13 +14,14 @@ use Test::More;
use PerconaTest;
use Sandbox;
require "$trunk/bin/pt-query-digest";
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
sub normalize_numbers {
@@ -49,7 +50,7 @@ my $output;
my $cmd;
$sb->create_dbs($dbh, ['test']);
$sb->load_file('master', 't/pt-query-digest/samples/query_review.sql');
$sb->load_file('source', 't/pt-query-digest/samples/query_review.sql');
# Test --create-review and --create-review-history-table
$output = run_with("slow006.txt", '--create-history-table',

5
t/pt-query-digest/issue_1186.t
View File

@@ -14,13 +14,14 @@ use Test::More;
use PerconaTest;
use Sandbox;
use DSNParser;
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
else {
plan tests => 3;

5
t/pt-query-digest/issue_360.t
View File

@@ -14,13 +14,14 @@ use Test::More;
use PerconaTest;
use DSNParser;
use Sandbox;
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
else {
plan tests => 3;

5
t/pt-query-digest/processlist.t
View File

@@ -14,6 +14,7 @@ use Test::More;
use PerconaTest;
use Sandbox;
require "$trunk/bin/pt-query-digest";
require VersionParser;
use Data::Dumper;
$Data::Dumper::Indent = 1;
@@ -22,10 +23,10 @@ $Data::Dumper::Quotekeys = 0;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
my @args = qw(-F /tmp/12345/my.sandbox.cnf --processlist h=127.1 --report-format query_report);

5
t/pt-query-digest/pt-2264.t
View File

@@ -14,6 +14,7 @@ use Test::More;
use PerconaTest;
use DSNParser;
use Sandbox;
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
@@ -22,10 +23,10 @@ if ( $sandbox_version lt '8.0') {
plan skip_all => "Requires MySQL 8.0 or newer";
}
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
else {
plan tests => 3;

9
t/pt-query-digest/review.t
View File

@@ -15,13 +15,14 @@ use PerconaTest;
use Sandbox;
use SqlModes;
require "$trunk/bin/pt-query-digest";
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
sub normalize_numbers {
@@ -47,7 +48,7 @@ my $output;
my $cmd;
$sb->create_dbs($dbh, ['test']);
$sb->load_file('master', 't/pt-query-digest/samples/query_review.sql');
$sb->load_file('source', 't/pt-query-digest/samples/query_review.sql');
# Test --create-review
$output = run_with("slow006.txt", qw(--create-review-table),
@@ -188,7 +189,7 @@ unlike($output, qr/Use of uninitialized value/, 'no crash due to totally missing
# #############################################################################
# --review --no-report
# #############################################################################
$sb->load_file('master', 't/pt-query-digest/samples/query_review.sql');
$sb->load_file('source', 't/pt-query-digest/samples/query_review.sql');
$output = run_with("slow006.txt", '--no-report',
'--review', "$dsn,D=test,t=query_review");

5
t/pt-query-digest/run_time.t
View File

@@ -15,13 +15,14 @@ use PerconaTest;
use Sandbox;
use Time::HiRes qw(sleep);
require "$trunk/bin/pt-query-digest";
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
else {
plan tests => 11;

7
t/pt-query-digest/since_until.t
View File

@@ -14,10 +14,11 @@ use Test::More;
use PerconaTest;
use Sandbox;
require "$trunk/bin/pt-query-digest";
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
my @args = (qw(--report-format query_report --limit 10));
my $sample_in = "$trunk/t/lib/samples/slowlogs";
@@ -115,9 +116,9 @@ ok(
);
SKIP: {
skip 'Cannot connect to sandbox master', 2 unless $dbh;
skip 'Cannot connect to sandbox source', 2 unless $dbh;
my $dsn = $sb->dsn_for('master');
my $dsn = $sb->dsn_for('source');
# The result file is correct: it's the one that has all quries from
# slow033.txt.

5
t/pt-query-digest/standard_options.t
View File

@@ -14,13 +14,14 @@ use Test::More;
use PerconaTest;
use Sandbox;
use DSNParser;
require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
my $dbh = $sb->get_dbh_for('source');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
plan skip_all => 'Cannot connect to sandbox source';
}
else {
plan tests => 2;