my ($p, $uri, $qs) = @_;
$qs ||= '';
my $request = "$uri?p=repo1;$qs";
- warn("request: $request");
my $response = request($request);
ok($response->is_success, "ok $p - $uri");
}
my ($p, $uri, $qs) = @_;
$qs ||= '';
my $request = "$uri?p=repo1;$qs";
- warn("request: $request");
my $response = request($request);
ok($response->is_success, "ok $request");
}