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 - [email protected] + +- 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 <[email protected]> + - Jesse Vincent <[email protected]> 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 <[email protected]>', + AUTHOR => 'Jesse Vincent <[email protected]>', 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 -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/>. +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: [email protected] For additional commands, e-mail: [email protected]
