use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 6;
use_ok('Catalyst::Response');
is($res->status, 500, 'code sets status');
$res->status(501);
is($res->code, 501, 'status sets code');
+is($res->body, '', "default response body ''");
+$res->body(undef);
+is($res->body, '', "response body '' after assigned undef");
+