Quick fix to the live internet tests

davorg-cpan · Jun 9, 2021 · e421abd · e421abd
1 parent 612f44e
commit e421abd
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/t/01-find.t b/t/01-find.t
@@ -3,18 +3,18 @@ use Test::More tests => 4;
 use Feed::Find;
 use LWP::UserAgent;
 
-use constant BASE => 'http://stupidfool.org/perl/feeds/';
+use constant BASE => 'https://davecross.co.uk/';
 
 my(@feeds);
 
-@feeds = Feed::Find->find(BASE . 'anchors-only.html');
+@feeds = Feed::Find->find(BASE . '2020-vision/');
 is(scalar @feeds, 1);
-is($feeds[0], BASE . 'ok.xml');
+is($feeds[0], BASE . '2020-vision/feed.atom');
 
 my $ua = LWP::UserAgent->new;
 $ua->env_proxy;
-my $req = HTTP::Request->new(GET => BASE . 'anchors-only.html');
+my $req = HTTP::Request->new(GET => BASE . '2020-vision/');
 my $res = $ua->request($req);
-@feeds = Feed::Find->find_in_html(\$res->content, BASE . 'anchors-only.html');
+@feeds = Feed::Find->find_in_html(\$res->content, BASE . '2020-vision/');
 is(scalar @feeds, 1);
-is($feeds[0], BASE . 'ok.xml');
+is($feeds[0], BASE . '2020-vision/feed.atom');