Fix init_agent.t.

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

View File

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

View File

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