Hello community,

here is the log from the commit of package perl-WWW-Mechanize for 
openSUSE:Factory checked in at 2013-06-21 13:33:06
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-WWW-Mechanize (Old)
 and      /work/SRC/openSUSE:Factory/.perl-WWW-Mechanize.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-WWW-Mechanize"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-WWW-Mechanize/perl-WWW-Mechanize.changes    
2011-09-23 12:39:23.000000000 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-WWW-Mechanize.new/perl-WWW-Mechanize.changes   
    2013-06-21 13:37:26.000000000 +0200
@@ -1,0 +2,17 @@
+Sat Jun 15 06:06:50 UTC 2013 - co...@suse.com
+
+- updated to 1.72
+  [DEPENDENCIES]
+  Bumped the HTML::Form dependency to fix failures on CentOS 5
+  
+  [ENHANCEMENTS]
+  Recognise application/xhtml+xml as HTML.
+  
+  [DOCUMENTATION]
+  Improved docs about support of JavaScript
+  Typo fixes.
+  
+  [TESTS]
+  Updated tests as oops-music.com is in utf-8 now
+
+-------------------------------------------------------------------

Old:
----
  WWW-Mechanize-1.70.tar.gz

New:
----
  WWW-Mechanize-1.72.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-WWW-Mechanize.spec ++++++
--- /var/tmp/diff_new_pack.9EQcpR/_old  2013-06-21 13:37:27.000000000 +0200
+++ /var/tmp/diff_new_pack.9EQcpR/_new  2013-06-21 13:37:27.000000000 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-WWW-Mechanize
 #
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -15,81 +15,63 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
-# norootforbuild
-
-%bcond_with TestServer
-%bcond_with opt
-%bcond_with pod
 
 Name:           perl-WWW-Mechanize
+Version:        1.72
+Release:        0
 %define cpan_name WWW-Mechanize
 Summary:        Handy web browsing in a Perl object
-Version:        1.70
-Release:        1
-License:        GPL-1.0+ or Artistic-1.0
+License:        Artistic-1.0 or GPL-1.0+
 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:         
http://www.cpan.org/authors/id/J/JE/JESSE/%{cpan_name}-%{version}.tar.gz
 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
-BuildRequires:  perl(Test::Memory::Cycle)
-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
-%endif
-BuildRequires:  perl(Test::More) >= 0.34
-BuildRequires:  perl(Test::Warn) >= 0.11
-#
-BuildRequires:  perl(Carp)
-BuildRequires:  perl(File::Temp)
-BuildRequires:  perl(Getopt::Long)
-BuildRequires:  perl(HTML::Parser) >= 3.33
-### coming with HTML::Parser
+BuildRequires:  perl(HTML::Form) >= 6
 BuildRequires:  perl(HTML::HeadParser)
+BuildRequires:  perl(HTML::Parser) >= 3.33
 BuildRequires:  perl(HTML::TokeParser) >= 2.28
-BuildRequires:  perl(LWP) >= 5.829
-### coming with LWP
-BuildRequires:  perl(HTML::Form) >= 1.038
+BuildRequires:  perl(HTML::TreeBuilder)
 BuildRequires:  perl(HTTP::Daemon)
 BuildRequires:  perl(HTTP::Request) >= 1.3
+BuildRequires:  perl(HTTP::Server::Simple) >= 0.35
+BuildRequires:  perl(HTTP::Server::Simple::CGI)
 BuildRequires:  perl(HTTP::Status)
+BuildRequires:  perl(LWP) >= 5.829
 BuildRequires:  perl(LWP::UserAgent) >= 5.829
+BuildRequires:  perl(Test::Warn) >= 0.11
 BuildRequires:  perl(URI) >= 1.36
-### coming with URI
-BuildRequires:  perl(URI::file)
 BuildRequires:  perl(URI::URL)
