X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=trunk%2Ft%2Faggregate%2Flive_engine_response_errors.t;fp=trunk%2Ft%2Faggregate%2Flive_engine_response_errors.t;h=0000000000000000000000000000000000000000;hb=2757db2c7c600c8a0b8e2b4366f38c97804c2844;hp=b99140216ebaf84f24965a43445e477c73001da8;hpb=ceae39c522c2145a453188867dd581062795ecee;p=catagits%2FCatalyst-Runtime.git

diff --git a/trunk/t/aggregate/live_engine_response_errors.t b/trunk/t/aggregate/live_engine_response_errors.t
deleted file mode 100644
index b991402..0000000
--- a/trunk/t/aggregate/live_engine_response_errors.t
+++ /dev/null
@@ -1,60 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/../lib";
-
-use Test::More tests => 18;
-use Catalyst::Test 'TestApp';
-
-close STDERR;    # i'm naughty :)
-
-{
-    ok( my $response = request('http://localhost/engine/response/errors/one'),
-        'Request' );
-    ok( $response->is_error, 'Response Server Error 5xx' );
-    is( $response->code,         500,         'Response Code' );
-    is( $response->content_type, 'text/html', 'Response Content-Type' );
-    is( $response->header('X-Catalyst-Action'),
-        'engine/response/errors/one', 'Test Action' );
-    like(
-        $response->header('X-Catalyst-Error'),
-        qr/^Caught exception/,
-        'Catalyst Error'
-    );
-}
-
-{
-    ok( my $response = request('http://localhost/engine/response/errors/two'),
-        'Request' );
-    ok( $response->is_error, 'Response Server Error 5xx' );
-    is( $response->code,         500,         'Response Code' );
-    is( $response->content_type, 'text/html', 'Response Content-Type' );
-    is( $response->header('X-Catalyst-Action'),
-        'engine/response/errors/two', 'Test Action' );
-    like(
-        $response->header('X-Catalyst-Error'),
-        qr/^Couldn't forward to/,
-        'Catalyst Error'
-    );
-}
-
-{
-    ok( my $response = request('http://localhost/engine/response/errors/three'),
-        'Request' );
-    ok( $response->is_error, 'Response Server Error 5xx' );
-    is( $response->code,         500,         'Response Code' );
-    is( $response->content_type, 'text/html', 'Response Content-Type' );
-    is(
-        $response->header('X-Catalyst-Action'),
-        'engine/response/errors/three',
-        'Test Action'
-    );
-    like(
-        $response->header('X-Catalyst-Error'),
-        qr/I'm going to die!/,
-        'Catalyst Error'
-    );
-}