Commit | Line | Data |
---|---|---|
aa9e8261 | 1 | use strict; |
2 | use warnings; | |
99a543ee | 3 | use Test::More; |
aa9e8261 | 4 | |
5 | use_ok('Catalyst::Response'); | |
99a543ee | 6 | use_ok('Catalyst::Engine'); |
aa9e8261 | 7 | |
8 | my $res = Catalyst::Response->new; | |
9 | ||
10 | # test aliasing of res->code for res->status | |
11 | $res->code(500); | |
12 | is($res->code, 500, 'code sets itself'); | |
13 | is($res->status, 500, 'code sets status'); | |
14 | $res->status(501); | |
15 | is($res->code, 501, 'status sets code'); | |
6e444c5c | 16 | |
99a543ee | 17 | done_testing; |