--- a/t/back_ok.t +++ a/t/back_ok.t @@ -47,14 +47,14 @@ GOOD_GET: { } BAD_GET: { - my $badurl = 'http://wango.nonexistent.xx-only-testing/'; + my $badurl = 'http://wango.nonexistent.xx-only-testing./'; $mech->get($badurl); ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}); 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 'wango.nonexistent.xx-only-testing.')} ); my $ok = $mech->get_ok( $badurl, 'Try to get bad URL' ); test_test( 'Fails to get nonexistent URI and reports failure' ); --- a/t/get_ok.t +++ a/t/get_ok.t @@ -48,14 +48,14 @@ GOOD_GET: { } BAD_GET: { - my $badurl = 'http://wango.nonexistent.xx-only-testing/'; + my $badurl = 'http://wango.nonexistent.xx-only-testing./'; $mech->get($badurl); ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html}); 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 'wango.nonexistent.xx-only-testing.')} ); my $ok = $mech->get_ok( $badurl, 'Try to get bad URL' ); test_test( 'Fails to get nonexistent URI and reports failure' ); --- a/t/head_ok.t +++ a/t/head_ok.t @@ -47,14 +47,14 @@ GOOD_HEAD: { # Stop giggling, you! } BAD_HEAD: { - my $badurl = 'http://wango.nonexistent.xx-only-testing/'; + my $badurl = 'http://wango.nonexistent.xx-only-testing./'; $mech->head($badurl); ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html} ); test_out( 'not ok 1 - Try to HEAD 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 'wango.nonexistent.xx-only-testing.')} ); my $ok = $mech->head_ok( $badurl, 'Try to HEAD bad URL' ); test_test( 'Fails to HEAD nonexistent URI and reports failure' );