use strict;
use warnings;
-use Test::More tests => 6;
+use Test::More;
use_ok('Catalyst::Response');
+use_ok('Catalyst::Engine');
my $res = Catalyst::Response->new;
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");
+done_testing;