-#
-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
+BuildRequires:  perl(URI::file)
+#BuildRequires: perl(HTTP::Request::Common)
+#BuildRequires: perl(HTTP::Response)
+#BuildRequires: perl(LocalServer)
+#BuildRequires: perl(LWP::Simple)
+#BuildRequires: perl(TestServer)
+#BuildRequires: perl(Tools)
+#BuildRequires: perl(URI::Escape)
+#BuildRequires: perl(WWW::Mechanize)
+#BuildRequires: perl(WWW::Mechanize::Image)
+#BuildRequires: perl(WWW::Mechanize::Link)
+Requires:       perl(HTML::Form) >= 6
 Requires:       perl(HTML::HeadParser)
+Requires:       perl(HTML::Parser) >= 3.33
 Requires:       perl(HTML::TokeParser) >= 2.28
-Requires:       perl(LWP) >= 5.829
-### coming with LWP
-Requires:       perl(HTML::Form) >= 1.038
+Requires:       perl(HTML::TreeBuilder)
 Requires:       perl(HTTP::Daemon)
 Requires:       perl(HTTP::Request) >= 1.3
+Requires:       perl(HTTP::Server::Simple) >= 0.35
+Requires:       perl(HTTP::Server::Simple::CGI)
 Requires:       perl(HTTP::Status)
+Requires:       perl(LWP) >= 5.829
 Requires:       perl(LWP::UserAgent) >= 5.829
+Requires:       perl(Test::Warn) >= 0.11
 Requires:       perl(URI) >= 1.36
-### coming with URI
-Requires:       perl(URI::file)
 Requires:       perl(URI::URL)
+Requires:       perl(URI::file)
+%{perl_requires}
 
 %description
 WWW::Mechanize, or Mech for short, helps you automate interaction with a
@@ -99,18 +81,12 @@
 filled and the next page can be fetched. Mech also stores a history of the
 URLs you've visited, which can be queried and revisited.
 
-Authors:
---------
-    Andy Lester <a...@petdance.com>
-
 %prep
 %setup -q -n %{cpan_name}-%{version}
-%if !%{with TestServer}
-%{__rm} -rf t/cookies.t
-%endif
+find . -type f -print0 | xargs -0 chmod 644
 
 %build
-# tests in t/live/*.t want network connectivity
+# MANUAL - tests in t/live/*.t want network connectivity
 %{__perl} Makefile.PL --nolive INSTALLDIRS=vendor
 %{__make} %{?_smp_mflags}
 
@@ -119,18 +95,11 @@
 
 %install
 %perl_make_install
-# do not perl_process_packlist (noarch)
-# remove .packlist file
-%{__rm} -rf $RPM_BUILD_ROOT%perl_vendorarch
-# remove perllocal.pod file
-%{__rm} -rf $RPM_BUILD_ROOT%perl_archlib
+%perl_process_packlist
 %perl_gen_filelist
 
-%clean
-%{__rm} -rf $RPM_BUILD_ROOT
-
 %files -f %{name}.files
-%defattr(-,root,root,-)
-%doc Changes perlcriticrc
+%defattr(-,root,root,755)
+%doc Changes
 
 %changelog

++++++ WWW-Mechanize-1.70.tar.gz -> WWW-Mechanize-1.72.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/Changes 
new/WWW-Mechanize-1.72/Changes
--- old/WWW-Mechanize-1.70/Changes      2011-08-26 19:48:12.000000000 +0200
+++ new/WWW-Mechanize-1.72/Changes      2012-02-03 00:37:59.000000000 +0100
@@ -5,6 +5,25 @@
 
 [CHANGES]
 
+1.72        Thu Feb  2 18:37:28 EST 2012
+========================================
+[DEPENDENCIES]
+Bumped the HTML::Form dependency to fix failures on CentOS 5
+
+
+
+1.71        Tue Nov 14 13:50:41 EDT 2011
+========================================
+[ENHANCEMENTS]
+Recognise application/xhtml+xml as HTML.
+
+[DOCUMENTATION]
+Improved docs about support of JavaScript
+Typo fixes.
+
+[TESTS]
+Updated tests as oops-music.com is in utf-8 now
+
 1.70        Fri Aug 26 13:46:30 EDT 2011
 ========================================
 [ENHANCEMENTS]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/MANIFEST 
