r11109 - in /branches/upstream/libwww-mechanize-perl/current: ./ lib/WWW/ t/ t/local/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Dec 11 05:45:04 UTC 2007
Author: rmayorga-guest
Date: Tue Dec 11 05:45:04 2007
New Revision: 11109
URL: http://svn.debian.org/wsvn/?sc=1&rev=11109
Log:
[svn-upgrade] Integrating new upstream version, libwww-mechanize-perl (1.34)
Added:
branches/upstream/libwww-mechanize-perl/current/t/find_frame.html
branches/upstream/libwww-mechanize-perl/current/t/find_frame.t
Modified:
branches/upstream/libwww-mechanize-perl/current/Changes
branches/upstream/libwww-mechanize-perl/current/MANIFEST
branches/upstream/libwww-mechanize-perl/current/META.yml
branches/upstream/libwww-mechanize-perl/current/Makefile.PL
branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm
branches/upstream/libwww-mechanize-perl/current/t/local/back.t
branches/upstream/libwww-mechanize-perl/current/t/local/click.t
branches/upstream/libwww-mechanize-perl/current/t/local/click_button.t
branches/upstream/libwww-mechanize-perl/current/t/local/failure.t
branches/upstream/libwww-mechanize-perl/current/t/local/follow.t
branches/upstream/libwww-mechanize-perl/current/t/local/form.t
branches/upstream/libwww-mechanize-perl/current/t/local/get.t
branches/upstream/libwww-mechanize-perl/current/t/local/overload.t
branches/upstream/libwww-mechanize-perl/current/t/local/page_stack.t
branches/upstream/libwww-mechanize-perl/current/t/local/referer.t
branches/upstream/libwww-mechanize-perl/current/t/local/reload.t
branches/upstream/libwww-mechanize-perl/current/t/local/submit.t
Modified: branches/upstream/libwww-mechanize-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/Changes?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/Changes (original)
+++ branches/upstream/libwww-mechanize-perl/current/Changes Tue Dec 11 05:45:04 2007
@@ -1,18 +1,27 @@
Revision history for WWW::Mechanize
-1.32 Tue Oct 30 12:02:17 CDT 2007
-========================================
Please note that WWW::Mechanize and Test::WWW::Mechanize are no
longer using rt.cpan.org for bug tracking. They are now being
tracked via Google Code at
http://code.google.com/p/www-mechanize/issues/list
+Mech now has its own mailing list at Google Groups:
+http://groups.google.com/group/www-mechanize-users
+
+1.34 Mon Dec 10 00:30:39 CST 2007
+========================================
+[FIXES]
+Many fixes to make the test suite more portable.
+
+
+1.32 Tue Oct 30 12:02:17 CDT 2007
+========================================
[ENHANCEMENTS]
Added dump methods to mirror mech-dump:
* $mech->dump_images()
* $mech->dump_links()
* $mech->dump_forms()
-$ $mech->dump_all()
+* $mech->dump_all()
Sanity checks in the WWW::Mechanize::Image constructor. Every Image
must have a "url" and "tag" field passed in to it.
Modified: branches/upstream/libwww-mechanize-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/MANIFEST?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/MANIFEST (original)
+++ branches/upstream/libwww-mechanize-perl/current/MANIFEST Tue Dec 11 05:45:04 2007
@@ -24,6 +24,8 @@
t/die.t
t/field.html
t/field.t
+t/find_frame.html
+t/find_frame.t
t/find_image.t
t/find_inputs.html
t/find_inputs.t
Modified: branches/upstream/libwww-mechanize-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/META.yml?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/META.yml (original)
+++ branches/upstream/libwww-mechanize-perl/current/META.yml Tue Dec 11 05:45:04 2007
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: WWW-Mechanize
-version: 1.32
+version: 1.34
abstract: Handy web browsing in a Perl object
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
@@ -29,3 +29,9 @@
version: 1.2
author:
- Andy Lester <andy at petdance.com>
+resources:
+ license: http://dev.perl.org/licenses/
+ homepage: http://code.google.com/p/www-mechanize/
+ bugtracker: http://code.google.com/p/www-mechanize/issues/list
+ Repository: http://code.google.com/p/www-mechanize/source
+ MailingList: http://groups.google.com/group/www-mechanize-users
Modified: branches/upstream/libwww-mechanize-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/Makefile.PL?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/Makefile.PL (original)
+++ branches/upstream/libwww-mechanize-perl/current/Makefile.PL Tue Dec 11 05:45:04 2007
@@ -1,6 +1,7 @@
package main;
-require 5.6.1;
+require 5.006001;
+
use strict;
use warnings;
use ExtUtils::MakeMaker qw( WriteMakefile );
@@ -50,6 +51,18 @@
test => { TESTS => join( ' ', @tests ) },
clean => { FILES => 'WWW-Mechanize-*' },
};
+
+if ( $ExtUtils::MakeMaker::VERSION eq '6.36' ) {
+ $parms->{EXTRA_META} = <<EOF;
+resources:
+ license: http://dev.perl.org/licenses/
+ homepage: http://code.google.com/p/www-mechanize/
+ bugtracker: http://code.google.com/p/www-mechanize/issues/list
+ Repository: http://code.google.com/p/www-mechanize/source
+ MailingList: http://groups.google.com/group/www-mechanize-users
+EOF
+ }
+
eval { require LWP; };
if (!$@) {
Modified: branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm (original)
+++ branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm Tue Dec 11 05:45:04 2007
@@ -6,11 +6,11 @@
=head1 VERSION
-Version 1.32
-
-=cut
-
-our $VERSION = '1.32';
+Version 1.34
+
+=cut
+
+our $VERSION = '1.34';
=head1 SYNOPSIS
@@ -325,8 +325,8 @@
L<WWW::Mechanize::Link> object.
The results are stored internally in the agent object, but you don't
-know that. Just use the accessors listed below. Poking at the internals
-is deprecated and subject to change in the future.
+know that. Just use the accessors listed below. Poking at the
+internals is deprecated and subject to change in the future.
C<get()> is a well-behaved overloaded version of the method in
L<LWP::UserAgent>. This lets you do things like
@@ -335,6 +335,10 @@
and you can rest assured that the parms will get filtered down
appropriately.
+
+B<NOTE:> Because C<:content_file> causes the page contents to be
+stored in a file instead of the response object, some Mech functions
+that expect it to be there won't work as expected. Use with caution.
=cut
@@ -1624,6 +1628,8 @@
Submits the page, without specifying a button to click. Actually,
no button is clicked at all.
+Returns an L<HTTP::Response> object.
+
This used to be a synonym for C<< $mech->click( 'submit' ) >>, but is no
longer so.
@@ -2513,6 +2519,12 @@
__END__
+=head1 REQUESTS & BUGS
+
+The bug queue for WWW::Mechanize and Test::WWW::Mechanize is at
+L<http://code.google.com/p/www-mechanize/issues/list>. Please do
+not add any tickets to the old queue at L<http://rt.cpan.org/>.
+
=head1 WWW::MECHANIZE'S SUBVERSION REPOSITORY
Mech and Test::WWW::Mechanize are both hosted at Google Code:
@@ -2552,13 +2564,18 @@
=over 4
+=item * WWW::Mechanize mailing list
+
+The Mech mailing list is at
+L<http://groups.google.com/group/www-mechanize-users> and is specific
+to Mechanize, unlike the LWP mailing list below. Although it is a
+users list, all development discussion takes place here, too.
+
=item * LWP mailing list
The LWP mailing list is at
L<http://lists.perl.org/showlist.cgi?name=libwww>, and is more
-user-oriented and well-populated than the WWW::Mechanize Development
-list. This is a good list for Mech users, since LWP is the basis
-for Mech.
+user-oriented and well-populated than the WWW::Mechanize list.
=item * Perlmonks
@@ -2661,19 +2678,6 @@
=item * L<WWW::Yahoo::Groups>
=back
-
-=head1 REQUESTS & BUGS
-
-Please report any requests, suggestions or (gasp!) bugs via the
-excellent RT bug-tracking system at http://rt.cpan.org/, or email to
-C<bug-WWW-Mechanize at rt.cpan.org>. This makes it much easier for
-me to track things.
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=WWW-Mechanize> is the RT queue
-for Mechanize. Please check to see if your bug has already been reported.
-
-Please note that this is NOT for support requests. Please be sure
-to read the FAQ if you have support requests.
=head1 ACKNOWLEDGEMENTS
Added: branches/upstream/libwww-mechanize-perl/current/t/find_frame.html
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/find_frame.html?rev=11109&op=file
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/find_frame.html (added)
+++ branches/upstream/libwww-mechanize-perl/current/t/find_frame.html Tue Dec 11 05:45:04 2007
@@ -1,0 +1,9 @@
+<html>
+ <head>
+ <title>find some frames</title>
+ </head>
+ <frameset rows="77,*" BORDER="0" frameborder="0">
+ <frame id="top" name="top" src="bastro.html">
+ <frame id="bottom" name="bottom" src="slint.html">
+ </frameset>
+</html>
Added: branches/upstream/libwww-mechanize-perl/current/t/find_frame.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/find_frame.t?rev=11109&op=file
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/find_frame.t (added)
+++ branches/upstream/libwww-mechanize-perl/current/t/find_frame.t Tue Dec 11 05:45:04 2007
@@ -1,0 +1,24 @@
+#!perl -Tw
+
+use warnings;
+use strict;
+use Test::More tests => 5;
+use URI::file;
+
+BEGIN {
+ delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
+ use_ok( 'WWW::Mechanize' );
+}
+
+my $mech = WWW::Mechanize->new( cookie_jar => undef );
+isa_ok( $mech, 'WWW::Mechanize' );
+
+my $uri = URI::file->new_abs( 't/find_frame.html' )->as_string;
+
+$mech->get( $uri );
+ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page};
+
+my $x;
+$x = $mech->find_link();
+isa_ok( $x, 'WWW::Mechanize::Link' );
+is( $x->url, 'bastro.html', 'First link sequentially' );
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/back.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/back.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/back.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/back.t Tue Dec 11 05:45:04 2007
@@ -7,6 +7,7 @@
use LocalServer;
use HTTP::Daemon;
use HTTP::Response;
+
=head1 NAME
@@ -18,10 +19,9 @@
=cut
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
- delete @ENV{ qw( http_proxy HTTP_PROXY ) };
- delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
-
}
my $mech = WWW::Mechanize->new(cookie_jar => {});
@@ -126,7 +126,7 @@
is( scalar @{$mech->{page_stack}}, 0, 'Pre-404 check' );
-my $server404 = HTTP::Daemon->new or die;
+my $server404 = HTTP::Daemon->new(LocalAddr => 'localhost') or die;
my $server404url = $server404->url;
die 'Cannot fork' if (! defined (my $pid404 = fork()));
@@ -146,7 +146,8 @@
}
$mech->get($server404url);
-is( $mech->status, 404 , '404 check');
+is( $mech->status, 404 , '404 check') or
+ diag( qq{\$server404url=$server404url\n\$mech->content="}, $mech->content, qq{"\n} );
is( scalar @{$mech->{page_stack}}, 1, 'Even 404s get on the stack' );
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/click.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/click.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/click.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/click.t Tue Dec 11 05:45:04 2007
@@ -6,8 +6,9 @@
use LocalServer;
use Test::More tests => 10;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/click_button.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/click_button.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/click_button.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/click_button.t Tue Dec 11 05:45:04 2007
@@ -6,8 +6,9 @@
use LocalServer;
use Test::More tests => 18;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/failure.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/failure.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/failure.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/failure.t Tue Dec 11 05:45:04 2007
@@ -14,8 +14,9 @@
plan tests => 16;
}
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/follow.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/follow.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/follow.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/follow.t Tue Dec 11 05:45:04 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/form.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/form.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/form.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/form.t Tue Dec 11 05:45:04 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/get.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/get.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/get.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/get.t Tue Dec 11 05:45:04 2007
@@ -7,8 +7,10 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
+
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/overload.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/overload.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/overload.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/overload.t Tue Dec 11 05:45:04 2007
@@ -30,8 +30,9 @@
=cut
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/page_stack.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/page_stack.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/page_stack.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/page_stack.t Tue Dec 11 05:45:04 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/referer.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/referer.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/referer.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/referer.t Tue Dec 11 05:45:04 2007
@@ -4,11 +4,11 @@
use strict;
use FindBin;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
-
use Test::More tests => 13;
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/reload.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/reload.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/reload.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/reload.t Tue Dec 11 05:45:04 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: branches/upstream/libwww-mechanize-perl/current/t/local/submit.t
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-mechanize-perl/current/t/local/submit.t?rev=11109&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/local/submit.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/local/submit.t Tue Dec 11 05:45:04 2007
@@ -6,8 +6,9 @@
use Test::More tests => 13;
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
More information about the Pkg-perl-cvs-commits
mailing list