Bug #20953 for WWW-Mechanize: Live Google tests fail -- possible web site change?

Patch attached. On Fri Aug 11 13:23:16 2006, TALEXB wrote: Show quoted text
71.43%) Show quoted text

Index: t/live/follow_link.t =================================================================== --- t/live/follow_link.t (revision 6800) +++ t/live/follow_link.t (working copy) @@ -3,7 +3,7 @@ use warnings; use strict; use Test::More tests => 7; -use constant START => 'http://www.google.com/intl/en/'; +use constant START => 'http://cpan.org/'; BEGIN { use_ok( 'WWW::Mechanize' ); @@ -13,12 +13,12 @@ isa_ok( $agent, 'WWW::Mechanize' ); my $response = $agent->get( START ); -ok( $response->is_success, 'Got some page' ) or die "Can't even get Google"; -is( $agent->uri, START, 'Got Google' ); +ok( $response->is_success, 'Got some page' ) or die "Can't even get CPAN"; +is( $agent->uri, START, 'Got CPAN' ); -$response = $agent->follow_link( text_regex => qr/Advertising.Programs/i ); +$response = $agent->follow_link( text_regex => qr/Perl core documentation/i ); ok( $response->is_success, 'Got the page' ); -is( $agent->uri, 'http://www.google.com/ads/', "Got the correct page" ); +is( $agent->uri, 'http://perldoc.perl.org/', "Got the correct page" ); SKIP: { eval "use Test::Memory::Cycle"; Index: t/live/get.t =================================================================== --- t/live/get.t (revision 6800) +++ t/live/get.t (working copy) @@ -12,35 +12,35 @@ my $agent = WWW::Mechanize->new; isa_ok( $agent, 'WWW::Mechanize' ); -ok($agent->get("http://www.google.com/intl/en/")->is_success, "Get google webpage"); +ok($agent->get("http://cpan.org/")->is_success, "Get CPAN webpage"); is( ref $agent->uri, "", "URI should be a string, not an object" ); ok( $agent->is_html, "Seems to be HTML" ); -is( $agent->title, "Google", "Title matches" ); +is( $agent->title, "CPAN", "Title matches" ); -my $services = $agent->find_link( url_regex => qr[/ads/] ); +my $services = $agent->find_link( url_regex => qr[modules/] ); isa_ok( $services, 'WWW::Mechanize::Link' ); -ok( $agent->get( $services )->is_success, 'Got the ads page' ); -is( $agent->uri, 'http://www.google.com/ads/', "Got relative OK" ); +ok( $agent->get( $services )->is_success, 'Got the modules page' ); +is( $agent->uri, 'http://cpan.org/modules/index.html', "Got relative OK" ); ok( $agent->is_html ); -is( $agent->title, "Google Advertising", "Got the right page" ); +is( $agent->title, "CPAN/modules", "Got the right page" ); -ok( $agent->get( '../support/' )->is_success, 'Got the support page' ); -is( $agent->uri, 'http://www.google.com/support/', "Got relative OK" ); +ok( $agent->get( '../scripts/' )->is_success, 'Got the scripts page' ); +is( $agent->uri, 'http://cpan.org/scripts/', "Got relative OK" ); ok( $agent->is_html ); -is( $agent->title, "Google: Help Center", "Title matches" ); +is( $agent->title, "Scripts on CPAN", "Title matches" ); -ok( $agent->get( '../help/basics.html' )->is_success, 'Got the basics page' ); -is( $agent->uri, 'http://www.google.com/help/basics.html', "Got relative OK" ); -ok( $agent->is_html, "Basics page is HTML" ); -is( $agent->title, "Google Help : Basics of Search", "Title matches" ); -like_string( $agent->content, qr/Essentials of Google Search/, "Got the right page" ); +ok( $agent->get( '../scripts/submitting.html' )->is_success, 'Got the submitting page' ); +is( $agent->uri, 'http://cpan.org/scripts/submitting.html', "Got relative OK" ); +ok( $agent->is_html, "Submitting page is HTML" ); +is( $agent->title, "Submitting a Script", "Title matches" ); +like_string( $agent->content, qr/How to submit a script to CPAN/i, "Got the right page" ); -ok( $agent->get( './refinesearch.html' )->is_success, 'Got the "refine search" page' ); -is( $agent->uri, 'http://www.google.com/help/refinesearch.html', "Got relative OK" ); -ok( $agent->is_html, "Refine Search page is HTML" ); -is( $agent->title, "Google Help : Advanced Search" ); -like_string( $agent->content, qr/Advanced Search Made Easy/, "Got the right page" ); +ok( $agent->get( './legacy.html' )->is_success, 'Got the "legacy scripts" page' ); +is( $agent->uri, 'http://cpan.org/scripts/legacy.html', "Got relative OK" ); +ok( $agent->is_html, "Legacy Scripts page is HTML" ); +is( $agent->title, "``Legacy'' Scripts on CPAN" ); +like_string( $agent->content, qr/This page is maintained for historical reasons/i, "Got the right page" ); SKIP: { eval "use Test::Memory::Cycle";