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

Fix t/lib/Percona/Toolkit.t and t/lib/Percona/WebAPI/Client.t.

Browse Source
This commit is contained in:
Daniel Nichter
2013-08-08 12:34:29 -07:00
parent 50d33a4f00
commit f62e395b38
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -71,7 +71,7 @@ my $bzr = can_run('bzr');
SKIP: { SKIP: {
skip "Can't run bzr, skipping tag checking", 1 unless $bzr; skip "Can't run bzr, skipping tag checking", 1 unless $bzr;
chomp(my $root = `$bzr root 2>/dev/null`); chomp(my $root = `$bzr root 2>/dev/null`);
skip '$trunk and bzr root differ, skipping tag checking' skip '$trunk and bzr root differ, skipping tag checking', 1
unless $root eq $trunk; unless $root eq $trunk;
my @tags = split /\n/, `$bzr tags`; my @tags = split /\n/, `$bzr tags`;

3
t/lib/Percona/WebAPI/Client.t
View File

@@ -76,7 +76,7 @@ is_deeply(
is_deeply( is_deeply(
$ua->{requests}, $ua->{requests},
[ [
'GET https://api.tools.percona.com', 'GET https://cloud-api.percona.com',
], ],
"1 request, 1 GET" "1 request, 1 GET"
) or diag(Dumper($ua->{requests})); ) or diag(Dumper($ua->{requests}));
@@ -195,6 +195,7 @@ my $run0 = Percona::WebAPI::Resource::Task->new(
); );
my $svc0 = Percona::WebAPI::Resource::Service->new( my $svc0 = Percona::WebAPI::Resource::Service->new(
ts => '123',
name => 'query-monitor', name => 'query-monitor',
run_schedule => '1 * * * *', run_schedule => '1 * * * *',
spool_schedule => '2 * * * *', spool_schedule => '2 * * * *',