Conditionalize top 5 slowest test files, saving 25%/5m * 15 configs = 1hr.

This commit is contained in:
Daniel Nichter
2012-08-12 10:16:52 -06:00
parent a9eabffab9
commit 217a45df6f
5 changed files with 21 additions and 0 deletions

View File

@@ -11,6 +11,10 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
if ( !$ENV{SLOW_TESTS} ) {
plan skip_all => "lib/MasterSlave.t is a top 5 slowest file; set SLOW_TESTS=1 to enable it.";
}
use MasterSlave; use MasterSlave;
use DSNParser; use DSNParser;
use VersionParser; use VersionParser;

View File

@@ -11,6 +11,10 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 4; use Test::More tests => 4;
if ( !$ENV{SLOW_TESTS} ) {
plan skip_all => "pt-fifo-split/pt-fifo-split. is a top 5 slowest file; set SLOW_TESTS=1 to enable it.";
}
use PerconaTest; use PerconaTest;
require "$trunk/bin/pt-fifo-split"; require "$trunk/bin/pt-fifo-split";

View File

@@ -11,6 +11,10 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
if ( !$ENV{SLOW_TESTS} ) {
plan skip_all => "pt-online-schema-change/privs.t is a top 5 slowest file; set SLOW_TESTS=1 to enable it.";
}
use Data::Dumper; use Data::Dumper;
use PerconaTest; use PerconaTest;
use Sandbox; use Sandbox;

View File

@@ -11,6 +11,11 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
if ( !$ENV{SLOW_TESTS} ) {
plan skip_all => "pt-table-checksum/replication_filters.t is a top 5 slowest file; set SLOW_TESTS=1 to enable it.";
}
# Hostnames make testing less accurate. Tests need to see # Hostnames make testing less accurate. Tests need to see
# that such-and-such happened on specific slave hosts, but # that such-and-such happened on specific slave hosts, but
# the sandbox servers are all on one host so all slaves have # the sandbox servers are all on one host so all slaves have

View File

@@ -11,6 +11,10 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
if ( !$ENV{SLOW_TESTS} ) {
plan skip_all => "pt-table-checksum/throttle.t is a top 5 slowest file; set SLOW_TESTS=1 to enable it.";
}
$ENV{PERCONA_TOOLKIT_TEST_USE_DSN_NAMES} = 1; $ENV{PERCONA_TOOLKIT_TEST_USE_DSN_NAMES} = 1;
use PerconaTest; use PerconaTest;