t/aggregate/unit_response.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use_ok('Catalyst::Response');
   6 use_ok('Catalyst::Engine');
   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');
  16
  17 done_testing;