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