15/16 OK
Marcus Ramberg [Wed, 30 Mar 2005 09:42:26 +0000 (09:42 +0000)]
t/15connection.t
t/16post.t

index c9a9ac9..a5117fd 100644 (file)
@@ -11,6 +11,8 @@ sub address : Global {
     $c->res->output( $c->req->address );
 }
 
+__PACKAGE__->setup;
+
 package main;
 
 use Test::More tests => 2;
index 45abbd3..5ff4fa9 100644 (file)
@@ -2,20 +2,20 @@ package TestApp;
 
 use Catalyst qw[-Engine=Test];
 
-__PACKAGE__->action(
-    echo => sub {
-        my ( $self, $c ) = @_;
-
-        for my $field ( $c->req->headers->header_field_names ) {
-            my $header = ( $field =~ /^X-/ ) ? $field : "X-$field";
-            $c->res->headers->header(
-                $header => $c->req->headers->header($field) );
-        }
-
-        $c->res->headers->content_type('text/plain');
-        $c->res->output('ok');
+sub echo : Global {
+    my ( $self, $c ) = @_;
+
+    for my $field ( $c->req->headers->header_field_names ) {
+        my $header = ( $field =~ /^X-/ ) ? $field : "X-$field";
+        $c->res->headers->header(
+            $header => $c->req->headers->header($field) );
     }
-);
+
+    $c->res->headers->content_type('text/plain');
+    $c->res->output('ok');
+}
+
+__PACKAGE__->setup;
 
 package main;