mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-19 02:05:23 +00:00
Remove the @INC shifts from the test files. This is no longer needed since the tools do their %INC mangling
This commit is contained in:
@@ -12,8 +12,6 @@ use English qw(-no_match_vars);
|
||||
use Test::More tests => 13;
|
||||
|
||||
use PerconaTest;
|
||||
shift @INC; # These two shifts are required for tools that use base and
|
||||
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
|
||||
require "$trunk/bin/pt-query-advisor";
|
||||
|
||||
my @args = qw(--print-all --report-format full --group-by none --query);
|
||||
|
@@ -13,9 +13,6 @@ use Test::More;
|
||||
|
||||
use PerconaTest;
|
||||
use Sandbox;
|
||||
shift @INC; # These two shifts are required for tools that use base and
|
||||
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
|
||||
shift @INC;
|
||||
require "$trunk/bin/pt-query-advisor";
|
||||
|
||||
my $dp = new DSNParser(opts=>$dsn_opts);
|
||||
|
@@ -12,8 +12,6 @@ use English qw(-no_match_vars);
|
||||
use Test::More tests => 3;
|
||||
|
||||
use PerconaTest;
|
||||
shift @INC; # These two shifts are required for tools that use base and
|
||||
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
|
||||
require "$trunk/bin/pt-query-advisor";
|
||||
|
||||
ok(
|
||||
|
@@ -12,8 +12,6 @@ use English qw(-no_match_vars);
|
||||
use Test::More tests => 1;
|
||||
|
||||
use PerconaTest;
|
||||
shift @INC; # These two shifts are required for tools that use base and
|
||||
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
|
||||
require "$trunk/bin/pt-query-advisor";
|
||||
|
||||
my @args = qw(--print-all --report-format full --group-by none);
|
||||
|
@@ -12,8 +12,6 @@ use English qw(-no_match_vars);
|
||||
use Test::More tests => 2;
|
||||
|
||||
use PerconaTest;
|
||||
shift @INC; # These two shifts are required for tools that use base and
|
||||
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
|
||||
require "$trunk/bin/pt-query-advisor";
|
||||
|
||||
my $output;
|
||||
|
@@ -13,9 +13,6 @@ use Test::More;
|
||||
|
||||
use PerconaTest;
|
||||
use Sandbox;
|
||||
shift @INC; # These two shifts are required for tools that use base and
|
||||
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
|
||||
shift @INC;
|
||||
require "$trunk/bin/pt-query-advisor";
|
||||
|
||||
my $dp = new DSNParser(opts=>$dsn_opts);
|
||||
|
Reference in New Issue
Block a user