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

Add pt-ioprofile tests.

Browse Source
This commit is contained in:
Daniel Nichter
2011-12-28 10:21:07 -07:00
parent d359013799
commit e00dca5e8f
11 changed files with 162 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,14 +9,16 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 1;
use PerconaTest;
TODO: {
local $TODO = "Test pt-ioprofile";
ok(1, 'ok');
};
my ($tool) = $PROGRAM_NAME =~ m/([\w-]+)\.t$/;
push @ARGV, "$trunk/t/$tool/*.sh" unless @ARGV;
$ENV{BIN_DIR} = "$trunk/bin";
$ENV{T_DIR} = "$trunk/t/$tool";
system("$trunk/util/test-bash-functions $trunk/t/lib/samples/bash/dummy.sh @ARGV");
# #############################################################################
# Done.