percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-13 14:39:28 +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 "Can't run bzr, skipping tag checking", 1 unless $bzr;
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;
my @tags = split /\n/, `$bzr tags`;

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

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