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

Only run pt-ioprofile.t if the system has strace.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-14 12:28:10 -07:00
parent d25a778b9f
commit 1a9f65d7cc
1 changed files with 15 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
t/pt-ioprofile/pt-ioprofile.t
View File

@@ -19,24 +19,22 @@ 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 $have_strace = `which strace 2>/dev/null`;
if ( !$dbh ) {
plan skip_all => "Cannot connect to master sandbox";
}
else {
plan tests => 5;
elsif ( !$have_strace ) {
plan skip_all => 'strace is not installed or not in PATH';
}
my $output = "";
$output = `$trunk/bin/pt-ioprofile --help 2>&1`;
my $output = `$trunk/bin/pt-ioprofile --help 2>&1`;
like(
$output,
qr/--version/,
"--help"
);
my $t0 = time;
$output = `$trunk/bin/pt-ioprofile --run-time 3 2>&1`;
my $t1 = time;
@@ -47,17 +45,16 @@ like(
"Runs without a file (bug 925778)"
);
TODO: {
local $::TODO = "Timing-related test, may occasionally fail";
# If the system is really slow, it may take a second to process the files
# and then clean up all the temp stuff. We'll give it a few seconds benefit of the doubt.
cmp_ok(
int($t1 - $t0),
'<=',
6,
"Runs for --run-time, more or less"
);
}
# If the system is really slow, it may take a second to process the files
# and then clean up all the temp stuff. We'll give it a few seconds benefit
# of the doubt.
cmp_ok(
int($t1 - $t0),
'<=',
6,
"Runs for --run-time, more or less"
);
# #############################################################################
# Short options.
# #############################################################################
@@ -72,4 +69,4 @@ like(
# Done.
# #############################################################################
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;
done_testing;