3 use Catalyst qw[-Engine=Test];
8 for my $field ( $c->req->headers->header_field_names ) {
9 my $header = ( $field =~ /^X-/ ) ? $field : "X-$field";
10 $c->res->headers->header(
11 $header => $c->req->headers->header($field) );
14 $c->res->headers->content_type('text/plain');
15 $c->res->output('ok');
22 use Test::More tests => 5;
23 use Catalyst::Test 'TestApp';
24 use HTTP::Request::Common;
27 'http://localhost/echo',
28 'X-Whats-Cool' => 'Catalyst',
29 'Content-Type' => 'form-data',
36 ok( my $response = request($request) );
37 ok( $response->content_type eq 'text/plain' );
38 ok( $response->headers->header('X-Content-Type') =~ /^multipart\/form-data/ );
39 ok( $response->headers->header('X-Content-Length') ==
40 $request->content_length );
41 ok( $response->headers->header('X-Whats-Cool') eq 'Catalyst' );