new/WWW-Mechanize-1.72/MANIFEST
--- old/WWW-Mechanize-1.70/MANIFEST     2011-08-26 19:49:07.000000000 +0200
+++ new/WWW-Mechanize-1.72/MANIFEST     2012-02-03 00:39:27.000000000 +0100
@@ -52,6 +52,8 @@
 t/local/back.t
 t/local/click.t
 t/local/click_button.t
+t/local/content.t
+t/local/encoding.t
 t/local/failure.t
 t/local/follow.t
 t/local/form.t
@@ -84,4 +86,5 @@
 t/upload.t
 t/warn.t
 t/warnings.t
-META.yml                                 Module meta-data (added by MakeMaker)
+META.yml                                 Module YAML meta-data (added by 
MakeMaker)
+META.json                                Module JSON meta-data (added by 
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/META.json 
new/WWW-Mechanize-1.72/META.json
--- old/WWW-Mechanize-1.70/META.json    1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Mechanize-1.72/META.json    2012-02-03 00:39:27.000000000 +0100
@@ -0,0 +1,74 @@
+{
+   "abstract" : "Handy web browsing in a Perl object",
+   "author" : [
+      "Jesse Vincent <je...@bestpractical.com>"
+   ],
+   "dynamic_config" : 1,
+   "generated_by" : "ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter 
version 2.112150",
+   "license" : [
+      "perl_5"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+      "version" : "2"
+   },
+   "name" : "WWW-Mechanize",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "inc"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : 0
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : 0
+         }
+      },
+      "runtime" : {
+         "requires" : {
+            "Carp" : 0,
+            "File::Temp" : 0,
+            "FindBin" : 0,
+            "Getopt::Long" : 0,
+            "HTML::Form" : "6",
+            "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",
+            "HTTP::Server::Simple::CGI" : 0,
+            "HTTP::Status" : 0,
+            "LWP" : "5.829",
+            "LWP::UserAgent" : "5.829",
+            "Pod::Usage" : 0,
+            "Test::More" : "0.34",
+            "Test::Warn" : "0.11",
+            "URI" : "1.36",
+            "URI::URL" : 0,
+            "URI::file" : 0,
+            "perl" : "5.008"
+         }
+      }
+   },
+   "release_status" : "stable",
+   "resources" : {
+      "bugtracker" : {
+         "web" : "http://code.google.com/p/www-mechanize/issues/list";
+      },
+      "homepage" : "https://github.com/bestpractical/www-mechanize";,
+      "license" : [
+         "http://dev.perl.org/licenses/";
+      ],
+      "x_MailingList" : "http://groups.google.com/group/www-mechanize-users";,
+      "x_Repository" : "https://github.com/bestpractical/www-mechanize";
+   },
+   "version" : "1.72"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/META.yml 
new/WWW-Mechanize-1.72/META.yml
--- old/WWW-Mechanize-1.70/META.yml     2011-08-26 19:49:07.000000000 +0200
+++ new/WWW-Mechanize-1.72/META.yml     2012-02-03 00:39:27.000000000 +0100
@@ -1,50 +1,50 @@
---- #YAML:1.0
-name:               WWW-Mechanize
-version:            1.70
-abstract:           Handy web browsing in a Perl object
+---
+abstract: 'Handy web browsing in a Perl object'
 author:
-    - Jesse Vincent <je...@bestpractical.com>
-license:            perl
-distribution_type:  module
-configure_requires:
-    ExtUtils::MakeMaker:  0
+  - 'Jesse Vincent <je...@bestpractical.com>'
 build_requires:
-    ExtUtils::MakeMaker:  0
+  ExtUtils::MakeMaker: 0
+configure_requires:
+  ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter version 
2.112150'
+license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: WWW-Mechanize
+no_index:
+  directory:
+    - t
+    - inc
 requires:
