[Bps-public-commit] www-mechanize branch, master, updated. 1.69_01-8-g6401382
? sunnavy
sunnavy at bestpractical.com
Mon Nov 14 13:13:10 EST 2011
The branch, master has been updated
via 64013824fa5c02f70f5e0c2ea1990505c756e18c (commit)
via 95e27a03f9eb7fcab5ed4d06c1828d6d13c55439 (commit)
via 9e309b49eef2b40a9c1e61dc9dbaf5f4725284c8 (commit)
from 958f42b261e04bb8a3ab02746307ebccf2a3601e (commit)
Summary of changes:
Changes | 12 ++++++++++++
lib/WWW/Mechanize.pm | 2 +-
t/live/encoding.t | 2 --
t/local/encoding.t | 23 +++++++++++++++++++++++
t/local/log-server | 7 +++++++
5 files changed, 43 insertions(+), 3 deletions(-)
create mode 100644 t/local/encoding.t
- Log -----------------------------------------------------------------
commit 9e309b49eef2b40a9c1e61dc9dbaf5f4725284c8
Author: sunnavy <sunnavy at bestpractical.com>
Date: Tue Nov 15 01:12:26 2011 +0800
oops-music.com is in utf-8 now
diff --git a/t/live/encoding.t b/t/live/encoding.t
index a68a9e3..d84f880 100644
--- a/t/live/encoding.t
+++ b/t/live/encoding.t
@@ -8,8 +8,6 @@ use constant PAIRS => {
=> '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;
commit 95e27a03f9eb7fcab5ed4d06c1828d6d13c55439
Author: sunnavy <sunnavy at bestpractical.com>
Date: Tue Nov 15 01:42:22 2011 +0800
locally test euc-jp encoding
as we removed oops-music.com in live tests
diff --git a/t/local/encoding.t b/t/local/encoding.t
new file mode 100644
index 0000000..3ece645
--- /dev/null
+++ b/t/local/encoding.t
@@ -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 --git a/t/local/log-server b/t/local/log-server
index 7cb21bc..90d107f 100755
--- a/t/local/log-server
+++ b/t/local/log-server
@@ -94,6 +94,13 @@ SERVERLOOP: {
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);
commit 64013824fa5c02f70f5e0c2ea1990505c756e18c
Author: sunnavy <sunnavy at bestpractical.com>
Date: Tue Nov 15 02:02:23 2011 +0800
Checking in changes prior to tagging of version 1.71
Changelog diff is:
diff --git a/Changes b/Changes
index 95f4eba..dfe000e 100644
--- a/Changes
+++ b/Changes
@@ -5,6 +5,18 @@ http://groups.google.com/group/www-mechanize-users
[CHANGES]
+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 --git a/Changes b/Changes
index 95f4eba..d153eb8 100644
--- a/Changes
+++ b/Changes
@@ -5,6 +5,18 @@ http://groups.google.com/group/www-mechanize-users
[CHANGES]
+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 --git a/lib/WWW/Mechanize.pm b/lib/WWW/Mechanize.pm
index cb86e59..0391472 100644
--- a/lib/WWW/Mechanize.pm
+++ b/lib/WWW/Mechanize.pm
@@ -10,7 +10,7 @@ Version 1.70
=cut
-our $VERSION = '1.70';
+our $VERSION = '1.71';
=head1 SYNOPSIS
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list