i want some kick ass tests for this :)
[catagits/Catalyst-Runtime.git] / t / 08headers.t
index 70288f9..8063060 100644 (file)
@@ -2,12 +2,12 @@ package TestApp;
 
 use Catalyst qw[-Engine=Test];
 
-__PACKAGE__->action(
-    foo => sub {
-        my ( $self, $c ) = @_;
-        $c->res->headers->header( 'X-Foo' => 'Bar' );
-    }
-);
+sub foo : Global {
+  my ( $self, $c ) = @_;
+  $c->res->headers->header( 'X-Foo' => 'Bar' );
+}
+
+__PACKAGE__->setup;
 
 package main;