[fix] regenerate -r2 patch to TWM to actually work
[proj/perl-overlay.git] / dev-perl / Test-WWW-Mechanize / files / 1.30 / fix_dns-r2.patch
1 diff --git a/Changes b/Changes
2 index b796ca8..54ad52d 100644
3 --- a/Changes
4 +++ b/Changes
5 @@ -15,6 +15,10 @@ Added $mech->text_contains(), $mech->text_like() and $mech->text_unlike()
6  methods.  These check the text of an HTML page separate from the
7  HTML markup.  Thanks to Ashley Pond V.
8  
9 +[FIXED]
10 +t/head_ok.t should no longer fail if your ISP "helpfully" returns
11 +an IP address for non-existent DNS records.  Thanks, Schwern.
12 +
13  
14  1.28    Tue Apr 13 00:44:27 CDT 2010
15  ------------------------------------
16 diff --git a/Mechanize.pm b/Mechanize.pm
17 index 1489344..3f4d54a 100644
18 --- a/Mechanize.pm
19 +++ b/Mechanize.pm
20 @@ -100,7 +100,7 @@ called.
21  
22  =back
23  
24 -This means you no longerhave to do the following:
25 +This means you no longer have to do the following:
26  
27      my $mech = Test::WWW::Mechanize->new();
28      $mech->get_ok( $url, 'Fetch the intro page' );
29 diff --git a/t/back_ok.t b/t/back_ok.t
30 index 7042c90..d59df9e 100644
31 --- a/t/back_ok.t
32 +++ b/t/back_ok.t
33 @@ -47,14 +47,14 @@ GOOD_GET: {
34  }
35  
36  BAD_GET: {
37 -    my $badurl = 'http://wango.nonexistent.xx-only-testing/';
38 +    my $badurl = 'http://wango.nonexistent.xx-only-testing./';
39      $mech->get($badurl);
40      ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html});
41  
42      test_out( 'not ok 1 - Try to get bad URL' );
43      test_fail( +3 );
44      test_diag( '500' );
45 -    test_diag( q{Can't connect to wango.nonexistent.xx-only-testing:80 (Bad hostname 'wango.nonexistent.xx-only-testing')} );
46 +    test_diag( q{Can't connect to wango.nonexistent.xx-only-testing.:80 (Bad hostname)} );
47      my $ok = $mech->get_ok( $badurl, 'Try to get bad URL' );
48      test_test( 'Fails to get nonexistent URI and reports failure' );
49  
50 diff --git a/t/content_lacks.t b/t/content_lacks.t
51 index 0a9792c..fdd3525 100644
52 --- a/t/content_lacks.t
53 +++ b/t/content_lacks.t
54 @@ -35,7 +35,7 @@ test_out( q{not ok 1 - Shouldn't say it's a test page} );
55  test_fail(+4);
56  test_diag(q(    searched: "<html>\x{0a}    <head>\x{0a}        <title>Test Page</title>"...) );
57  test_diag(q(   and found: "Test Page") );
58 -test_diag(q( at position: 33) );
59 +test_diag(q( at position: 33 (line 3 column 16)) );
60  $mech->content_lacks( 'Test Page', q{Shouldn't say it's a test page} );
61  test_test( 'Handles not finding it' );
62  
63 diff --git a/t/get_ok.t b/t/get_ok.t
64 index 4df896f..f61ab81 100644
65 --- a/t/get_ok.t
66 +++ b/t/get_ok.t
67 @@ -48,14 +48,14 @@ GOOD_GET: {
68  }
69  
70  BAD_GET: {
71 -    my $badurl = 'http://wango.nonexistent.xx-only-testing/';
72 +    my $badurl = 'http://wango.nonexistent.xx-only-testing./';
73      $mech->get($badurl);
74      ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html});
75  
76      test_out( 'not ok 1 - Try to get bad URL' );
77      test_fail( +3 );
78      test_diag( '500' );
79 -    test_diag( q{Can't connect to wango.nonexistent.xx-only-testing:80 (Bad hostname 'wango.nonexistent.xx-only-testing')} );
80 +    test_diag( q{Can't connect to wango.nonexistent.xx-only-testing.:80 (Bad hostname)} );
81      my $ok = $mech->get_ok( $badurl, 'Try to get bad URL' );
82      test_test( 'Fails to get nonexistent URI and reports failure' );
83  
84 diff --git a/t/head_ok.t b/t/head_ok.t
85 index c123e70..bbfc062 100644
86 --- a/t/head_ok.t
87 +++ b/t/head_ok.t
88 @@ -47,14 +47,14 @@ GOOD_HEAD: { # Stop giggling, you!
89  }
90  
91  BAD_HEAD: {
92 -    my $badurl = 'http://wango.nonexistent.xx-only-testing/';
93 +    my $badurl = 'http://wango.nonexistent.xx-only-testing./';
94      $mech->head($badurl);
95      ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html} );
96  
97      test_out( 'not ok 1 - Try to HEAD bad URL' );
98      test_fail( +3 );
99      test_diag( '500' );
100 -    test_diag( q{Can't connect to wango.nonexistent.xx-only-testing:80 (Bad hostname 'wango.nonexistent.xx-only-testing')} );
101 +    test_diag( q{Can't connect to wango.nonexistent.xx-only-testing.:80 (Bad hostname)} );
102      my $ok = $mech->head_ok( $badurl, 'Try to HEAD bad URL' );
103      test_test( 'Fails to HEAD nonexistent URI and reports failure' );
104  
105 diff --git a/t/link_content.t b/t/link_content.t
106 index 3f89e1c..22b83d3 100644
107 --- a/t/link_content.t
108 +++ b/t/link_content.t
109 @@ -36,7 +36,7 @@ $mech->link_content_like(\@urls,qr/Test/,'Checking all page links contain: Test'
110  test_test('Handles All page links contents successful');
111  
112  # like - default desc
113 -test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?-xism:Test)\'');
114 +test_out('ok 1 - ' . scalar(@urls) . ' links are like \'(?^:Test)\'');
115  $mech->link_content_like(\@urls,qr/Test/);
116  test_test('Handles All page links contents successful - default desc');
117  
118 @@ -61,7 +61,7 @@ $mech->link_content_unlike(\@urls,qr/BadTest/,'Checking all page links do not co
119  test_test('Handles All page links unlike contents successful');
120  
121  # unlike - default desc
122 -test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?-xism:BadTest)"');
123 +test_out('ok 1 - ' . scalar(@urls) . ' links are not like "(?^:BadTest)"');
124  $mech->link_content_unlike(\@urls,qr/BadTest/);
125  test_test('Handles All page links unlike contents successful - default desc');
126  
127 diff --git a/t/page_links_content.t b/t/page_links_content.t
128 index 6c37393..a71df7f 100644
129 --- a/t/page_links_content.t
130 +++ b/t/page_links_content.t
131 @@ -34,7 +34,7 @@ $mech->page_links_content_like(qr/Test/,'Checking all page links contain: Test')
132  test_test('Handles All page links contents successful');
133  
134  # like - default desc
135 -test_out(q{ok 1 - All links are like "(?-xism:Test)"});
136 +test_out(q{ok 1 - All links are like "(?^:Test)"});
137  $mech->page_links_content_like(qr/Test/);
138  test_test('Handles All page links contents successful');
139