t/unit_response.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 4;
   4
   5 use_ok('Catalyst::Response');
   6
   7 my $res = Catalyst::Response->new;
   8
   9 # test aliasing of res->code for res->status
  10 $res->code(500);
  11 is($res->code, 500, 'code sets itself');
  12 is($res->status, 500, 'code sets status');
  13 $res->status(501);
  14 is($res->code, 501, 'status sets code');