+++ /dev/null
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-__PACKAGE__->action(
- foo => sub {
- my ( $self, $c ) = @_;
- $c->res->headers->header( 'X-Foo' => 'Bar' );
- }
-);
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( request('/foo')->header('X-Foo') );