use strict;
use warnings;
use Test::More;
use_ok('Catalyst::Response');
use_ok('Catalyst::Engine');
my $res = Catalyst::Response->new;
# test aliasing of res->code for res->status
$res->code(500);
is($res->code, 500, 'code sets itself');
is($res->status, 500, 'code sets status');
$res->status(501);
is($res->code, 501, 'status sets code');
done_testing;