Add ARM files

[dh-make-perl] / dev / arm / libwww-mechanize-perl / libwww-mechanize-perl-1.34 / t / autocheck.t

diff --git a/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/autocheck.t b/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/autocheck.t
new file mode 100644 (file)
index 0000000..8b56951
--- /dev/null
+++ b/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/autocheck.t
@@ -0,0 +1,41 @@
+#!perl -Tw
+
+use warnings;
+use strict;
+use Test::More;
+
+use constant NONEXISTENT => 'http://blahblablah.xx-nonexistent.';
+
+BEGIN {
+    if (gethostbyname('blahblahblah.xx-nonexistent.')) {
+        plan skip_all => 'Found an A record for the non-existent domain';
+    }
+}
+
+BEGIN {
+    eval 'use Test::Exception';
+    plan skip_all => 'Test::Exception required to test autocheck' if $@;
+    plan tests => 5;
+}
+
+BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
+BEGIN {
+    use_ok( 'WWW::Mechanize' );
+}
+
+AUTOCHECK_OFF: {
+    my $mech = WWW::Mechanize->new;
+    isa_ok( $mech, 'WWW::Mechanize' );
+
+    $mech->get( NONEXISTENT );
+    ok( !$mech->success, q{Didn't fetch, but didn't die, either} );
+}
+
+AUTOCHECK_ON: {
+    my $mech = WWW::Mechanize->new( autocheck => 1 );
+    isa_ok( $mech, 'WWW::Mechanize' );
+
+    dies_ok {
+        $mech->get( NONEXISTENT );
+    } 'Mech would die 4 u';
+}