Simplify test

plack · Jun 12, 2013 · f19a6e7 · f19a6e7
1 parent 91329ee
commit f19a6e7
Showing 1 changed file with 3 additions and 15 deletions.
diff --git a/t/Plack-Response/to_app.t b/t/Plack-Response/to_app.t
@@ -5,22 +5,10 @@ use HTTP::Request::Common;
 use Plack::Test;
 use Plack::Response;
 
-sub res {
-    my $res = Plack::Response->new;
-    my %v = @_;
-    while (my($k, $v) = each %v) {
-        $res->$k($v);
-    }
-    $res;
-}
+my $res = Plack::Response->new(200);
+$res->body("hello");
 
-my $res = res(
-    status => 200,
-    body => 'hello',
-);
-
-
-test_psgi $res->to_app(), sub {
+test_psgi $res->to_app, sub {
     my $cb = shift;
 
     my $res = $cb->(GET "/");