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