Merge branch 'release/1.2002_02'

CHANGES

@@ -1,3 +1,11 @@
+Dancer 1.2002_02
+    [ Danijel Tasov ]
+    * Correct HTTP.pm POD's 503 entry with 403.
+
+    [ Paul Tomlin ]
+    * Tests for URI object in uri_for.
+    * Update Plack middleware tests compatibility.
+
 Dancer 1.2002_01
     [ Joel Roth ]
     * Code fixes in documentation (Dancer::Session, Dancer::Introduction).

lib/Dancer.pm

@@ -31,7 +31,7 @@ use File::Basename 'basename';
 use base 'Exporter';
 
 $AUTHORITY = 'SUKRIA';
-$VERSION   = '1.2002_01';
+$VERSION   = '1.2002_02';
 @EXPORT    = qw(
   after
   any

lib/Dancer/HTTP.pm

@@ -103,6 +103,10 @@ from a Dancer script.
 
 returns 200 OK, alias : 'ok'
 
+=head2 403
+
+returns 403 Forbidden, alias 'forbidden'
+
 =head2 404
 
 returns 404 Not Found, alias : 'not_found'
@@ -111,10 +115,6 @@ returns 404 Not Found, alias : 'not_found'
 
 returns 500 Internal Server Error, alias: 'error'
 
-=head2 503
-
-returns 503 Forbidden, alias 'forbidden'
-
 =head1 AUTHOR
 
 This module has been written by Alexis Sukrieh <sukria@cpan.org>

t/02_request/12_base.t

@@ -1,7 +1,7 @@
 use Test::More;
 use Dancer::Request;
 
-plan tests => 8;
+plan tests => 10;
 
 my $env = {
     'psgi.url_scheme' => 'http',
@@ -22,6 +22,8 @@ is $req->uri_for('bar', { baz => 'baz' }),
     'http://localhost:5000/foo/bar?baz=baz';
 
 is $req->uri_for('/bar'), 'http://localhost:5000/foo/bar';
+ok $req->uri_for('/bar')->isa('URI'), 'uri_for returns a URI';
+ok $req->uri_for('/bar', undef, 1)->isa('URI'), 'uri_for returns a URI (with $dont_escape)';
 
 is $req->request_uri, '/foo/bar/baz';
 is $req->path_info, '/bar/baz';

t/07_apphandlers/05_psgi_api.t

@@ -30,7 +30,7 @@ my $app = sub {
     $handler->handle_request($request);
 };
 
-setting 'plack_middlewares' => { 'Runtime' => [], };
+setting 'plack_middlewares' => [['Runtime']];
 setting 'public' => '.';
 
 ok $app = $handler->apply_plack_middlewares($app);