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 1QGQdB-0006Kx-C8 for garchives@archives.gentoo.org; Sun, 01 May 2011 06:59:49 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id 5A4ED1C01A; Sun, 1 May 2011 06:57:47 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id 17CD81C011 for ; Sun, 1 May 2011 06:57:46 +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 77B1F1B4038 for ; Sun, 1 May 2011 06:57:46 +0000 (UTC) Received: from localhost.localdomain (localhost [127.0.0.1]) by pelican.gentoo.org (Postfix) with ESMTP id D0A3F80505 for ; Sun, 1 May 2011 06:57:45 +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: <27a3e0248ac0af33e3838b3ba8a6ab1dc3692611.kent@gentoo> 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/Test-WWW-Mechanize-1.30-r2.ebuild 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: 27a3e0248ac0af33e3838b3ba8a6ab1dc3692611 Date: Sun, 1 May 2011 06:57:45 +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: 95c997e33f848d1055c9fd4d08e9af38 commit: 27a3e0248ac0af33e3838b3ba8a6ab1dc3692611 Author: Kent Fredric gmail com> AuthorDate: Sun May 1 06:54:47 2011 +0000 Commit: Kent Fredric gmail com> CommitDate: Sun May 1 06:55:20 2011 +0000 URL: http://git.overlays.gentoo.org/gitweb/?p=3Dproj/perl-overlay.= git;a=3Dcommit;h=3D27a3e024 [fix] Test-WWW-Mechanize ( Perl 5.14 test fails, Misc pending upstream fi= xes ) (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 | 7 + .../Test-WWW-Mechanize-1.30-r2.ebuild | 29 ++++ .../Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch | 155 ++++++++++++++= ++++++ 3 files changed, 191 insertions(+), 0 deletions(-) diff --git a/dev-perl/Test-WWW-Mechanize/ChangeLog b/dev-perl/Test-WWW-Me= chanize/ChangeLog index f57481e..03500a1 100644 --- a/dev-perl/Test-WWW-Mechanize/ChangeLog +++ b/dev-perl/Test-WWW-Mechanize/ChangeLog @@ -2,6 +2,13 @@ # 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 +*Test-WWW-Mechanize-1.30-r2 (01 May 2011) + + 01 May 2011; Kent Fredric + +files/1.30/fix_dns-r2.patch, +Test-WWW-Mechanize-1.30-r2.ebuild: + Added more vendor patches to make tests pass again with recent modules= and + Perl 5.14. Dep on 5.14 for tests because the tests aren't back-compat + *Test-WWW-Mechanize-1.30-r1 (21 Apr 2011) =20 21 Apr 2011; Kent Fredric +files/1.30/fix_dns.= patch, diff --git a/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuil= d b/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuild new file mode 100644 index 0000000..b87a0aa --- /dev/null +++ b/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuild @@ -0,0 +1,29 @@ +# Copyright 1999-2011 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/dev-perl/Test-WWW-Mechanize/Test-WWW-= Mechanize-1.30.ebuild,v 1.1 2010/06/12 11:58:40 tove Exp $ + +EAPI=3D3 + +MODULE_AUTHOR=3DPETDANCE +inherit perl-module + +DESCRIPTION=3D"Testing-specific WWW::Mechanize subclass" + +SLOT=3D"0" +KEYWORDS=3D"~amd64 ~ppc ~sparc ~x86 ~amd64-linux ~x86-linux ~ppc-macos ~= x86-macos" +IUSE=3D"test" +PATCHES=3D( + "${FILESDIR}/${PV}/fix_dns-r2.patch" +) +RDEPEND=3D">=3Ddev-perl/WWW-Mechanize-1.24 + dev-perl/Carp-Assert-More + dev-perl/URI + >=3Ddev-perl/Test-LongString-0.12" +DEPEND=3D"${RDEPEND} + test? ( >=3Ddev-perl/HTTP-Server-Simple-0.35 + dev-perl/Test-Pod + dev-perl/Test-Pod-Coverage + >dev-lang/perl-5.13.999 + )" + +SRC_TEST=3D"do" 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 new file mode 100644 index 0000000..e13d18c --- /dev/null +++ b/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch @@ -0,0 +1,155 @@ +diff --git a/t/back_ok.t b/t/back_ok.t +index 7042c90..d59df9e 100644 +--- a/t/back_ok.t ++++ b/t/back_ok.t +@@ -47,14 +47,14 @@ GOOD_GET: { + } +=20 + BAD_GET: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; ++ my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; + $mech->get($badurl); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); +=20 + test_out( 'not ok 1 - Try to get bad URL' ); + test_fail( +3 ); + test_diag( '500' ); +- 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->get_ok( $badurl, 'Try to get bad URL' ); + test_test( 'Fails to get nonexistent URI and reports failure' ); +=20 +diff --git a/t/content_lacks.t b/t/content_lacks.t +index 0a9792c..fdd3525 100644 +--- a/t/content_lacks.t ++++ b/t/content_lacks.t +@@ -35,7 +35,7 @@ test_out( q{not ok 1 - Shouldn't say it's a test page}= ); + test_fail(+4); + test_diag(q( searched: "\x{0a} \x{0a} T= est Page"...) ); + test_diag(q( and found: "Test Page") ); +-test_diag(q( at position: 33) ); ++test_diag(q( at position: 33 (line 3 column 16)) ); + $mech->content_lacks( 'Test Page', q{Shouldn't say it's a test page} ); + test_test( 'Handles not finding it' ); +=20 +diff --git a/t/get_ok.t b/t/get_ok.t +index 4df896f..f61ab81 100644 +--- a/t/get_ok.t ++++ b/t/get_ok.t +@@ -48,14 +48,14 @@ GOOD_GET: { + } +=20 + BAD_GET: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; ++ my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; + $mech->get($badurl); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); +=20 + test_out( 'not ok 1 - Try to get bad URL' ); + test_fail( +3 ); + test_diag( '500' ); +- 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->get_ok( $badurl, 'Try to get bad URL' ); + 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 +--- 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'); + } +=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: { ++ 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}= ); +=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)} ); + my $ok =3D $mech->head_ok( $badurl, 'Try to HEAD bad URL' ); + test_test( 'Fails to HEAD nonexistent URI and reports failure' ); +=20 +diff --git a/t/link_content.t b/t/link_content.t +index 3f89e1c..22b83d3 100644 +--- a/t/link_content.t ++++ b/t/link_content.t +@@ -36,7 +36,7 @@ $mech->link_content_like(\@urls,qr/Test/,'Checking all= page links contain: Test' + test_test('Handles All page links contents successful'); +=20 + # like - default desc +-test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?-xism:Test)\'= '); ++test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?^:Test)\''); + $mech->link_content_like(\@urls,qr/Test/); + test_test('Handles All page links contents successful - default desc'); +=20 +@@ -61,7 +61,7 @@ $mech->link_content_unlike(\@urls,qr/BadTest/,'Checkin= g all page links do not co + test_test('Handles All page links unlike contents successful'); +=20 + # unlike - default desc +-test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?-xism:BadT= est)"'); ++test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?^:BadTest)= "'); + $mech->link_content_unlike(\@urls,qr/BadTest/); + test_test('Handles All page links unlike contents successful - default = desc'); +=20 +diff --git a/t/page_links_content.t b/t/page_links_content.t +index 6c37393..a71df7f 100644 +--- a/t/page_links_content.t ++++ b/t/page_links_content.t +@@ -34,7 +34,7 @@ $mech->page_links_content_like(qr/Test/,'Checking all = page links contain: Test') + test_test('Handles All page links contents successful'); +=20 + # like - default desc +-test_out(q{ok 1 - All links are like "(?-xism:Test)"}); ++test_out(q{ok 1 - All links are like "(?^:Test)"}); + $mech->page_links_content_like(qr/Test/); + test_test('Handles All page links contents successful'); +=20 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 1QGQZV-0005s9-KV for garchives@archives.gentoo.org; Sun, 01 May 2011 06:56:01 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id EFE4E1C011; Sun, 1 May 2011 06:55:53 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id B06351C011 for ; Sun, 1 May 2011 06:55:53 +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 C13F51B4035 for ; Sun, 1 May 2011 06:55:52 +0000 (UTC) Received: from localhost.localdomain (localhost [127.0.0.1]) by pelican.gentoo.org (Postfix) with ESMTP id 0179480505 for ; Sun, 1 May 2011 06:55:52 +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: <27a3e0248ac0af33e3838b3ba8a6ab1dc3692611.kent@gentoo> Subject: [gentoo-commits] proj/perl-overlay:master 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/Test-WWW-Mechanize-1.30-r2.ebuild 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: 27a3e0248ac0af33e3838b3ba8a6ab1dc3692611 Date: Sun, 1 May 2011 06:55:52 +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: 39a3a6017364dacfa9fac0d8e2695e38 Message-ID: <20110501065552.TeN4VMZsr2C-2LFCcOZfduCEp4xMRUotqB1JWHeledE@z> commit: 27a3e0248ac0af33e3838b3ba8a6ab1dc3692611 Author: Kent Fredric gmail com> AuthorDate: Sun May 1 06:54:47 2011 +0000 Commit: Kent Fredric gmail com> CommitDate: Sun May 1 06:55:20 2011 +0000 URL: http://git.overlays.gentoo.org/gitweb/?p=3Dproj/perl-overlay.= git;a=3Dcommit;h=3D27a3e024 [fix] Test-WWW-Mechanize ( Perl 5.14 test fails, Misc pending upstream fi= xes ) (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 | 7 + .../Test-WWW-Mechanize-1.30-r2.ebuild | 29 ++++ .../Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch | 155 ++++++++++++++= ++++++ 3 files changed, 191 insertions(+), 0 deletions(-) diff --git a/dev-perl/Test-WWW-Mechanize/ChangeLog b/dev-perl/Test-WWW-Me= chanize/ChangeLog index f57481e..03500a1 100644 --- a/dev-perl/Test-WWW-Mechanize/ChangeLog +++ b/dev-perl/Test-WWW-Mechanize/ChangeLog @@ -2,6 +2,13 @@ # 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 +*Test-WWW-Mechanize-1.30-r2 (01 May 2011) + + 01 May 2011; Kent Fredric + +files/1.30/fix_dns-r2.patch, +Test-WWW-Mechanize-1.30-r2.ebuild: + Added more vendor patches to make tests pass again with recent modules= and + Perl 5.14. Dep on 5.14 for tests because the tests aren't back-compat + *Test-WWW-Mechanize-1.30-r1 (21 Apr 2011) =20 21 Apr 2011; Kent Fredric +files/1.30/fix_dns.= patch, diff --git a/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuil= d b/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuild new file mode 100644 index 0000000..b87a0aa --- /dev/null +++ b/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuild @@ -0,0 +1,29 @@ +# Copyright 1999-2011 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/dev-perl/Test-WWW-Mechanize/Test-WWW-= Mechanize-1.30.ebuild,v 1.1 2010/06/12 11:58:40 tove Exp $ + +EAPI=3D3 + +MODULE_AUTHOR=3DPETDANCE +inherit perl-module + +DESCRIPTION=3D"Testing-specific WWW::Mechanize subclass" + +SLOT=3D"0" +KEYWORDS=3D"~amd64 ~ppc ~sparc ~x86 ~amd64-linux ~x86-linux ~ppc-macos ~= x86-macos" +IUSE=3D"test" +PATCHES=3D( + "${FILESDIR}/${PV}/fix_dns-r2.patch" +) +RDEPEND=3D">=3Ddev-perl/WWW-Mechanize-1.24 + dev-perl/Carp-Assert-More + dev-perl/URI + >=3Ddev-perl/Test-LongString-0.12" +DEPEND=3D"${RDEPEND} + test? ( >=3Ddev-perl/HTTP-Server-Simple-0.35 + dev-perl/Test-Pod + dev-perl/Test-Pod-Coverage + >dev-lang/perl-5.13.999 + )" + +SRC_TEST=3D"do" 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 new file mode 100644 index 0000000..e13d18c --- /dev/null +++ b/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch @@ -0,0 +1,155 @@ +diff --git a/t/back_ok.t b/t/back_ok.t +index 7042c90..d59df9e 100644 +--- a/t/back_ok.t ++++ b/t/back_ok.t +@@ -47,14 +47,14 @@ GOOD_GET: { + } +=20 + BAD_GET: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; ++ my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; + $mech->get($badurl); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); +=20 + test_out( 'not ok 1 - Try to get bad URL' ); + test_fail( +3 ); + test_diag( '500' ); +- 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->get_ok( $badurl, 'Try to get bad URL' ); + test_test( 'Fails to get nonexistent URI and reports failure' ); +=20 +diff --git a/t/content_lacks.t b/t/content_lacks.t +index 0a9792c..fdd3525 100644 +--- a/t/content_lacks.t ++++ b/t/content_lacks.t +@@ -35,7 +35,7 @@ test_out( q{not ok 1 - Shouldn't say it's a test page}= ); + test_fail(+4); + test_diag(q( searched: "\x{0a} \x{0a} T= est Page"...) ); + test_diag(q( and found: "Test Page") ); +-test_diag(q( at position: 33) ); ++test_diag(q( at position: 33 (line 3 column 16)) ); + $mech->content_lacks( 'Test Page', q{Shouldn't say it's a test page} ); + test_test( 'Handles not finding it' ); +=20 +diff --git a/t/get_ok.t b/t/get_ok.t +index 4df896f..f61ab81 100644 +--- a/t/get_ok.t ++++ b/t/get_ok.t +@@ -48,14 +48,14 @@ GOOD_GET: { + } +=20 + BAD_GET: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; ++ my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; + $mech->get($badurl); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); +=20 + test_out( 'not ok 1 - Try to get bad URL' ); + test_fail( +3 ); + test_diag( '500' ); +- 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->get_ok( $badurl, 'Try to get bad URL' ); + 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 +--- 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'); + } +=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: { ++ 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}= ); +=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)} ); + my $ok =3D $mech->head_ok( $badurl, 'Try to HEAD bad URL' ); + test_test( 'Fails to HEAD nonexistent URI and reports failure' ); +=20 +diff --git a/t/link_content.t b/t/link_content.t +index 3f89e1c..22b83d3 100644 +--- a/t/link_content.t ++++ b/t/link_content.t +@@ -36,7 +36,7 @@ $mech->link_content_like(\@urls,qr/Test/,'Checking all= page links contain: Test' + test_test('Handles All page links contents successful'); +=20 + # like - default desc +-test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?-xism:Test)\'= '); ++test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?^:Test)\''); + $mech->link_content_like(\@urls,qr/Test/); + test_test('Handles All page links contents successful - default desc'); +=20 +@@ -61,7 +61,7 @@ $mech->link_content_unlike(\@urls,qr/BadTest/,'Checkin= g all page links do not co + test_test('Handles All page links unlike contents successful'); +=20 + # unlike - default desc +-test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?-xism:BadT= est)"'); ++test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?^:BadTest)= "'); + $mech->link_content_unlike(\@urls,qr/BadTest/); + test_test('Handles All page links unlike contents successful - default = desc'); +=20 +diff --git a/t/page_links_content.t b/t/page_links_content.t +index 6c37393..a71df7f 100644 +--- a/t/page_links_content.t ++++ b/t/page_links_content.t +@@ -34,7 +34,7 @@ $mech->page_links_content_like(qr/Test/,'Checking all = page links contain: Test') + test_test('Handles All page links contents successful'); +=20 + # like - default desc +-test_out(q{ok 1 - All links are like "(?-xism:Test)"}); ++test_out(q{ok 1 - All links are like "(?^:Test)"}); + $mech->page_links_content_like(qr/Test/); + test_test('Handles All page links contents successful'); +=20 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 1QGQcq-0006G7-BC for garchives@archives.gentoo.org; Sun, 01 May 2011 06:59:28 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id 7F0A11C06E; Sun, 1 May 2011 06:57:51 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id 3BA771C06E for ; Sun, 1 May 2011 06:57:51 +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 9828D1B4095 for ; Sun, 1 May 2011 06:57:50 +0000 (UTC) Received: from localhost.localdomain (localhost [127.0.0.1]) by pelican.gentoo.org (Postfix) with ESMTP id F06998050A for ; Sun, 1 May 2011 06:57:49 +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: <27a3e0248ac0af33e3838b3ba8a6ab1dc3692611.kent@gentoo> Subject: [gentoo-commits] proj/perl-overlay:perl514virtuals 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/Test-WWW-Mechanize-1.30-r2.ebuild 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: 27a3e0248ac0af33e3838b3ba8a6ab1dc3692611 Date: Sun, 1 May 2011 06:57:49 +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: 40c8f43cb289e92dbe1c197779e64f46 Message-ID: <20110501065749.NPuT2GfCYgrU1sOPCIr93wy5aPIFMJh-OOq0reJYe0M@z> commit: 27a3e0248ac0af33e3838b3ba8a6ab1dc3692611 Author: Kent Fredric gmail com> AuthorDate: Sun May 1 06:54:47 2011 +0000 Commit: Kent Fredric gmail com> CommitDate: Sun May 1 06:55:20 2011 +0000 URL: http://git.overlays.gentoo.org/gitweb/?p=3Dproj/perl-overlay.= git;a=3Dcommit;h=3D27a3e024 [fix] Test-WWW-Mechanize ( Perl 5.14 test fails, Misc pending upstream fi= xes ) (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 | 7 + .../Test-WWW-Mechanize-1.30-r2.ebuild | 29 ++++ .../Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch | 155 ++++++++++++++= ++++++ 3 files changed, 191 insertions(+), 0 deletions(-) diff --git a/dev-perl/Test-WWW-Mechanize/ChangeLog b/dev-perl/Test-WWW-Me= chanize/ChangeLog index f57481e..03500a1 100644 --- a/dev-perl/Test-WWW-Mechanize/ChangeLog +++ b/dev-perl/Test-WWW-Mechanize/ChangeLog @@ -2,6 +2,13 @@ # 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 +*Test-WWW-Mechanize-1.30-r2 (01 May 2011) + + 01 May 2011; Kent Fredric + +files/1.30/fix_dns-r2.patch, +Test-WWW-Mechanize-1.30-r2.ebuild: + Added more vendor patches to make tests pass again with recent modules= and + Perl 5.14. Dep on 5.14 for tests because the tests aren't back-compat + *Test-WWW-Mechanize-1.30-r1 (21 Apr 2011) =20 21 Apr 2011; Kent Fredric +files/1.30/fix_dns.= patch, diff --git a/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuil= d b/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuild new file mode 100644 index 0000000..b87a0aa --- /dev/null +++ b/dev-perl/Test-WWW-Mechanize/Test-WWW-Mechanize-1.30-r2.ebuild @@ -0,0 +1,29 @@ +# Copyright 1999-2011 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: /var/cvsroot/gentoo-x86/dev-perl/Test-WWW-Mechanize/Test-WWW-= Mechanize-1.30.ebuild,v 1.1 2010/06/12 11:58:40 tove Exp $ + +EAPI=3D3 + +MODULE_AUTHOR=3DPETDANCE +inherit perl-module + +DESCRIPTION=3D"Testing-specific WWW::Mechanize subclass" + +SLOT=3D"0" +KEYWORDS=3D"~amd64 ~ppc ~sparc ~x86 ~amd64-linux ~x86-linux ~ppc-macos ~= x86-macos" +IUSE=3D"test" +PATCHES=3D( + "${FILESDIR}/${PV}/fix_dns-r2.patch" +) +RDEPEND=3D">=3Ddev-perl/WWW-Mechanize-1.24 + dev-perl/Carp-Assert-More + dev-perl/URI + >=3Ddev-perl/Test-LongString-0.12" +DEPEND=3D"${RDEPEND} + test? ( >=3Ddev-perl/HTTP-Server-Simple-0.35 + dev-perl/Test-Pod + dev-perl/Test-Pod-Coverage + >dev-lang/perl-5.13.999 + )" + +SRC_TEST=3D"do" 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 new file mode 100644 index 0000000..e13d18c --- /dev/null +++ b/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch @@ -0,0 +1,155 @@ +diff --git a/t/back_ok.t b/t/back_ok.t +index 7042c90..d59df9e 100644 +--- a/t/back_ok.t ++++ b/t/back_ok.t +@@ -47,14 +47,14 @@ GOOD_GET: { + } +=20 + BAD_GET: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; ++ my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; + $mech->get($badurl); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); +=20 + test_out( 'not ok 1 - Try to get bad URL' ); + test_fail( +3 ); + test_diag( '500' ); +- 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->get_ok( $badurl, 'Try to get bad URL' ); + test_test( 'Fails to get nonexistent URI and reports failure' ); +=20 +diff --git a/t/content_lacks.t b/t/content_lacks.t +index 0a9792c..fdd3525 100644 +--- a/t/content_lacks.t ++++ b/t/content_lacks.t +@@ -35,7 +35,7 @@ test_out( q{not ok 1 - Shouldn't say it's a test page}= ); + test_fail(+4); + test_diag(q( searched: "\x{0a} \x{0a} T= est Page"...) ); + test_diag(q( and found: "Test Page") ); +-test_diag(q( at position: 33) ); ++test_diag(q( at position: 33 (line 3 column 16)) ); + $mech->content_lacks( 'Test Page', q{Shouldn't say it's a test page} ); + test_test( 'Handles not finding it' ); +=20 +diff --git a/t/get_ok.t b/t/get_ok.t +index 4df896f..f61ab81 100644 +--- a/t/get_ok.t ++++ b/t/get_ok.t +@@ -48,14 +48,14 @@ GOOD_GET: { + } +=20 + BAD_GET: { +- my $badurl =3D 'http://wango.nonexistent.xx-only-testing/'; ++ my $badurl =3D 'http://wango.nonexistent.xx-only-testing./'; + $mech->get($badurl); + ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}= ); +=20 + test_out( 'not ok 1 - Try to get bad URL' ); + test_fail( +3 ); + test_diag( '500' ); +- 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->get_ok( $badurl, 'Try to get bad URL' ); + 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 +--- 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'); + } +=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: { ++ 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}= ); +=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)} ); + my $ok =3D $mech->head_ok( $badurl, 'Try to HEAD bad URL' ); + test_test( 'Fails to HEAD nonexistent URI and reports failure' ); +=20 +diff --git a/t/link_content.t b/t/link_content.t +index 3f89e1c..22b83d3 100644 +--- a/t/link_content.t ++++ b/t/link_content.t +@@ -36,7 +36,7 @@ $mech->link_content_like(\@urls,qr/Test/,'Checking all= page links contain: Test' + test_test('Handles All page links contents successful'); +=20 + # like - default desc +-test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?-xism:Test)\'= '); ++test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?^:Test)\''); + $mech->link_content_like(\@urls,qr/Test/); + test_test('Handles All page links contents successful - default desc'); +=20 +@@ -61,7 +61,7 @@ $mech->link_content_unlike(\@urls,qr/BadTest/,'Checkin= g all page links do not co + test_test('Handles All page links unlike contents successful'); +=20 + # unlike - default desc +-test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?-xism:BadT= est)"'); ++test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?^:BadTest)= "'); + $mech->link_content_unlike(\@urls,qr/BadTest/); + test_test('Handles All page links unlike contents successful - default = desc'); +=20 +diff --git a/t/page_links_content.t b/t/page_links_content.t +index 6c37393..a71df7f 100644 +--- a/t/page_links_content.t ++++ b/t/page_links_content.t +@@ -34,7 +34,7 @@ $mech->page_links_content_like(qr/Test/,'Checking all = page links contain: Test') + test_test('Handles All page links contents successful'); +=20 + # like - default desc +-test_out(q{ok 1 - All links are like "(?-xism:Test)"}); ++test_out(q{ok 1 - All links are like "(?^:Test)"}); + $mech->page_links_content_like(qr/Test/); + test_test('Handles All page links contents successful'); +=20