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

Fix init_agent.t.

Browse Source
This commit is contained in:
Daniel Nichter
2013-01-30 15:52:26 -07:00
parent 82601d38e6
commit 9cc3c81143
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-agent
View File

@@ -4962,7 +4962,6 @@ sub make_new_crontab {
. " pt-agent --run-service " . " pt-agent --run-service "
. $service->name; . $service->name;
if ( $service->spool_schedule ) { if ( $service->spool_schedule ) {
# TODO: test
push @pt_agent_lines, push @pt_agent_lines,
$service->spool_schedule $service->spool_schedule
. " pt-agent --send-data " . " pt-agent --send-data "
@@ -5327,9 +5326,10 @@ sub get_uuid {
return '123'; return '123';
} }
# TODO: use VersionCheck::get_versions().
sub get_versions { sub get_versions {
return { return {
'Perl' => "5.10.0", 'Perl' => sprintf('%vd', $PERL_VERSION),
'Percona::WebAPI::Client' => "$Percona::WebAPI::Client::VERSION", 'Percona::WebAPI::Client' => "$Percona::WebAPI::Client::VERSION",
}; };
} }

2
t/pt-agent/init_agent.t
View File

@@ -90,7 +90,7 @@ is_deeply(
hostname => `hostname`, hostname => `hostname`,
versions => { versions => {
'Percona::WebAPI::Client' => "$Percona::WebAPI::Client::VERSION", 'Percona::WebAPI::Client' => "$Percona::WebAPI::Client::VERSION",
'Perl' => sprintf '%vd', $PERL_VERSION, 'Perl' => sprintf('%vd', $PERL_VERSION),
} }
}, },
'Create new Agent' 'Create new Agent'