Fixed various failing tests

This commit is contained in:
Brian Fraser
2012-11-21 17:04:42 -03:00
parent d6a7bf0cdb
commit b1e0aac38f
6 changed files with 43 additions and 62 deletions

View File

@@ -24,9 +24,9 @@ for my $test_url ( "http://www.percona.com/robots.txt", "https://v.percona.com"
my $tiny = HTTP::Tiny->new(max_redirect => 0)->request('GET', $test_url);
my $micro = HTTPMicro->new->request('GET', $test_url);
is_deeply(
like(
$micro->{content},
$tiny->{content},
qr/^\Q$tiny->{content}/,
"HTTPMicro == HTTP::Tiny for $test_url"
);
}