-    Carp:                 0
-    File::Temp:           0
-    FindBin:              0
-    Getopt::Long:         0
-    HTML::Form:           1.038
-    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
-    HTTP::Server::Simple::CGI:  0
-    HTTP::Status:         0
-    LWP:                  5.829
-    LWP::UserAgent:       5.829
-    perl:                 5.008
-    Pod::Usage:           0
-    Test::More:           0.34
-    Test::Warn:           0.11
-    URI:                  1.36
-    URI::file:            0
-    URI::URL:             0
+  Carp: 0
+  File::Temp: 0
+  FindBin: 0
+  Getopt::Long: 0
+  HTML::Form: 6
+  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
+  HTTP::Server::Simple::CGI: 0
+  HTTP::Status: 0
+  LWP: 5.829
+  LWP::UserAgent: 5.829
+  Pod::Usage: 0
+  Test::More: 0.34
+  Test::Warn: 0.11
+  URI: 1.36
+  URI::URL: 0
+  URI::file: 0
+  perl: 5.008
 resources:
-    bugtracker:   http://code.google.com/p/www-mechanize/issues/list
-    homepage:     https://github.com/bestpractical/www-mechanize
-    license:      http://dev.perl.org/licenses/
-    MailingList:  http://groups.google.com/group/www-mechanize-users
-    Repository:   https://github.com/bestpractical/www-mechanize
-no_index:
-    directory:
-        - t
-        - inc
-generated_by:       ExtUtils::MakeMaker version 6.56
-meta-spec:
-    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
-    version:  1.4
+  bugtracker: http://code.google.com/p/www-mechanize/issues/list
+  homepage: https://github.com/bestpractical/www-mechanize
+  license: http://dev.perl.org/licenses/
+  x_MailingList: http://groups.google.com/group/www-mechanize-users
+  x_Repository: https://github.com/bestpractical/www-mechanize
+version: 1.72
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/Makefile.PL 
new/WWW-Mechanize-1.72/Makefile.PL
--- old/WWW-Mechanize-1.70/Makefile.PL  2011-08-26 19:42:42.000000000 +0200
+++ new/WWW-Mechanize-1.72/Makefile.PL  2012-02-03 00:37:14.000000000 +0100
@@ -33,7 +33,7 @@
         'File::Temp'                => 0,
         'FindBin'                   => 0,
         'Getopt::Long'              => 0,
-        'HTML::Form'                => 1.038,
+        'HTML::Form'                => 6.00,
         'HTML::HeadParser'          => 0,
         'HTML::Parser'              => 3.33,
         'HTML::TokeParser'          => 2.28,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/lib/WWW/Mechanize/FAQ.pod 
new/WWW-Mechanize-1.72/lib/WWW/Mechanize/FAQ.pod
--- old/WWW-Mechanize-1.70/lib/WWW/Mechanize/FAQ.pod    2011-08-26 
19:42:17.000000000 +0200
+++ new/WWW-Mechanize-1.72/lib/WWW/Mechanize/FAQ.pod    2011-10-09 
19:58:05.000000000 +0200
@@ -28,48 +28,9 @@
 
 I added some basic attempts at picking up URLs in C<window.open()>
 calls and return them in C<< $mech->links >>.  They work sometimes.
-Beyond that, there's no support for JavaScript.
-
-=head2 Are you going to add JavaScript support?
-
-I will if anyone sends me the code to do it.  I'm not going to write a
-JavaScript processor myself.
-
-=head2 Wouldn't that be a great thing to have in WWW::Mechanize?
-
-Yes.
-
-=head2 Would it be hard to do?
-
-Hard enough that I don't want to deal with it myself.  Plus, I don't
-use JavaScript myself, so I don't have an itch to scratch.
-
-=head2 Is anyone working on it?
-
-I've heard noises from people every so often over the past couple of
-years, but nothing you'd pin your hopes on.
-
-=head2 It would really help me with a project I'm working on.
-
-I'm sure it would.
-
-=head2 Do you know when it might get added?
-
-I have no idea if or when such a thing will ever get done.  I can
-guarantee that as soon as there's anything close to JavaScript support
-I will let everyone know.
-
-=head2 Maybe I'll ask around and see if anyone else knows of a solution.
-
-If you must, but I doubt that anyone's written JavaScript support for
-Mechanize and neglected to tell me about it.
-
-=head2 So what can I do?
 
 Since Javascript is completely visible to the client, it cannot be used
