| Subject: | Feed-Find fails live network tests when no direct port 80 access is available |
Tests fail if you have no direct port 80 access and must use a proxy.
Patch below for the lib and for the test:
--- lib/Feed/Find.pm 2010-01-19 13:18:47.000000000 +0000
+++ lib/Feed/Find.pm 2010-01-19 13:18:22.000000000 +0000
@@ -27,6 +27,7 @@
my $class = shift;
my($uri) = @_;
my $ua = LWP::UserAgent->new;
+ $ua->env_proxy;
$ua->agent(join '/', $class, $class->VERSION);
$ua->parse_head(0); ## We're already basically doing this ourselves.
my $req = HTTP::Request->new(GET => $uri);
--- t/01-find.t 2010-01-19 13:20:18.000000000 +0000
+++ t/01-find.t 2010-01-19 13:20:13.000000000 +0000
@@ -14,6 +14,7 @@
is($feeds[0], BASE . 'ok.xml');
my $ua = LWP::UserAgent->new;
+$ua->env_proxy;
my $req = HTTP::Request->new(GET => BASE . 'anchors-only.html');
my $res = $ua->request($req);
@feeds = Feed::Find->find_in_html(\$res->content, BASE .
'anchors-only.html');
Thanks, Ian.