From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from pigeon.gentoo.org ([208.92.234.80] helo=lists.gentoo.org) by finch.gentoo.org with esmtp (Exim 4.60) (envelope-from ) id 1QI38g-0007LF-VL for garchives@archives.gentoo.org; Thu, 05 May 2011 18:19:03 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id AAE52E0429; Thu, 5 May 2011 18:16:45 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id 6309EE0429 for ; Thu, 5 May 2011 18:16:45 +0000 (UTC) Received: from pelican.gentoo.org (unknown [66.219.59.40]) (using TLSv1 with cipher ADH-CAMELLIA256-SHA (256/256 bits)) (No client certificate requested) by smtp.gentoo.org (Postfix) with ESMTPS id A61091B400C for ; Thu, 5 May 2011 18:16:44 +0000 (UTC) Received: from localhost.localdomain (localhost [127.0.0.1]) by pelican.gentoo.org (Postfix) with ESMTP id 0B38F80505 for ; Thu, 5 May 2011 18:16:44 +0000 (UTC) From: "Kent Fredric" To: gentoo-commits@lists.gentoo.org Content-type: text/plain; charset=UTF-8 Reply-To: gentoo-dev@lists.gentoo.org, "Kent Fredric" Message-ID: Subject: [gentoo-commits] proj/perl-overlay:perl514 commit in: dev-perl/Test-WWW-Mechanize/, dev-perl/Test-WWW-Mechanize/files/1.30/ X-VCS-Repository: proj/perl-overlay X-VCS-Files: dev-perl/Test-WWW-Mechanize/ChangeLog dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch X-VCS-Directories: dev-perl/Test-WWW-Mechanize/ dev-perl/Test-WWW-Mechanize/files/1.30/ X-VCS-Committer: kent X-VCS-Committer-Name: Kent Fredric X-VCS-Revision: f454abe2d3fd99b57189dde2de511c1945d23043 Date: Thu, 5 May 2011 18:16:44 +0000 (UTC) Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: List-Id: Gentoo Linux mail X-BeenThere: gentoo-commits@lists.gentoo.org Content-Transfer-Encoding: quoted-printable X-Archives-Salt: X-Archives-Hash: 763432e2335f6b51365972f192866bfd Message-ID: <20110505181644.u1docJ1pQw0iDS4RMF8Yx6iIHi1v1tjkGUntleNzERY@z> commit: f454abe2d3fd99b57189dde2de511c1945d23043 Author: Kent Fredric gmail com> AuthorDate: Sun May 1 07:06:12 2011 +0000 Commit: Kent Fredric gmail com> CommitDate: Sun May 1 07:06:12 2011 +0000 URL: http://git.overlays.gentoo.org/gitweb/?p=3Dproj/perl-overlay.= git;a=3Dcommit;h=3Df454abe2 [fix] regenerate -r2 patch to TWM to actually work (Portage version: 2.2.0_alpha30/git/Linux x86_64, RepoMan options: --forc= e, signed Manifest commit with key 0A0CB301) --- dev-perl/Test-WWW-Mechanize/ChangeLog | 4 + .../Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch | 84 ++++++++------= ------ 2 files changed, 38 insertions(+), 50 deletions(-) diff --git a/dev-perl/Test-WWW-Mechanize/ChangeLog b/dev-perl/Test-WWW-Me= chanize/ChangeLog index 03500a1..104ae66 100644 --- a/dev-perl/Test-WWW-Mechanize/ChangeLog +++ b/dev-perl/Test-WWW-Mechanize/ChangeLog @@ -2,6 +2,10 @@ # Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2 # $Header: /var/cvsroot/gentoo-x86/dev-perl/Test-WWW-Mechanize/ChangeLog= ,v 1.34 2011/01/04 19:11:47 tove Exp $ =20 + 01 May 2011; Kent Fredric + files/1.30/fix_dns-r2.patch: + Regenerate patch to actually work + *Test-WWW-Mechanize-1.30-r2 (01 May 2011) =20 01 May 2011; Kent Fredric diff --git a/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch b/de= v-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch index e13d18c..ccfac4c 100644 --- a/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch +++ b/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch @@ -1,3 +1,31 @@ +diff --git a/Changes b/Changes +index b796ca8..54ad52d 100644 +--- a/Changes ++++ b/Changes +@@ -15,6 +15,10 @@ Added $mech->text_contains(), $mech->text_like() and = $mech->text_unlike() + methods. These check the text of an HTML page separate from the + HTML markup. Thanks to Ashley Pond V. +=20 ++[FIXED] ++t/head_ok.t should no longer fail if your ISP "helpfully" returns ++an IP address for non-existent DNS records. Thanks, Schwern. ++ +=20 + 1.28 Tue Apr 13 00:44:27 CDT 2010 + ------------------------------------ +diff --git a/Mechanize.pm b/Mechanize.pm +index 1489344..3f4d54a 100644 +--- a/Mechanize.pm ++++ b/Mechanize.pm +@@ -100,7 +100,7 @@ called. +=20 + =3Dback +=20 +-This means you no longerhave to do the following: ++This means you no longer have to do the following: +=20 + my $mech =3D Test::WWW::Mechanize->new(); + $mech->get_ok( $url, 'Fetch the intro page' ); diff --git a/t/back_ok.t b/t/back_ok.t index 7042c90..d59df9e 100644 --- a/t/back_ok.t @@ -54,66 +82,22 @@ index 4df896f..f61ab81 100644 test_test( 'Fails to get nonexistent URI and reports failure' ); =20 diff --git a/t/head_ok.t b/t/head_ok.t -index 4557e83..bbfc062 100644 +index c123e70..bbfc062 100644 --- a/t/head_ok.t +++ b/t/head_ok.t -@@ -2,12 +2,21 @@ -=20 - use strict; - use warnings; --use Test::More tests =3D> 11; -+use Test::More; - use Test::Builder::Tester; -=20 --my $NONEXISTENT =3D 'blahblablah.xx-nonexistent.foo'; -+use constant NONEXISTENT =3D> 'http://blahblablah.xx-nonexistent.'; -+BEGIN { -+ if ( gethostbyname( NONEXISTENT ) ) { -+ plan skip_all =3D> 'Found an A record for the non-existent doma= in'; -+ } -+} -+ -+BEGIN { -+ plan tests =3D> 11; -+ use_ok( 'Test::WWW::Mechanize' ); -+} -=20 --require_ok( 'Test::WWW::Mechanize' ); -=20 - use lib 't'; - use TestServer; -@@ -16,7 +25,7 @@ my $server =3D TestServer->new; - my $pid =3D $server->background; - my $server_root =3D $server->root; -=20 --my $mech =3D Test::WWW::Mechanize->new( autocheck =3D> 0 ); -+my $mech=3DTest::WWW::Mechanize->new( autocheck =3D> 0 ); - isa_ok($mech,'Test::WWW::Mechanize'); -=20 - GOOD_HEAD: { # Stop giggling, you! -@@ -37,22 +46,15 @@ GOOD_HEAD: { # Stop giggling, you! - test_test('HEAD existing URI and reports success - default desc'); +@@ -47,14 +47,14 @@ GOOD_HEAD: { # Stop giggling, you! } =20 --# Bad HEAD test. Relies on getting an error finding a non-existent doma= in. --# Some ISPs "helpfully" provide resolution for non-existent domains, --# and thus this test fails by succeeding. We check for this annoying --# behavior and skip this subtest if we get it. --SKIP: { -- skip "Found an A record for the non-existent domain $NONEXISTENT", = 4 -- if gethostbyname $NONEXISTENT; -- -- my $badurl =3D "http://$NONEXISTENT/"; -+BAD_HEAD: { + BAD_HEAD: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; + my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; $mech->head($badurl); -- ok(!$mech->success, q{sanity check: we can't load $badurl} ); -+ ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); =20 test_out( 'not ok 1 - Try to HEAD bad URL' ); test_fail( +3 ); test_diag( '500' ); -- test_diag( qq{Can't connect to $NONEXISTENT:80 (Bad hostname '$NONE= XISTENT')} ); +- test_diag( q{Can't connect to wango.nonexistent.xx-only-testing:80 = (Bad hostname 'wango.nonexistent.xx-only-testing')} ); + test_diag( q{Can't connect to wango.nonexistent.xx-only-testing.:80= (Bad hostname)} ); my $ok =3D $mech->head_ok( $badurl, 'Try to HEAD bad URL' ); test_test( 'Fails to HEAD nonexistent URI and reports failure' );