Hello community,
here is the log from the commit of package perl-WWW-Mechanize for openSUSE:Factory
checked in at Wed Jun 1 12:35:25 CEST 2011.
--------
--- perl-WWW-Mechanize/perl-WWW-Mechanize.changes 2011-03-30 07:16:28.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-WWW-Mechanize/perl-WWW-Mechanize.changes 2011-04-22 11:41:04.000000000 +0200
@@ -1,0 +2,5 @@
+Fri Apr 22 09:36:15 UTC 2011 - jw@novell.com
+
+- update to 1.68: dependencies fixed, test suite enhanced
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
WWW-Mechanize-1.66.tar.bz2
New:
----
WWW-Mechanize-1.68.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-WWW-Mechanize.spec ++++++
--- /var/tmp/diff_new_pack.xg3HuQ/_old 2011-06-01 12:34:25.000000000 +0200
+++ /var/tmp/diff_new_pack.xg3HuQ/_new 2011-06-01 12:34:25.000000000 +0200
@@ -24,29 +24,27 @@
Name: perl-WWW-Mechanize
%define cpan_name WWW-Mechanize
Summary: Handy web browsing in a Perl object
-Version: 1.66
-Release: 9
+Version: 1.68
+Release: 1
License: GPL+ or Artistic
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/WWW-Mechanize/
-#Source: http://www.cpan.org/modules/by-module/WWW/WWW-Mechanize-%{version}.tar.gz
-Source: %{cpan_name}-%{version}.tar.bz2
+Source: http://www.cpan.org/modules/by-module/WWW/WWW-Mechanize-%{version}.tar.bz2
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
%{perl_requires}
BuildRequires: perl
BuildRequires: perl-macros
+BuildRequires: perl(HTML::TreeBuilder)
%if %{with TestServer}
# needed for t/cookies.t t/TestServer.pm
BuildRequires: perl(HTTP::Server::Simple) >= 0.35
BuildRequires: perl(HTTP::Server::Simple::CGI)
%endif
-%if %{with opt}
BuildRequires: perl(Test::Memory::Cycle)
-## not yet available :(
-#BuildRequires: perl(Test::NoWarning)
-#BuildRequires: perl(Test::Taint)
-%endif
+BuildRequires: perl(Test::NoWarnings)
+BuildRequires: perl(Test::Exception)
+BuildRequires: perl(Test::Taint)
%if %{with pod}
BuildRequires: perl(Test::Pod) >= 1.14
BuildRequires: perl(Test::Pod::Coverage) >= 1.04
@@ -76,6 +74,7 @@
Requires: perl(Carp)
Requires: perl(File::Temp)
Requires: perl(Getopt::Long)
+Requires: perl(HTML::TreeBuilder)
Requires: perl(HTML::Parser) >= 3.33
### coming with HTML::Parser
Requires: perl(HTML::HeadParser)
++++++ WWW-Mechanize-1.66.tar.bz2 -> WWW-Mechanize-1.68.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/Changes new/WWW-Mechanize-1.68/Changes
--- old/WWW-Mechanize-1.66/Changes 2010-09-10 23:26:23.000000000 +0200
+++ new/WWW-Mechanize-1.68/Changes 2011-04-21 17:10:47.000000000 +0200
@@ -1,13 +1,24 @@
Revision history for WWW::Mechanize
-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.68 Fri Apr 22 01:10:40 EST 2011
+========================================
+No changes from 1.67_01
+
+1.67_01
+========================================
+[ANNOUNCE]
+As of this release, Jesse Vincent has taken over maintenance of
+WWW-Mechanize. The project's repository can be found at:
+
+ https://github.com/bestpractical/www-mechanize
+
+
+[FIXED]
+Added prereq for HTML::TreeBuilder.
+
1.66 Fri Sep 10 16:25:44 CDT 2010
========================================
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/MANIFEST new/WWW-Mechanize-1.68/MANIFEST
--- old/WWW-Mechanize-1.66/MANIFEST 2010-09-10 23:41:52.000000000 +0200
+++ new/WWW-Mechanize-1.68/MANIFEST 2011-04-21 17:11:20.000000000 +0200
@@ -1,22 +1,16 @@
-Changes
-Makefile.PL
-MANIFEST
-perlcriticrc
-
bin/mech-dump
-
+Changes
etc/www-mechanize-logo.png
-
lib/WWW/Mechanize.pm
lib/WWW/Mechanize/Cookbook.pod
lib/WWW/Mechanize/Examples.pod
lib/WWW/Mechanize/FAQ.pod
lib/WWW/Mechanize/Image.pm
lib/WWW/Mechanize/Link.pm
-
-t/TestServer.pm
-t/Tools.pm
-
+Makefile.PL
+MANIFEST This list of files
+MANIFEST.SKIP
+perlcriticrc
t/00-load.t
t/add_header.t
t/aliases.t
@@ -24,9 +18,10 @@
t/area_link.t
t/autocheck.t
t/clone.t
+t/content.t
t/cookies.t
-t/credentials.t
t/credentials-api.t
+t/credentials.t
t/die.t
t/field.html
t/field.t
@@ -41,6 +36,8 @@
t/find_link_id.html
t/find_link_id.t
t/form-parsing.t
+t/form_with_fields.html
+t/form_with_fields.t
t/frames.html
t/frames.t
t/google.html
@@ -50,26 +47,8 @@
t/link-base.t
t/link-relative.t
t/link.t
-t/new.t
-t/pod-coverage.t
-t/pod.t
-t/regex-error.t
-t/save_content.t
-t/select.html
-t/select.t
-t/taint.t
-t/tick.html
-t/tick.t
-t/untaint.t
-t/upload.html
-t/upload.t
-t/warn.t
-t/warnings.t
-
t/live/encoding.t
t/live/wikipedia.t
-
-t/local/LocalServer.pm
t/local/back.t
t/local/click.t
t/local/click_button.t
@@ -77,13 +56,32 @@
t/local/follow.t
t/local/form.t
t/local/get.t
+t/local/LocalServer.pm
t/local/log-server
+t/local/nonascii.html
+t/local/nonascii.t
t/local/overload.t
t/local/page_stack.t
t/local/referer-server
t/local/referer.t
t/local/reload.t
t/local/submit.t
-
t/mech-dump/mech-dump.t
+t/new.t
+t/pod-coverage.t
+t/pod.t
+t/regex-error.t
+t/save_content.t
+t/select.html
+t/select.t
+t/taint.t
+t/TestServer.pm
+t/tick.html
+t/tick.t
+t/Tools.pm
+t/untaint.t
+t/upload.html
+t/upload.t
+t/warn.t
+t/warnings.t
META.yml Module meta-data (added by MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/MANIFEST.SKIP new/WWW-Mechanize-1.68/MANIFEST.SKIP
--- old/WWW-Mechanize-1.66/MANIFEST.SKIP 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.68/MANIFEST.SKIP 2011-04-07 07:01:53.000000000 +0200
@@ -0,0 +1,11 @@
+^Makefile$
+blib
+pm_to_blib
+.swp$
+~$
+.tmp$
+.bak$
+.git/
+.gitignore$
+.shipit$
+^tags$
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/META.yml new/WWW-Mechanize-1.68/META.yml
--- old/WWW-Mechanize-1.66/META.yml 2010-09-10 23:41:52.000000000 +0200
+++ new/WWW-Mechanize-1.68/META.yml 2011-04-21 17:11:20.000000000 +0200
@@ -1,9 +1,9 @@
--- #YAML:1.0
name: WWW-Mechanize
-version: 1.66
+version: 1.68
abstract: Handy web browsing in a Perl object
author:
- - Andy Lester
+ - Jesse Vincent
license: perl
distribution_type: module
configure_requires:
@@ -19,6 +19,7 @@
HTML::HeadParser: 0
HTML::Parser: 3.33
HTML::TokeParser: 2.28
+ HTML::TreeBuilder: 0
HTTP::Daemon: 0
HTTP::Request: 1.3
HTTP::Server::Simple: 0.35
@@ -35,15 +36,15 @@
URI::URL: 0
resources:
bugtracker: http://code.google.com/p/www-mechanize/issues/list
- homepage: http://code.google.com/p/www-mechanize/
+ homepage: https://github.com/bestpractical/www-mechanize
license: http://dev.perl.org/licenses/
MailingList: http://groups.google.com/group/www-mechanize-users
- Repository: http://code.google.com/p/www-mechanize/source
+ Repository: https://github.com/bestpractical/www-mechanize
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.56
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/Makefile.PL new/WWW-Mechanize-1.68/Makefile.PL
--- old/WWW-Mechanize-1.66/Makefile.PL 2010-07-15 16:25:00.000000000 +0200
+++ new/WWW-Mechanize-1.68/Makefile.PL 2011-04-07 06:40:38.000000000 +0200
@@ -26,7 +26,7 @@
NAME => 'WWW::Mechanize',
VERSION_FROM => 'lib/WWW/Mechanize.pm', # finds $VERSION
ABSTRACT_FROM => 'lib/WWW/Mechanize.pm', # retrieve abstract from module
- AUTHOR => 'Andy Lester ',
+ AUTHOR => 'Jesse Vincent ',
EXE_FILES => [ 'bin/mech-dump' ],
PREREQ_PM => {
'Carp' => 0,
@@ -37,6 +37,7 @@
'HTML::HeadParser' => 0,
'HTML::Parser' => 3.33,
'HTML::TokeParser' => 2.28,
+ 'HTML::TreeBuilder' => 0,
'HTTP::Daemon' => 0,
'HTTP::Request' => 1.30,
'HTTP::Server::Simple' => 0.35,
@@ -62,9 +63,9 @@
$parms->{META_MERGE} = {
resources => {
license => 'http://dev.perl.org/licenses/',
- homepage => 'http://code.google.com/p/www-mechanize/',
+ homepage => 'https://github.com/bestpractical/www-mechanize',
bugtracker => 'http://code.google.com/p/www-mechanize/issues/list',
- Repository => 'http://code.google.com/p/www-mechanize/source',
+ Repository => 'https://github.com/bestpractical/www-mechanize',
MailingList => 'http://groups.google.com/group/www-mechanize-users',
}
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/lib/WWW/Mechanize.pm new/WWW-Mechanize-1.68/lib/WWW/Mechanize.pm
--- old/WWW-Mechanize-1.66/lib/WWW/Mechanize.pm 2010-09-10 23:35:27.000000000 +0200
+++ new/WWW-Mechanize-1.68/lib/WWW/Mechanize.pm 2011-04-21 17:10:19.000000000 +0200
@@ -10,7 +10,7 @@
=cut
-our $VERSION = '1.66';
+our $VERSION = '1.68';
=head1 SYNOPSIS
@@ -2751,17 +2751,13 @@
__END__
-=head1 REQUESTS & BUGS
+=head1 WWW::MECHANIZE'S GIT REPOSITORY
-The bug queue for WWW::Mechanize and Test::WWW::Mechanize is at
-Lhttp://code.google.com/p/www-mechanize/issues/list. Please do
-not add any tickets to the old queue at Lhttp://rt.cpan.org/.
+WWW::Mechanize is hosted at GitHub, though the bug tracker still
+lives at Google Code.
-=head1 WWW::MECHANIZE'S SUBVERSION REPOSITORY
-
-Mech and Test::WWW::Mechanize are both hosted at Google Code:
-http://code.google.com/p/www-mechanize/. The Subversion repository
-is at http://www-mechanize.googlecode.com/svn/wm/.
+Repository: https://github.com/bestpractical/www-mechanize/.
+Bugs: http://code.google.com/p/www-mechanize/issues
=head1 OTHER DOCUMENTATION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/autocheck.t new/WWW-Mechanize-1.68/t/autocheck.t
--- old/WWW-Mechanize-1.66/t/autocheck.t 2010-08-02 23:26:43.000000000 +0200
+++ new/WWW-Mechanize-1.68/t/autocheck.t 2011-04-07 06:36:45.000000000 +0200
@@ -16,7 +16,7 @@
my @results = gethostbyname( $NONEXISTENT );
if ( @results ) {
my ($name,$aliases,$addrtype,$length,@addrs) = @results;
- my $ip = join( '.', unpack('W4',$addrs[0]) );
+ my $ip = join( '.', unpack('C4',$addrs[0]) );
plan skip_all => "Your ISP is overly helpful and returns $ip for non-existent domain $NONEXISTENT. This test cannot be run.";
}
my $bad_url = "http://$NONEXISTENT/";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/content.t new/WWW-Mechanize-1.68/t/content.t
--- old/WWW-Mechanize-1.66/t/content.t 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.68/t/content.t 2011-04-07 06:36:45.000000000 +0200
@@ -0,0 +1,65 @@
+#!perl
+
+use warnings;
+use strict;
+use Test::More tests => 5;
+
+=head1 NAME
+
+content.t
+
+=head1 SYNOPSIS
+
+Tests the transforming forms of $mech->content().
+
+=cut
+
+BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
+BEGIN {
+ use_ok( 'WWW::Mechanize' );
+}
+
+my $html = <<'HTML';
+<html>
+<head>
+<title>Howdy?</title>
+</head>
+<body>
+Fine, thx!
+</body>
+</html>
+HTML
+
+
+my $mech = WWW::Mechanize->new();
+# Well actually there is no base (and therefore it does not belong to us
+# :-), so let's kludge a bit.
+$mech->{base} = 'http://example.com/';
+$mech->update_html($html);
+
+=head2 $mech->content(format => "text")
+
+=cut
+
+SKIP: {
+ eval 'use HTML::TreeBuilder';
+ skip 'HTML::TreeBuilder not installed', 2 if $@;
+
+ my $text = $mech->content(format => 'text');
+ like( $text, qr/Fine/, 'Found Fine' );
+ unlike( $text, qr/html/i, 'Could not find "html"' );
+}
+
+=head2 $mech->content(base_href => undef)
+
+=head2 $mech->content(base_href => $basehref)
+
+=cut
+
+my $content = $mech->content(base_href => 'foo');
+like($content, qr/base href="foo"/, 'Found the base href');
+
+
+$content = $mech->content(base_href => undef);
+like($content, qr[base href="http://example.com/"], 'Found the new base href');
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/form_with_fields.html new/WWW-Mechanize-1.68/t/form_with_fields.html
--- old/WWW-Mechanize-1.66/t/form_with_fields.html 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.68/t/form_with_fields.html 2011-04-07 06:36:45.000000000 +0200
@@ -0,0 +1,16 @@
+<html>
+<body>
+
+<form action="http://localhost/" method="post" enctype="multipart/form-data" name="1st_form">
+ <input type="text" name="1a" />
+ <input type="text" name="1b" />
+ <input type="Submit" name="submit" value="Submit" label="Sumbit" />
+</form>
+
+<form action="http://localhost/" method="post" name="2nd_form">
+ <input type="text" name="opt[2]" /> Like in PHP!
+ <input type="text" name="1b" />
+ <input type="Submit" name="submit" value="Submit" label="Sumbit" />
+</form>
+
+</body>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/form_with_fields.t new/WWW-Mechanize-1.68/t/form_with_fields.t
--- old/WWW-Mechanize-1.66/t/form_with_fields.t 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.68/t/form_with_fields.t 2011-04-07 06:36:45.000000000 +0200
@@ -0,0 +1,44 @@
+#!perl -Tw
+
+use warnings;
+use strict;
+use Test::More 'no_plan';
+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, autocheck => 0 );
+isa_ok( $mech, 'WWW::Mechanize' );
+my $uri = URI::file->new_abs( 't/form_with_fields.html' )->as_string;
+
+$mech->get( $uri );
+ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page};
+
+{
+ my $test = 'dies with no input';
+ eval{ my $form = $mech->form_with_fields(); };
+ ok($@,$test);
+}
+
+{
+ my $form = $mech->form_with_fields(qw/1b/);
+ isa_ok( $form, 'HTML::Form' );
+ is($form->attr('name'), '1st_form', 'first form matches');
+}
+
+{
+ my $form = $mech->form_with_fields('1b', 'opt[2]');
+ isa_ok( $form, 'HTML::Form' );
+ is($form->attr('name'), '2nd_form', 'second form matches');
+}
+
+{
+ $mech->get($uri);
+ eval { $mech->submit_form(
+ with_fields => { '1b' => '', 'opt[2]' => '' },
+ ); };
+ is($@,'', ' submit_form( with_fields => %data ) ' );
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/local/failure.t new/WWW-Mechanize-1.68/t/local/failure.t
--- old/WWW-Mechanize-1.66/t/local/failure.t 2010-08-02 23:44:58.000000000 +0200
+++ new/WWW-Mechanize-1.68/t/local/failure.t 2011-04-07 06:36:45.000000000 +0200
@@ -17,7 +17,7 @@
my @results = gethostbyname( $NONEXISTENT );
if ( @results ) {
my ($name,$aliases,$addrtype,$length,@addrs) = @results;
- my $ip = join( '.', unpack('W4',$addrs[0]) );
+ my $ip = join( '.', unpack('C4',$addrs[0]) );
plan skip_all => "Your ISP is overly helpful and returns $ip for non-existent domain $NONEXISTENT. This test cannot be run.";
}
my $bad_url = "http://$NONEXISTENT/";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/local/nonascii.html new/WWW-Mechanize-1.68/t/local/nonascii.html
--- old/WWW-Mechanize-1.66/t/local/nonascii.html 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.68/t/local/nonascii.html 2011-04-07 06:36:45.000000000 +0200
@@ -0,0 +1,14 @@
+<!DOCTYPE html
+ PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"><head>
+
+<title>Query Builder</title>
+</head>
+ <body id="comp-Search-Build">
+<form method="post" action="Build.html" name="BuildQuery">
+<input name="ValueOf'CF.{т}'" size="20" />
+</form>
+ </body>
+</html>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Mechanize-1.66/t/local/nonascii.t new/WWW-Mechanize-1.68/t/local/nonascii.t
--- old/WWW-Mechanize-1.66/t/local/nonascii.t 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.68/t/local/nonascii.t 2011-04-07 06:36:45.000000000 +0200
@@ -0,0 +1,28 @@
+#!perl
+
+use utf8;
+use warnings;
+use strict;
+use Test::More tests => 5;
+use lib 't/local';
+use LocalServer;
+
+BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
+ use_ok( 'WWW::Mechanize' );
+}
+
+my $server = LocalServer->spawn( file => 't/local/nonascii.html' );
+isa_ok( $server, 'LocalServer' );
+
+my $agent = WWW::Mechanize->new;
+isa_ok( $agent, 'WWW::Mechanize', 'Created object' );
+$agent->quiet(0);
+
+$agent->get( $server->url );
+ok( $agent->success, 'Got some page' );
+
+# \321\202 is \x{442}
+$agent->field("ValueOf'CF.{\321\202}'", "\321\201");
+is($agent->value("ValueOf'CF.{\321\202}'"), "\321\201", 'set utf value');
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org