Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Change live tests to not be location specific
  • Loading branch information
marcusramberg committed Dec 21, 2011
1 parent c728047 commit a82bf6d
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions t/mojo/user_agent_online.t
Expand Up @@ -210,32 +210,32 @@ is $tx->req->method, 'GET', 'right method';
is $tx->req->url, 'http://www.apache.org', 'right url';
is $tx->res->code, 200, 'right status';
ok $tx->kept_alive, 'connection was kept alive';
$tx = $ua->get('http://www.google.de');
$tx = $ua->get('http://www.wikipedia.org');
is $tx->req->method, 'GET', 'right method';
is $tx->req->url, 'http://www.google.de', 'right url';
is $tx->req->url, 'http://www.wikipedia.org', 'right url';
is $tx->res->code, 200, 'right status';

# Simple requests with redirect
$ua->max_redirects(3);
$tx = $ua->get('http://www.google.com');
$tx = $ua->get('http://wikipedia.org/wiki/Perl');
$ua->max_redirects(0);
is $tx->req->method, 'GET', 'right method';
is $tx->req->url, 'http://www.google.de/', 'right url';
is $tx->req->url, 'http://en.wikipedia.org/wiki/Perl', 'right url';
is $tx->res->code, 200, 'right status';
is $tx->previous->req->method, 'GET', 'right method';
is $tx->previous->req->url, 'http://www.google.com', 'right url';
is $tx->previous->res->code, 302, 'right status';
is $tx->previous->req->url, 'http://www.wikipedia.org/wiki/Perl', 'right url';
is $tx->previous->res->code, 301, 'right status';

# Simple requests with redirect and no callback
$ua->max_redirects(3);
$tx = $ua->get('http://www.google.com');
$tx = $ua->get('http://wikipedia.org/wiki/Perl');
$ua->max_redirects(0);
is $tx->req->method, 'GET', 'right method';
is $tx->req->url, 'http://www.google.de/', 'right url';
is $tx->req->url, 'http://en.wikipedia.org/wiki/Perl', 'right url';
is $tx->res->code, 200, 'right status';
is $tx->previous->req->method, 'GET', 'right method';
is $tx->previous->req->url, 'http://www.google.com', 'right url';
is $tx->previous->res->code, 302, 'right status';
is $tx->previous->req->url, 'http://www.wikipedia.org/wiki/Perl', 'right url';
is $tx->previous->res->code, 301, 'right status';

# Custom chunked request without callback
$tx = Mojo::Transaction::HTTP->new;
Expand Down

0 comments on commit a82bf6d

Please sign in to comment.