percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-14 15:33:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

t/lib/Percona/Toolkit.t: Test Percona::Toolkit::VERSION differently to avoid a bug in Centos 5.6

Browse Source
This commit is contained in:
Brian Fraser
2012-12-21 09:07:21 -03:00
parent 7f80ffc860
commit 4f010f52dc
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,6 +15,8 @@ use IPC::Cmd qw(run can_run);
use PerconaTest; use PerconaTest;
use Percona::Toolkit; use Percona::Toolkit;
use File::Temp qw(tempfile);
my $version = $Percona::Toolkit::VERSION; my $version = $Percona::Toolkit::VERSION;
my $perl = $^X; my $perl = $^X;
@@ -42,13 +44,15 @@ foreach my $tool ( @vc_tools ) {
next unless $is_perl; next unless $is_perl;
my ($fh, $filename) = tempfile( "pt-version-test-XXXXXXX", UNLINK => 1 );
print { $fh } "require q{$tool}; print \$Percona::Toolkit::VERSION, qq{\\n}";
close $fh;
my ($success, undef, $full_buf) = my ($success, undef, $full_buf) =
run( run( command => [ $perl, $filename ] );
command => [ $perl, '-le', "require q{$tool}; print \$Percona::Toolkit::VERSION"]
);
if ( !$success ) { if ( !$success ) {
fail("Failed to get \$Percona::Toolkit::VERSION from $base: $full_buf") fail("Failed to get \$Percona::Toolkit::VERSION from $base: " . $full_buf ? join("", @$full_buf) : '')
} }
else { else {
chomp(@$full_buf); chomp(@$full_buf);