a few more response tests

mojolicious · Mar 14, 2013 · 7ed034e · 7ed034e
1 parent 5b1a2d8
commit 7ed034e
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/t/mojo/response.t b/t/mojo/response.t
@@ -82,6 +82,17 @@ is $res->code(510)->default_message, 'Not Extended', 'right message';
 is $res->code(511)->default_message, 'Network Authentication Required',
   'right message';
 
+# Status code ranges
+ok $res->code(200)->is_status_class(200), 'is in range';
+ok $res->code(201)->is_status_class(200), 'is in range';
+ok $res->code(299)->is_status_class(200), 'is in range';
+ok $res->code(302)->is_status_class(300), 'is in range';
+ok !$res->code(199)->is_status_class(200),   'not in range';
+ok !$res->code(300)->is_status_class(200),   'not in range';
+ok !$res->code(200)->is_status_class(100),   'not in range';
+ok !$res->code(200)->is_status_class(300),   'not in range';
+ok !$res->code(undef)->is_status_class(200), 'no range';
+
 # Status code and message
 $res = Mojo::Message::Response->new;
 is $res->code,            undef,       'no status';