default_message accepts an optional argument

mojolicious · Oct 28, 2014 · 65859a2 · 65859a2
1 parent ac0eae6
commit 65859a2
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,5 @@
 
-5.55  2014-10-25
+5.55  2014-10-28
   - Added access_control_allow_origin, content_language, content_location and
     strict_transport_security methods to Mojo::Headers.
 

diff --git a/lib/Mojo/Message/Response.pm b/lib/Mojo/Message/Response.pm
@@ -214,6 +214,7 @@ Access response cookies, usually L<Mojo::Cookie::Response> objects.
 =head2 default_message
 
   my $msg = $res->default_message;
+  my $msg = $res->default_message(418);
 
 Generate default response message for code.
 

diff --git a/lib/Test/Mojo.pm b/lib/Test/Mojo.pm
@@ -265,14 +265,13 @@ sub send_ok {
 
 sub status_is {
   my ($self, $status, $desc) = @_;
-  $desc ||= "$status " . $self->tx->res->new(code => $status)->default_message;
+  $desc ||= "$status " . $self->tx->res->default_message($status);
   return $self->_test('is', $self->tx->res->code, $status, $desc);
 }
 
 sub status_isnt {
   my ($self, $status, $desc) = @_;
-  $desc
-    ||= "not $status " . $self->tx->res->new(code => $status)->default_message;
+  $desc ||= "not $status " . $self->tx->res->default_message($status);
   return $self->_test('isnt', $self->tx->res->code, $status, $desc);
 }
 

diff --git a/t/mojo/response.t b/t/mojo/response.t
@@ -80,6 +80,7 @@ is $res->code(509)->default_message, 'Bandwidth Limit Exceeded',
 is $res->code(510)->default_message, 'Not Extended', 'right message';
 is $res->code(511)->default_message, 'Network Authentication Required',
   'right message';
+is $res->default_message(100), 'Continue', 'right message';
 
 # Status code ranges
 ok $res->code(200)->is_status_class(200), 'is in range';