r71296 - in /branches/upstream/libtest-www-mechanize-mojo-perl/current: Build.PL CHANGES MANIFEST META.yml Makefile.PL 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:14:25 UTC 2011
Author: jawnsy-guest
Date: Sat Mar 12 19:13:56 2011
New Revision: 71296
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71296
Log:
[svn-upgrade] new version libtest-www-mechanize-mojo-perl (0.0.8)
Added:
branches/upstream/libtest-www-mechanize-mojo-perl/current/tag-release.pl
Modified:
branches/upstream/libtest-www-mechanize-mojo-perl/current/Build.PL
branches/upstream/libtest-www-mechanize-mojo-perl/current/CHANGES
branches/upstream/libtest-www-mechanize-mojo-perl/current/MANIFEST
branches/upstream/libtest-www-mechanize-mojo-perl/current/META.yml
branches/upstream/libtest-www-mechanize-mojo-perl/current/Makefile.PL
branches/upstream/libtest-www-mechanize-mojo-perl/current/lib/Test/WWW/Mechanize/Mojo.pm
branches/upstream/libtest-www-mechanize-mojo-perl/current/t/lib/mojjy.pl
Modified: branches/upstream/libtest-www-mechanize-mojo-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/Build.PL?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/Build.PL (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/Build.PL Sat Mar 12 19:13:56 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: branches/upstream/libtest-www-mechanize-mojo-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/CHANGES?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/CHANGES (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/CHANGES Sat Mar 12 19:13:56 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: branches/upstream/libtest-www-mechanize-mojo-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/MANIFEST?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/MANIFEST Sat Mar 12 19:13:56 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: branches/upstream/libtest-www-mechanize-mojo-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/META.yml?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/META.yml (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/META.yml Sat Mar 12 19:13:56 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: branches/upstream/libtest-www-mechanize-mojo-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/Makefile.PL?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/Makefile.PL Sat Mar 12 19:13:56 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: branches/upstream/libtest-www-mechanize-mojo-perl/current/lib/Test/WWW/Mechanize/Mojo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/lib/Test/WWW/Mechanize/Mojo.pm?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/lib/Test/WWW/Mechanize/Mojo.pm (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/lib/Test/WWW/Mechanize/Mojo.pm Sat Mar 12 19:13:56 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: branches/upstream/libtest-www-mechanize-mojo-perl/current/t/lib/mojjy.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/t/lib/mojjy.pl?rev=71296&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/t/lib/mojjy.pl (original)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/t/lib/mojjy.pl Sat Mar 12 19:13:56 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
Added: branches/upstream/libtest-www-mechanize-mojo-perl/current/tag-release.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-mojo-perl/current/tag-release.pl?rev=71296&op=file
==============================================================================
--- branches/upstream/libtest-www-mechanize-mojo-perl/current/tag-release.pl (added)
+++ branches/upstream/libtest-www-mechanize-mojo-perl/current/tag-release.pl Sat Mar 12 19:13:56 2011
@@ -1,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use IO::All;
+
+my ($version) =
+ (map { m{\$VERSION *= *'([^']+)'} ? ($1) : () }
+ io->file("lib/Test/WWW/Mechanize/Mojo.pm")->getlines()
+ )
+ ;
+
+if (!defined ($version))
+{
+ die "Version is undefined!";
+}
+
+my $mini_repos_base = 'https://svn.berlios.de/svnroot/repos/web-cpan/Test-WWW-Mechanize-Mojo';
+
+my @cmd = (
+ "svn", "copy", "-m",
+ "Tagging the Test-WWW-Mechanize-Mojo release as $version",
+ "$mini_repos_base/trunk",
+ "$mini_repos_base/tags/releases/$version",
+);
+
+print join(" ", map { /\s/ ? qq{"$_"} : $_ } @cmd), "\n";
+exec(@cmd);
More information about the Pkg-perl-cvs-commits
mailing list