stop using Moo as a test package
[catagits/Catalyst-Runtime.git] / t / aggregate / unit_response.t
CommitLineData
aa9e8261 1use strict;
2use warnings;
99a543ee 3use Test::More;
aa9e8261 4
5use_ok('Catalyst::Response');
99a543ee 6use_ok('Catalyst::Engine');
aa9e8261 7
8my $res = Catalyst::Response->new;
9
10# test aliasing of res->code for res->status
11$res->code(500);
12is($res->code, 500, 'code sets itself');
13is($res->status, 500, 'code sets status');
14$res->status(501);
15is($res->code, 501, 'status sets code');
6e444c5c 16
99a543ee 17done_testing;