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

Simplify and maybe fix crash in replace_special_vars().

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-14 21:22:55 -07:00
parent a148ce1cff
commit 490d95dee7
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
t/pt-agent/replace_special_vars.t
View File

@@ -19,6 +19,7 @@ require "$trunk/bin/pt-agent";
Percona::Toolkit->import(qw(have_required_args Dumper));
my @output_files = ();
my $store = {};
sub test_replace {
my (%args) = @_;
@@ -36,6 +37,10 @@ sub test_replace {
lib_dir => '/var/lib/pt-agent',
meta_dir => '/var/lib/pt-agent/meta',
stage_dir => '/var/spool/.tmp',
spool_dir => '/var/spool',
bin_dir => $trunk,
ts => '123',
store => $store,
);
is(
@@ -51,6 +56,12 @@ test_replace(
expect => "pt-query-digest zero",
);
$store->{slow_query_log_file} = 'slow.log';
test_replace(
cmd => "echo '__STORE_slow_query_log_file__' > /var/spool/pt-agent/.tmp/1371269644.rotate-slow-query-log-all-5.1.slow_query_log_file",
expect => "echo 'slow.log' > /var/spool/pt-agent/.tmp/1371269644.rotate-slow-query-log-all-5.1.slow_query_log_file",
);
# #############################################################################
# Done.
# #############################################################################