Merge branch 'master' into australorp
John Napiorkowski [Mon, 2 Mar 2015 16:43:44 +0000 (10:43 -0600)]
Conflicts:
Changes
lib/Catalyst.pm
lib/Catalyst/Runtime.pm

Changes
lib/Catalyst.pm
lib/Catalyst/Runtime.pm
t/arg_constraints.t [new file with mode: 0644]

diff --git a/Changes b/Changes
index db97404..8fd50ce 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+5.90089_001 - TBA
+
 5.90084 - 2015-02-23
   - Small change to the way body parameters are created in order to prevent
     trying to create parameters twice.
@@ -34,6 +36,7 @@
     test case to prevent regressions.
 
 5.90080 - 2015-01-09
+>>>>>>> master
   - Minor documentation corrections
   - Make the '79 development series stable
 
index 92621a1..0d8a817 100644 (file)
@@ -129,7 +129,7 @@ __PACKAGE__->stats_class('Catalyst::Stats');
 __PACKAGE__->_encode_check(Encode::FB_CROAK | Encode::LEAVE_SRC);
 
 # Remember to update this in Catalyst::Runtime as well!
-our $VERSION = '5.90084';
+our $VERSION = '5.90089_001';
 $VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases
 
 sub import {
index 09b70c9..cc02f87 100644 (file)
@@ -7,7 +7,7 @@ BEGIN { require 5.008003; }
 
 # Remember to update this in Catalyst as well!
 
-our $VERSION = '5.90084';
+our $VERSION = '5.90089_001';
 $VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases
 
 =head1 NAME
diff --git a/t/arg_constraints.t b/t/arg_constraints.t
new file mode 100644 (file)
index 0000000..bbc312f
--- /dev/null
@@ -0,0 +1,36 @@
+use warnings;
+use strict;
+use Test::More;
+use HTTP::Request::Common;
+
+{
+  package MyApp::Controller::Root;
+  $INC{'MyApp/Controller/Root.pm'} = __FILE__;
+
+  use Moose;
+  use MooseX::MethodAttributes;
+
+  extends 'Catalyst::Controller';
+
+  sub check :Local {
+    pop->res->from_psgi_response([200, ['Content-Type'=>'text/plain'],['check']]);
+  }
+
+  MyApp::Controller::Root->config(namespace=>'');
+
+  package MyApp;
+  use Catalyst;
+
+  MyApp->setup;
+}
+
+use Catalyst::Test 'MyApp';
+
+{
+  my $res = request '/check';
+  is $res->code, 200, 'OK';
+  is $res->content, 'check', 'correct body';
+  is $res->content_length, 5, 'correct length';
+}
+
+done_testing;