-to prevent a scraper from following links. But it can make life difficult,
-and until someone writes a Javascript interpreter for Perl or a Mechanize
-clone to control Firefox, there will be no general solution.  But if
+to prevent a scraper from following links. But it can make life difficult. If
 you want to scrape specific pages, then a solution is always possible.
 
 One typical use of Javascript is to perform argument checking before
@@ -88,8 +49,8 @@
 the the argument separators ('?', '&' or ';') into newlines. Now it is
 easy to use diff or comm to find out what Javascript did to the URL.
 Step 2 - find the function call which created the URL - you will need
-to parse and interpret its argument list. Using the Javascript Debugger
-Extension for Firefox may help with the analysis. At this point, it is
+to parse and interpret its argument list. The Javascript Debugger in the
+Firebug extension for Firefox helps with the analysis. At this point, it is
 fairly trivial to write your own function which emulates the Javascript
 for the pages you want to process.
 
@@ -118,6 +79,11 @@
 for completeness. If you are missing headers, C<< $mech->add_header >>
 can be used to add the headers that you need.
 
+=head2 Which modules work like Mechanize and have JavaScript support?
+
+In no particular order: L<Gtk2::WebKit::Mechanize>, L<Win32::IE::Mechanize>,
+L<WWW::Mechanize::Firefox>, L<WWW::Scripter>, L<WWW::Selenium>
+
 =head1 How do I do X?
 
 =head2 Can I do [such-and-such] with WWW::Mechanize?
@@ -144,7 +110,7 @@
 
 =head2 How can I see what fields are on the forms?
 
-Use the mech-dump utility, optionaly installed with Mechanize.
+Use the mech-dump utility, optionally installed with Mechanize.
 
     $ mech-dump --forms http://search.cpan.org
     Dumping forms
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/lib/WWW/Mechanize.pm 
new/WWW-Mechanize-1.72/lib/WWW/Mechanize.pm
--- old/WWW-Mechanize-1.70/lib/WWW/Mechanize.pm 2011-08-26 19:47:58.000000000 
+0200
+++ new/WWW-Mechanize-1.72/lib/WWW/Mechanize.pm 2012-02-03 00:38:14.000000000 
+0100
@@ -10,7 +10,7 @@
 
 =cut
 
-our $VERSION = '1.70';
+our $VERSION = '1.72';
 
 =head1 SYNOPSIS
 
@@ -100,8 +100,8 @@
 
     $mech->add_header($name => $value);
 
-Please note that Mech does NOT support JavaScript.  Please check the
-FAQ in WWW::Mechanize::FAQ for more.
+Please note that Mech does NOT support JavaScript, you need additional software
+for that. Please check L<WWW::Mechanize::FAQ/"JavaScript"> for more.
 
 =head1 IMPORTANT LINKS
 
@@ -559,7 +559,11 @@
 sub ct {            my $self = shift; return $self->{ct}; }
 sub content_type {  my $self = shift; return $self->{ct}; }
 sub base {          my $self = shift; return $self->{base}; }
-sub is_html {       my $self = shift; return defined $self->ct && ($self->ct 
eq 'text/html'); }
+sub is_html {
+    my $self = shift;
+    return defined $self->ct &&
+        ($self->ct eq 'text/html' || $self->ct eq 'application/xhtml+xml');
+}
 
 =head2 $mech->title()
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/t/live/encoding.t 
new/WWW-Mechanize-1.72/t/live/encoding.t
--- old/WWW-Mechanize-1.70/t/live/encoding.t    2011-08-26 19:42:17.000000000 
+0200
+++ new/WWW-Mechanize-1.72/t/live/encoding.t    2011-11-25 19:21:42.000000000 
+0100
@@ -8,8 +8,6 @@
         => 'utf-8',
     'http://www.liveinternet.ru/users/dashdi/blog'
         => '(?:cp|windows-)1251',
