updated Changes

mojolicious · Dec 16, 2011 · d392f4e · d392f4e
1 parent 852f081
commit d392f4e
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -1,12 +1,13 @@
 This file documents the revision history for Perl extension Mojolicious.
 
-2.38    2011-12-15 00:00:00
+2.38    2011-12-16 00:00:00
         - Improved documentation. (marcus, sri)
         - Improved tests.
         - Fixed memory leaks caused by named capture groups bug in Perl.
           (plu, sri)
         - Fixed small cleanup bug in Mojo::Asset::File.
         - Fixed small multipart bug in Mojo::Message. (augensalat)
+        - Fixed missing status method in Mojo::Headers. (crab)
 
 2.37    2011-12-10 00:00:00
         - Welcome to the Mojolicious core team Marcus Ramberg, Glen Hinkle

diff --git a/lib/Mojo/Headers.pm b/lib/Mojo/Headers.pm
@@ -13,9 +13,8 @@ my @HEADERS = (
   qw/Expires Host If-Modified-Since Last-Modified Location/,
   qw/Proxy-Authenticate Proxy-Authorization Range Sec-WebSocket-Accept/,
   qw/Sec-WebSocket-Key Sec-WebSocket-Origin Sec-WebSocket-Protocol/,
-  qw/Sec-WebSocket-Version Server Set-Cookie Set-Cookie2 Trailer/,
+  qw/Sec-WebSocket-Version Server Set-Cookie Set-Cookie2 Status Trailer/,
   qw/Transfer-Encoding Upgrade User-Agent WWW-Authenticate X-Forwarded-For/,
-  qw/Status/,
 );
 {
   no strict 'refs';

diff --git a/t/mojo/headers.t b/t/mojo/headers.t
@@ -1,7 +1,7 @@
 use Mojo::Base -strict;
 
 # "Remember, you can always find East by staring directly at the sun."
-use Test::More tests => 49;
+use Test::More tests => 51;
 
 # "So, have a merry Christmas, a happy Hanukkah, a kwaazy Kwanza,
 #  a tip-top Tet, and a solemn, dignified, Ramadan.
@@ -37,8 +37,10 @@ is $headers->expires, 'Thu, 01 Dec 1994 16:00:00 GMT', 'right value';
 is $headers->cache_control, 'public', 'right value';
 $headers->etag('abc321');
 is $headers->etag, 'abc321', 'right value';
-$headers->status('444');
-is $headers->status, 444, 'right status';
+is $headers->header('ETag'), $headers->etag, 'values are equal';
+$headers->status('200 OK');
+is $headers->status, '200 OK', 'right value';
+is $headers->header('Status'), $headers->status, 'values are equal';
 
 # Clone
 $headers = Mojo::Headers->new;