Update of /cvsroot/fink/dists/10.4/unstable/main/finkinfo/libs/perlmods
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv10244
Modified Files:
www-mechanize-pm.info www-mechanize-pm.patch
Log Message:
fix self-tests
Index: www-mechanize-pm.info
===================================================================
RCS file:
/cvsroot/fink/dists/10.4/unstable/main/finkinfo/libs/perlmods/www-mechanize-pm.info,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- www-mechanize-pm.info 16 Jul 2010 20:27:02 -0000 1.15
+++ www-mechanize-pm.info 9 Aug 2010 09:04:40 -0000 1.16
@@ -39,13 +39,24 @@
# Patch Phase:
PatchFile: %{Ni}.patch
-PatchFile-MD5: fbb6306016f323c975939bb8d7be71ca
+PatchFile-MD5: d6ba46a14b22de9f8360b803a8fed201
# Compile Phase:
CompileScript: <<
echo "y" | %{default_script}
<<
+InfoTest: <<
+ TestScript: <<
+ #!/bin/sh -ex
+ perlversion=%type_raw[perl]
+ if dpkg --compare-versions "$perlversion" ">=" "5.10.0" && [
"%m" != "powerpc" ]; then
+ export FULLPERL="/usr/bin/arch -%m perl$perlversion"
+ fi
+ %{default_script}
+ <<
+<<
+
# Install Phase:
UpdatePOD: true
DocFiles: Changes
Index: www-mechanize-pm.patch
===================================================================
RCS file:
/cvsroot/fink/dists/10.4/unstable/main/finkinfo/libs/perlmods/www-mechanize-pm.patch,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- www-mechanize-pm.patch 3 Jun 2010 16:08:43 -0000 1.4
+++ www-mechanize-pm.patch 9 Aug 2010 09:04:40 -0000 1.5
@@ -1,3 +1,27 @@
+diff -Nurd -x'*~' WWW-Mechanize-1.62.orig/t/00-load.t
WWW-Mechanize-1.62/t/00-load.t
+--- WWW-Mechanize-1.62.orig/t/00-load.t 2010-04-10 22:24:39.000000000
-0400
++++ WWW-Mechanize-1.62/t/00-load.t 2010-08-09 05:00:49.000000000 -0400
+@@ -9,7 +9,7 @@
+ use_ok( 'WWW::Mechanize' );
+ use_ok( 'WWW::Mechanize::Link' );
+
+-diag( "Testing WWW::Mechanize $WWW::Mechanize::VERSION, with LWP
$LWP::VERSION, Perl $], $^X" );
++diag( "Testing WWW::Mechanize $WWW::Mechanize::VERSION, with LWP
$LWP::VERSION, Perl $], $ENV{FULLPERL}" );
+ if ( $canTMC ) {
+ diag( "Test::Memory::Cycle $Test::Memory::Cycle::VERSION is installed." );
+ }
+diff -Nurd -x'*~' WWW-Mechanize-1.62.orig/t/local/LocalServer.pm
WWW-Mechanize-1.62/t/local/LocalServer.pm
+--- WWW-Mechanize-1.62.orig/t/local/LocalServer.pm 2010-04-10
22:24:38.000000000 -0400
++++ WWW-Mechanize-1.62/t/local/LocalServer.pm 2010-08-09 04:59:39.000000000
-0400
+@@ -70,7 +70,7 @@
+
+ my $server_file = File::Spec->catfile( $FindBin::Bin,'log-server' );
+
+- open my $server, qq'$^X "$server_file" "$web_page" "$logfile" |'
++ open my $server, qq'$ENV{FULLPERL} "$server_file" "$web_page" "$logfile" |'
+ or die "Couldn't spawn fake server $server_file : $!";
+ my $url = <$server>;
+ chomp $url;
diff -Nurd -x'*~' WWW-Mechanize-1.62.orig/t/local/follow.t
WWW-Mechanize-1.62/t/local/follow.t
--- WWW-Mechanize-1.62.orig/t/local/follow.t 2010-04-10 22:24:38.000000000
-0400
+++ WWW-Mechanize-1.62/t/local/follow.t 2010-06-02 22:33:15.000000000
-0400
@@ -23,3 +47,27 @@
ok($agent->back(), 'Can still go back');
ok($agent->follow_link( text_regex=>qr/Stösberg/ ), q{Can follow link with
o-umlaut, when it's encoded in the HTML, but not in "follow"});
+diff -Nurd -x'*~' WWW-Mechanize-1.62.orig/t/local/referer.t
WWW-Mechanize-1.62/t/local/referer.t
+--- WWW-Mechanize-1.62.orig/t/local/referer.t 2010-04-10 22:24:38.000000000
-0400
++++ WWW-Mechanize-1.62/t/local/referer.t 2010-08-09 05:00:00.000000000
-0400
+@@ -27,7 +27,7 @@
+ delete $ENV{HTTP_PROXY};
+
+ # Now start a fake webserver, fork, and connect to ourselves
+- my $command = qq'"$^X" "$FindBin::Bin/referer-server"';
++ my $command = qq'$ENV{FULLPERL} "$FindBin::Bin/referer-server"';
+ if ($^O eq 'VMS') {
+ $command = qq'mcr $^X t/referer-server';
+ }
+diff -Nurd -x'*~' WWW-Mechanize-1.62.orig/t/mech-dump/mech-dump.t
WWW-Mechanize-1.62/t/mech-dump/mech-dump.t
+--- WWW-Mechanize-1.62.orig/t/mech-dump/mech-dump.t 2010-04-10
22:24:38.000000000 -0400
++++ WWW-Mechanize-1.62/t/mech-dump/mech-dump.t 2010-08-09 05:00:31.000000000
-0400
+@@ -24,7 +24,7 @@
+ my $source = 'file:t/google.html';
+
+ my $perl;
+-$perl = $1 if $^X =~ /^(.+)$/;
++$perl = $1 if $ENV{FULLPERL} =~ /^(.+)$/;
+ my $command = "$perl -Mblib $exe --forms $source";
+
+ my $actual = `$command`;
------------------------------------------------------------------------------
This SF.net email is sponsored by
Make an app they can't live without
Enter the BlackBerry Developer Challenge
http://p.sf.net/sfu/RIM-dev2dev
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