-    'http://oops-music.com/'
-        => 'EUC-JP',
 };
 
 use Test::More tests => (4 * keys %{+PAIRS}) + 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/t/local/content.t 
new/WWW-Mechanize-1.72/t/local/content.t
--- old/WWW-Mechanize-1.70/t/local/content.t    1970-01-01 01:00:00.000000000 
+0100
+++ new/WWW-Mechanize-1.72/t/local/content.t    2011-10-09 19:58:05.000000000 
+0200
@@ -0,0 +1,35 @@
+#!perl
+
+use warnings;
+use strict;
+use lib 't/local';
+use LocalServer;
+use Test::More tests => 10;
+
+BEGIN {
+    delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+    delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
+    use_ok( 'WWW::Mechanize' );
+}
+
+my $mech = WWW::Mechanize->new();
+isa_ok( $mech, 'WWW::Mechanize', 'Created the object' );
+
+my $server = LocalServer->spawn();
+isa_ok( $server, 'LocalServer' );
+
+diag('Running tests against ' . $server->url . '?xml=1');
+my $response = $mech->get( $server->url . '?xml=1' );
+isa_ok( $response, 'HTTP::Response', 'Got back a response' );
+ok( $response->is_success, 'Got URL' ) or die q{Can't even fetch local url};
+is( $response->content_type, 'application/xhtml+xml', 'Content type is 
application/xhtml+xml' );
+ok( $mech->is_html, 'Local page is HTML' );
+
+$mech->field(query => 'foo'); # Filled the 'q' field
+
+$response = $mech->click('submit');
+isa_ok( $response, 'HTTP::Response', 'Got back a response' );
+ok( $response->is_success, q{Can click 'Go' ('Google Search' button)} );
+
+is( $mech->field('query'),'foo', 'Filled field correctly');
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/t/local/encoding.t 
new/WWW-Mechanize-1.72/t/local/encoding.t
--- old/WWW-Mechanize-1.70/t/local/encoding.t   1970-01-01 01:00:00.000000000 
+0100
+++ new/WWW-Mechanize-1.72/t/local/encoding.t   2011-11-25 19:21:42.000000000 
+0100
@@ -0,0 +1,23 @@
+#!perl
+
+use warnings;
+use strict;
+use Test::More tests => 5;
+use lib qw( 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 $mech = WWW::Mechanize->new();
+isa_ok( $mech, 'WWW::Mechanize' );
+my $server = LocalServer->spawn();
+isa_ok( $server, 'LocalServer' );
+
+my $response = $mech->get( $server->url . 'encoding/euc-jp' );
+ok( $mech->success, 'Fetched OK' );
+is( $response->content_charset(), 'EUC-JP', 'got encoding enc-jp' );
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/WWW-Mechanize-1.70/t/local/log-server 
new/WWW-Mechanize-1.72/t/local/log-server
--- old/WWW-Mechanize-1.70/t/local/log-server   2011-08-26 19:42:17.000000000 
+0200
+++ new/WWW-Mechanize-1.72/t/local/log-server   2011-11-25 19:21:42.000000000 
+0100
@@ -94,6 +94,13 @@
                return $buf if $count-- > 0;
                die "Planned error after headers";
             });
+        } elsif ($location =~ m!^/encoding/(.*)!) {
+            my $encoding = $1;
+            $res = HTTP::Response->new(
+                200, "OK",
+                [ 'Content-Type' => "text/html; charset=$encoding" ],
+                "encoding $encoding"
+            );
         } else {
             my $q = CGI->new($r->uri->query);
 
@@ -113,7 +120,11 @@
                   'Connection' => 'close',
                   'Content-Length' => length($rbody),
               ], $rbody);
-            $res->content_type('text/html');
+
+            $res->content_type(
+                $q->param('xml') ? 'application/xhtml+xml' : 'text/html'
+            );
+
             debug "Request " . ($r->uri->path || "/");
         };
       };

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to