percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 13:40:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Pushed the lib/Percona/Toolkit.pm version, and added extra tests to t/lib/Percona/Toolkit.t

Browse Source
This commit is contained in:
Brian Fraser
2012-11-13 12:10:25 -03:00
parent 79a3ab3e0f
commit c811d60ae1
21 changed files with 208 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
t/lib/Percona/Toolkit.t
View File

@@ -10,11 +10,15 @@ use strict;
use warnings FATAL => 'all';
use Test::More;
use IPC::Cmd qw(run can_run);
use PerconaTest;
use Percona::Toolkit;
my $version = $Percona::Toolkit::VERSION;
my $perl = $^X;
use File::Basename qw(basename);
my @vc_tools = grep { chomp; basename($_) =~ /\A[a-z-]+\z/ } glob("$trunk/bin/*");
@@ -28,9 +32,36 @@ foreach my $tool ( @vc_tools ) {
$version,
"$base --version and Percona::Toolkit::VERSION agree"
);
}
use IPC::Cmd qw(can_run);
# Now let's check that lib/Percona/Toolkit.pm and each tool's
# $Percona::Toolkit::VERSION agree, sow e can avoid the 2.1.4 pt-table-sync
# debacle
open my $tmp_fh, q{<}, $tool or die "$!";
my $is_perl = scalar(<$tmp_fh>) =~ /perl/;
close $tmp_fh;
next unless $is_perl;
my ($success, undef, $full_buf) =
run(
command => [ $perl, '-le', "require q{$tool}; print \$Percona::Toolkit::VERSION"]
);
if ( !$success ) {
fail("Failed to get \$Percona::Toolkit::VERSION from $base: $full_buf")
}
else {
chomp(@$full_buf);
my $out = join "", @$full_buf;
if ($out) {
is(
"@$full_buf",
$version,
"$base and lib/Percona/Toolkit.pm agree"
);
}
}
}
my $bzr = can_run('bzr');
SKIP: {