diff --git a/t/lib/Percona/Toolkit.t b/t/lib/Percona/Toolkit.t index df4488dc..fdccdcfe 100644 --- a/t/lib/Percona/Toolkit.t +++ b/t/lib/Percona/Toolkit.t @@ -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`; diff --git a/t/lib/Percona/WebAPI/Client.t b/t/lib/Percona/WebAPI/Client.t index 5e365913..c78fddb5 100644 --- a/t/lib/Percona/WebAPI/Client.t +++ b/t/lib/Percona/WebAPI/Client.t @@ -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 * * * *',