new test suit

[catagits/Catalyst-Runtime.git] / t / 16post.t

diff --git a/t/16post.t b/t/16post.t
deleted file mode 100644 (file)
index 5ff4fa9..0000000
--- a/t/16post.t
+++ /dev/null
@@ -1,41 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-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;
-
-use Test::More tests => 5;
-use Catalyst::Test 'TestApp';
-use HTTP::Request::Common;
-
-my $request = POST(
-    'http://localhost/echo',
-    'X-Whats-Cool' => 'Catalyst',
-    'Content-Type' => 'form-data',
-    'Content'      => [
-        catalyst => 'Rocks!',
-        file     => [$0],
-    ]
-);
-
-ok( my $response = request($request) );
-ok( $response->content_type eq 'text/plain' );
-ok( $response->headers->header('X-Content-Type') =~ /^multipart\/form-data/ );
-ok( $response->headers->header('X-Content-Length') ==
-      $request->content_length );
-ok( $response->headers->header('X-Whats-Cool') eq 'Catalyst' );