tags 432485 + patch thanks Hi Jay,
I saw the bug report at it seens that you are working on this. Anyway, I've attach a patch to skip the test that requiere for internet access if you set a env var at debian/rules Cheers -- Rene Mauricio Mayorga | GPG: A209C305 http://rmayorga.org | -------------------------------------------------- 08B6 58AB A691 DD56 C30B 8D37 8040 19FA A209 C305
diff -ruN libwww-mechanize-perl-1.30.old/debian/rules libwww-mechanize-perl-1.30/debian/rules
--- libwww-mechanize-perl-1.30.old/debian/rules 2007-10-13 00:27:35.000000000 -0600
+++ libwww-mechanize-perl-1.30/debian/rules 2007-10-13 00:31:55.000000000 -0600
@@ -30,7 +30,7 @@
dh_clean -k
dh_installdirs
- $(MAKE) PREFIX=$(CURDIR)/debian/$(PACKAGE)/usr OPTIMIZE="-O2 -g -Wall" test install
+ NOINTERNET=1 $(MAKE) PREFIX=$(CURDIR)/debian/$(PACKAGE)/usr OPTIMIZE="-O2 -g -Wall" test install
install -d $(ETCROOT)
install -m 644 $(CURDIR)/etc/* $(ETCROOT)
-find $(CURDIR)/debian -type d | xargs rmdir -p --ignore-fail-on-non-empty
diff -ruN libwww-mechanize-perl-1.30.old/t/live/computers4sure.t libwww-mechanize-perl-1.30/t/live/computers4sure.t
--- libwww-mechanize-perl-1.30.old/t/live/computers4sure.t 2007-05-24 20:34:37.000000000 -0600
+++ libwww-mechanize-perl-1.30/t/live/computers4sure.t 2007-10-13 00:31:21.000000000 -0600
@@ -3,6 +3,9 @@
use warnings;
use strict;
+if ( $ENV{NOINTERNET} ) {
+ use Test::More skip_all => "We don't have internet here";
+}
use Test::More skip_all => "Still need to get the error-handling on here working";
use Test::More tests => 9;
@@ -38,7 +41,7 @@
SKIP: {
eval "use Test::Memory::Cycle";
skip "Test::Memory::Cycle not installed", 1 if $@;
-
+
memory_cycle_ok( $mech, "No memory cycles found" );
}
diff -ruN libwww-mechanize-perl-1.30.old/t/live/wikipedia.t libwww-mechanize-perl-1.30/t/live/wikipedia.t
--- libwww-mechanize-perl-1.30.old/t/live/wikipedia.t 2007-05-24 20:30:50.000000000 -0600
+++ libwww-mechanize-perl-1.30/t/live/wikipedia.t 2007-10-13 00:31:21.000000000 -0600
@@ -3,6 +3,9 @@
use warnings;
use strict;
+if ( $ENV{NOINTERNET} ) {
+ use Test::More skip_all => "We don't have internet here";
+}
use constant LANGUAGES => qw( en it ja es nl pl );
use Test::More tests => 3 + (2 * scalar LANGUAGES);
signature.asc
Description: Esta parte del mensaje está firmada digitalmente
