[catagits/Catalyst-Runtime.git] / t / unit_response.t

use strict;
use warnings;
use Test::More tests => 4;

use_ok('Catalyst::Response');

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