From 3c37730e0b29604ab1251a8a3e0fe3fd78f45295 Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Sat, 26 Sep 2015 22:02:13 +0200 Subject: [PATCH] use a working test URL The www.example.org URL is non-existent or even not reachable, so use a working one. This fixes RT #94510. --- t/10_request.t | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/t/10_request.t b/t/10_request.t index dde1f96..7f02983 100644 --- a/t/10_request.t +++ b/t/10_request.t @@ -7,6 +7,8 @@ my $tempdir = tempdir( CLEANUP => 1 ); my $ua = LWP::UserAgent::WithCache->new({ cache_root => $tempdir }); +my $uri = 'http://search.cpan.org/favicon.ico'; + my $res; { $res = HTTP::Response->parse(<<'EOF'); @@ -30,9 +32,8 @@ Client-Response-Num: 1 /* end StyleCatcher imports */ EOF -my $uri = 'http://www.example.com/styles.css'; $ua->set_cache($uri, $res); -my $cached_res = $ua->get('http://www.example.com/styles.css'); +my $cached_res = $ua->get($uri); is ($cached_res->code, 200); } @@ -57,9 +58,8 @@ Expires: Thr, 16 Jan 2038 03:14:06 GMT /* end StyleCatcher imports */ EOF -my $uri = 'http://www.example.com/styles.css'; $ua->set_cache($uri, $res); -my $cached_res = $ua->get('http://www.example.com/styles.css'); +my $cached_res = $ua->get($uri); is ($cached_res->code, 200); } @@ -91,14 +91,13 @@ Last-Modified: Thr, 01 Jan 1970 00:00:00 GMT EOF -my $uri = 'http://www.example.com/styles.css'; $ua->set_cache($uri, $res); ## override request method to get not_modified_res no warnings 'redefine'; local *LWP::UserAgent::request = sub {return $not_modified_res}; -my $cached_res = $ua->get('http://www.example.com/styles.css'); +my $cached_res = $ua->get($uri); is ($cached_res->code, 200); is ($cached_res->content, $res->content); -- 2.1.2