1 |
commit: f454abe2d3fd99b57189dde2de511c1945d23043 |
2 |
Author: Kent Fredric <kentfredric <AT> gmail <DOT> com> |
3 |
AuthorDate: Sun May 1 07:06:12 2011 +0000 |
4 |
Commit: Kent Fredric <kentfredric <AT> gmail <DOT> com> |
5 |
CommitDate: Sun May 1 07:06:12 2011 +0000 |
6 |
URL: http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=f454abe2 |
7 |
|
8 |
[fix] regenerate -r2 patch to TWM to actually work |
9 |
|
10 |
(Portage version: 2.2.0_alpha30/git/Linux x86_64, RepoMan options: --force, signed Manifest commit with key 0A0CB301) |
11 |
|
12 |
--- |
13 |
dev-perl/Test-WWW-Mechanize/ChangeLog | 4 + |
14 |
.../Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch | 84 ++++++++------------ |
15 |
2 files changed, 38 insertions(+), 50 deletions(-) |
16 |
|
17 |
diff --git a/dev-perl/Test-WWW-Mechanize/ChangeLog b/dev-perl/Test-WWW-Mechanize/ChangeLog |
18 |
index 03500a1..104ae66 100644 |
19 |
--- a/dev-perl/Test-WWW-Mechanize/ChangeLog |
20 |
+++ b/dev-perl/Test-WWW-Mechanize/ChangeLog |
21 |
@@ -2,6 +2,10 @@ |
22 |
# Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2 |
23 |
# $Header: /var/cvsroot/gentoo-x86/dev-perl/Test-WWW-Mechanize/ChangeLog,v 1.34 2011/01/04 19:11:47 tove Exp $ |
24 |
|
25 |
+ 01 May 2011; Kent Fredric <kentfredric@×××××.com> |
26 |
+ files/1.30/fix_dns-r2.patch: |
27 |
+ Regenerate patch to actually work |
28 |
+ |
29 |
*Test-WWW-Mechanize-1.30-r2 (01 May 2011) |
30 |
|
31 |
01 May 2011; Kent Fredric <kentfredric@×××××.com> |
32 |
|
33 |
diff --git 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 |
34 |
index e13d18c..ccfac4c 100644 |
35 |
--- a/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch |
36 |
+++ b/dev-perl/Test-WWW-Mechanize/files/1.30/fix_dns-r2.patch |
37 |
@@ -1,3 +1,31 @@ |
38 |
+diff --git a/Changes b/Changes |
39 |
+index b796ca8..54ad52d 100644 |
40 |
+--- a/Changes |
41 |
++++ b/Changes |
42 |
+@@ -15,6 +15,10 @@ Added $mech->text_contains(), $mech->text_like() and $mech->text_unlike() |
43 |
+ methods. These check the text of an HTML page separate from the |
44 |
+ HTML markup. Thanks to Ashley Pond V. |
45 |
+ |
46 |
++[FIXED] |
47 |
++t/head_ok.t should no longer fail if your ISP "helpfully" returns |
48 |
++an IP address for non-existent DNS records. Thanks, Schwern. |
49 |
++ |
50 |
+ |
51 |
+ 1.28 Tue Apr 13 00:44:27 CDT 2010 |
52 |
+ ------------------------------------ |
53 |
+diff --git a/Mechanize.pm b/Mechanize.pm |
54 |
+index 1489344..3f4d54a 100644 |
55 |
+--- a/Mechanize.pm |
56 |
++++ b/Mechanize.pm |
57 |
+@@ -100,7 +100,7 @@ called. |
58 |
+ |
59 |
+ =back |
60 |
+ |
61 |
+-This means you no longerhave to do the following: |
62 |
++This means you no longer have to do the following: |
63 |
+ |
64 |
+ my $mech = Test::WWW::Mechanize->new(); |
65 |
+ $mech->get_ok( $url, 'Fetch the intro page' ); |
66 |
diff --git a/t/back_ok.t b/t/back_ok.t |
67 |
index 7042c90..d59df9e 100644 |
68 |
--- a/t/back_ok.t |
69 |
@@ -54,66 +82,22 @@ index 4df896f..f61ab81 100644 |
70 |
test_test( 'Fails to get nonexistent URI and reports failure' ); |
71 |
|
72 |
diff --git a/t/head_ok.t b/t/head_ok.t |
73 |
-index 4557e83..bbfc062 100644 |
74 |
+index c123e70..bbfc062 100644 |
75 |
--- a/t/head_ok.t |
76 |
+++ b/t/head_ok.t |
77 |
-@@ -2,12 +2,21 @@ |
78 |
- |
79 |
- use strict; |
80 |
- use warnings; |
81 |
--use Test::More tests => 11; |
82 |
-+use Test::More; |
83 |
- use Test::Builder::Tester; |
84 |
- |
85 |
--my $NONEXISTENT = 'blahblablah.xx-nonexistent.foo'; |
86 |
-+use constant NONEXISTENT => 'http://blahblablah.xx-nonexistent.'; |
87 |
-+BEGIN { |
88 |
-+ if ( gethostbyname( NONEXISTENT ) ) { |
89 |
-+ plan skip_all => 'Found an A record for the non-existent domain'; |
90 |
-+ } |
91 |
-+} |
92 |
-+ |
93 |
-+BEGIN { |
94 |
-+ plan tests => 11; |
95 |
-+ use_ok( 'Test::WWW::Mechanize' ); |
96 |
-+} |
97 |
- |
98 |
--require_ok( 'Test::WWW::Mechanize' ); |
99 |
- |
100 |
- use lib 't'; |
101 |
- use TestServer; |
102 |
-@@ -16,7 +25,7 @@ my $server = TestServer->new; |
103 |
- my $pid = $server->background; |
104 |
- my $server_root = $server->root; |
105 |
- |
106 |
--my $mech = Test::WWW::Mechanize->new( autocheck => 0 ); |
107 |
-+my $mech=Test::WWW::Mechanize->new( autocheck => 0 ); |
108 |
- isa_ok($mech,'Test::WWW::Mechanize'); |
109 |
- |
110 |
- GOOD_HEAD: { # Stop giggling, you! |
111 |
-@@ -37,22 +46,15 @@ GOOD_HEAD: { # Stop giggling, you! |
112 |
- test_test('HEAD existing URI and reports success - default desc'); |
113 |
+@@ -47,14 +47,14 @@ GOOD_HEAD: { # Stop giggling, you! |
114 |
} |
115 |
|
116 |
--# Bad HEAD test. Relies on getting an error finding a non-existent domain. |
117 |
--# Some ISPs "helpfully" provide resolution for non-existent domains, |
118 |
--# and thus this test fails by succeeding. We check for this annoying |
119 |
--# behavior and skip this subtest if we get it. |
120 |
--SKIP: { |
121 |
-- skip "Found an A record for the non-existent domain $NONEXISTENT", 4 |
122 |
-- if gethostbyname $NONEXISTENT; |
123 |
-- |
124 |
-- my $badurl = "http://$NONEXISTENT/"; |
125 |
-+BAD_HEAD: { |
126 |
+ BAD_HEAD: { |
127 |
+- my $badurl = 'http://wango.nonexistent.xx-only-testing/'; |
128 |
+ my $badurl = 'http://wango.nonexistent.xx-only-testing./'; |
129 |
$mech->head($badurl); |
130 |
-- ok(!$mech->success, q{sanity check: we can't load $badurl} ); |
131 |
-+ ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html} ); |
132 |
+ ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html} ); |
133 |
|
134 |
test_out( 'not ok 1 - Try to HEAD bad URL' ); |
135 |
test_fail( +3 ); |
136 |
test_diag( '500' ); |
137 |
-- test_diag( qq{Can't connect to $NONEXISTENT:80 (Bad hostname '$NONEXISTENT')} ); |
138 |
+- test_diag( q{Can't connect to wango.nonexistent.xx-only-testing:80 (Bad hostname 'wango.nonexistent.xx-only-testing')} ); |
139 |
+ test_diag( q{Can't connect to wango.nonexistent.xx-only-testing.:80 (Bad hostname)} ); |
140 |
my $ok = $mech->head_ok( $badurl, 'Try to HEAD bad URL' ); |
141 |
test_test( 'Fails to HEAD nonexistent URI and reports failure' ); |