r71298 - in /trunk/libtest-www-mechanize-mojo-perl: Build.PL CHANGES MANIFEST META.yml Makefile.PL debian/changelog debian/control lib/Test/WWW/Mechanize/Mojo.pm t/lib/mojjy.pl tag-release.pl
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Mar 12 19:17:49 UTC 2011
Author: jawnsy-guest
Date: Sat Mar 12 19:17:27 2011
New Revision: 71298
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71298
Log:
integrate new upstream release
Added:
trunk/libtest-www-mechanize-mojo-perl/tag-release.pl
- copied unchanged from r71297, branches/upstream/libtest-www-mechanize-mojo-perl/current/tag-release.pl
Modified:
trunk/libtest-www-mechanize-mojo-perl/Build.PL
trunk/libtest-www-mechanize-mojo-perl/CHANGES
trunk/libtest-www-mechanize-mojo-perl/MANIFEST
trunk/libtest-www-mechanize-mojo-perl/META.yml
trunk/libtest-www-mechanize-mojo-perl/Makefile.PL
trunk/libtest-www-mechanize-mojo-perl/debian/changelog
trunk/libtest-www-mechanize-mojo-perl/debian/control
trunk/libtest-www-mechanize-mojo-perl/lib/Test/WWW/Mechanize/Mojo.pm
trunk/libtest-www-mechanize-mojo-perl/t/lib/mojjy.pl
Modified: trunk/libtest-www-mechanize-mojo-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/Build.PL?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/Build.PL (original)
+++ trunk/libtest-www-mechanize-mojo-perl/Build.PL Sat Mar 12 19:17:27 2011
@@ -7,6 +7,10 @@
my $build = Test::Run::Builder->new(
module_name => "Test::WWW::Mechanize::Mojo",
+ configure_requires =>
+ {
+ 'Module::Build' => '0.36',
+ },
test_requires =>
{
'Test::Exception'=> '0',
@@ -21,8 +25,10 @@
'HTML::Entities' => 0,
'LWP' => '5.816',
'Mojolicious::Lite' => 0,
+ 'Mojolicious' => '1.01',
'strict' => 0,
'Test::WWW::Mechanize' => '1.14',
+ 'utf8' => 0,
'warnings' => 0,
'WWW::Mechanize' => '1.50',
},
Modified: trunk/libtest-www-mechanize-mojo-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/CHANGES?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/CHANGES (original)
+++ trunk/libtest-www-mechanize-mojo-perl/CHANGES Sat Mar 12 19:17:27 2011
@@ -1,4 +1,21 @@
Revision history for Perl module Test::WWW::Mechanize::Mojo :
+
+v0.0.8 Wed Jan 26 14:56:01 IST 2011
+ - Convert the mentioning of CATALYST_SERVER to MOJO_SERVER.
+ - thanks to Insurgent Software.
+
+v0.0.7 Mon Jan 17 15:55:00 IST 2011
+ - Fixed mojjy.pl and the lib/Test/WWW/Mechanize/Mojo.pm code in recent
+ Mojo versions.
+ - app->start instead of shagadelic.
+ - some tweaks to the ->$method->res.
+
+v0.0.6 Fri Sep 3 20:43:26 IDT 2010
+ - Fixed mojjy.pl to avoid double encoding in recent Mojo versions.
+
+v0.0.5 Mon Jun 14 21:54:45 IDT 2010
+ - Removed the call to Test::Mojo->redirect() which is no longer
+ implemented in recent Mojos.
v0.0.4 Wed Mar 17 16:01:20 IST 2010
- Now evaluating the GET parameters in requests by using URI.pm's
@@ -14,7 +31,7 @@
v0.0.1 Tue Mar 2 20:59:50 IST 2010
- Ported to Mojo from Test::WWW::Mechanize::Catalyst
- - Convert from Module::Install Module::Build .
+ - Convert from Module::Install to Module::Build .
- All rights disclaimed.
Revision history for Perl module Test::WWW::Mechanize::Catalyst:
Modified: trunk/libtest-www-mechanize-mojo-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/MANIFEST?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/MANIFEST (original)
+++ trunk/libtest-www-mechanize-mojo-perl/MANIFEST Sat Mar 12 19:17:27 2011
@@ -6,6 +6,7 @@
MANIFEST This list of files
META.yml
README
+tag-release.pl
t/auth-test.t
t/cookies.t
t/form_submit.t
Modified: trunk/libtest-www-mechanize-mojo-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/META.yml?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/META.yml (original)
+++ trunk/libtest-www-mechanize-mojo-perl/META.yml Sat Mar 12 19:17:27 2011
@@ -5,7 +5,7 @@
- 'Original Author: Leon Brocard, C<< <acme at astray.com> >>'
configure_requires:
Module::Build: 0.36
-generated_by: 'Module::Build version 0.3603'
+generated_by: 'Module::Build version 0.3617'
keywords: []
license: perl
meta-spec:
@@ -15,20 +15,22 @@
provides:
Test::WWW::Mechanize::Mojo:
file: lib/Test/WWW/Mechanize/Mojo.pm
- version: v0.0.4
+ version: v0.0.8
requires:
Carp: 0
Encode: 0
HTML::Entities: 0
LWP: 5.816
+ Mojolicious: 1.01
Mojolicious::Lite: 0
Test::WWW::Mechanize: 1.14
WWW::Mechanize: 1.50
base: 0
strict: 0
+ utf8: 0
warnings: 0
resources:
homepage: http://web-cpan.berlios.de/modules/Test-WWW-Mechanize-Mojo/
license: http://dev.perl.org/licenses/
repository: http://svn.berlios.de/svnroot/repos/web-cpan/Test-WWW-Mechanize-Mojo
-version: v0.0.4
+version: v0.0.8
Modified: trunk/libtest-www-mechanize-mojo-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/Makefile.PL?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/Makefile.PL (original)
+++ trunk/libtest-www-mechanize-mojo-perl/Makefile.PL Sat Mar 12 19:17:27 2011
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3603
+# Note: this file was auto-generated by Module::Build::Compat version 0.36_17
use ExtUtils::MakeMaker;
WriteMakefile
(
@@ -9,11 +9,13 @@
'Encode' => 0,
'HTML::Entities' => 0,
'LWP' => '5.816',
+ 'Mojolicious' => '1.01',
'Mojolicious::Lite' => 0,
'Test::WWW::Mechanize' => '1.14',
'WWW::Mechanize' => '1.50',
'base' => 0,
'strict' => 0,
+ 'utf8' => 0,
'warnings' => 0
},
'INSTALLDIRS' => 'site',
Modified: trunk/libtest-www-mechanize-mojo-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/debian/changelog?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/debian/changelog (original)
+++ trunk/libtest-www-mechanize-mojo-perl/debian/changelog Sat Mar 12 19:17:27 2011
@@ -1,5 +1,5 @@
-libtest-www-mechanize-mojo-perl (0.0.4-1) UNRELEASED; urgency=low
+libtest-www-mechanize-mojo-perl (0.0.8-1) UNRELEASED; urgency=low
* Initial Release.
- -- Jonathan Yu <jawnsy at cpan.org> Sat, 15 May 2010 23:42:16 -0400
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 12 Mar 2011 14:39:52 -0500
Modified: trunk/libtest-www-mechanize-mojo-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/debian/control?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/debian/control (original)
+++ trunk/libtest-www-mechanize-mojo-perl/debian/control Sat Mar 12 19:17:27 2011
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 8)
Build-Depends-Indep: perl,
libhtml-parser-perl,
- libmojolicious-perl,
+ libmojolicious-perl (>= 1.01),
libtest-www-mechanize-perl (>= 1.14),
libwww-mechanize-perl (>= 1.50),
libwww-perl (>= 5.816)
@@ -19,7 +19,7 @@
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends},
libhtml-parser-perl,
- libmojolicious-perl,
+ libmojolicious-perl (>= 1.01),
libtest-www-mechanize-perl (>= 1.14),
libwww-mechanize-perl (>= 1.50),
libwww-perl (>= 5.816)
Modified: trunk/libtest-www-mechanize-mojo-perl/lib/Test/WWW/Mechanize/Mojo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/lib/Test/WWW/Mechanize/Mojo.pm?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/lib/Test/WWW/Mechanize/Mojo.pm (original)
+++ trunk/libtest-www-mechanize-mojo-perl/lib/Test/WWW/Mechanize/Mojo.pm Sat Mar 12 19:17:27 2011
@@ -11,7 +11,7 @@
use Test::Mojo;
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.8';
our $APP_CLASS;
my $Test = Test::Builder->new();
@@ -102,11 +102,13 @@
=cut
+ my $tester = delete($args->{tester});
+
my $self = $class->SUPER::new(%$args);
- if ($args->{tester})
+ if ($tester)
{
- $self->tester($args->{tester});
+ $self->tester($tester);
}
else
{
@@ -123,8 +125,8 @@
sub BUILD {
my ($self) = @_;
- unless ($ENV{CATALYST_SERVER}) {
- croak "mojo_app attribute is required unless CATALYST_SERVER env variable is set"
+ unless ($ENV{MOJO_SERVER}) {
+ croak "mojo_app attribute is required unless MOJO_SERVER env variable is set"
unless $self->has_mojo_app;
Class::MOP::load_class($self->mojo_app)
unless (Class::MOP::is_class_loaded($self->mojo_app));
@@ -234,16 +236,10 @@
$request->header_field_names()
);
- $client->$method($uri->path_query(),
- # TODO : fix this to pass it as a ref.
- %headers,
+ my $mojo_res = $client->$method($uri->path_query(),
+ { %headers },
$request->content,
- sub { my (undef, $tx, $redirs) = @_;
- $t->tx($tx) and $t->redirects($redirs)
- }
- )->process;
-
- my $mojo_res = $t->tx->res;
+ )->res;
my $response = HTTP::Response->new(
$mojo_res->code(),
@@ -276,7 +272,7 @@
my $res = $self->_check_external_request($request);
return $res if $res;
- my $server = URI->new( $ENV{CATALYST_SERVER} );
+ my $server = URI->new( $ENV{MOJO_SERVER} );
if ( $server->path =~ m|^(.+)?/$| ) {
my $path = $1;
@@ -369,15 +365,15 @@
$mech->allow_external(1);
You can also test a remote server by setting the environment variable
-CATALYST_SERVER; for example:
-
- $ CATALYST_SERVER=http://example.com/myapp prove -l t
+MOJO_SERVER; for example:
+
+ $ MOJO_SERVER=http://example.com/myapp prove -l t
will run the same tests on the application running at
http://example.com/myapp regardless of whether or not you specify
http:://localhost for Test::WWW::Mechanize::Mojo.
-Furthermore, if you set CATALYST_SERVER, the server will be regarded
+Furthermore, if you set MOJO_SERVER, the server will be regarded
as a remote server even if your links point to localhost. Thus, you
can use Test::WWW::Mechanize::Mojo to test your live webserver
running on your local machine, if you need to test aspects of your
Modified: trunk/libtest-www-mechanize-mojo-perl/t/lib/mojjy.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-mojo-perl/t/lib/mojjy.pl?rev=71298&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-mojo-perl/t/lib/mojjy.pl (original)
+++ trunk/libtest-www-mechanize-mojo-perl/t/lib/mojjy.pl Sat Mar 12 19:17:27 2011
@@ -5,6 +5,8 @@
use MIME::Base64;
use Encode qw//;
use Cwd;
+
+use utf8;
sub html {
my ( $title, $body ) = @_;
@@ -72,8 +74,7 @@
get '/hello' => sub {
my $self = shift;
- my $str = Encode::encode('utf-8', "\x{263A}"); # ☺
- my $html = html( "Hello", "Hi there! $str" );
+ my $html = html( "Hello", "Hi there! ☺" ); # ☺
$self->res->headers->content_type("text/html; charset=utf-8");
$self->render_text($html);
@@ -198,7 +199,7 @@
return;
};
-shagadelic;
+app->start;
=head1 TODO
More information about the Pkg-perl-cvs-commits
mailing list