X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_recursion.t;h=6e558774246c7f2adc745ffd586ce4f56b2c92ad;hb=141459fa3fc9852fd6f05138caddb410bbe2949c;hp=2c766fd2355e52fd906bd8cc179563760bd12263;hpb=d5aec790b3edcf888daf4599ff3ceef73fe002bc;p=catagits%2FCatalyst-Runtime.git diff --git a/t/live_recursion.t b/t/live_recursion.t index 2c766fd..6e55877 100644 --- a/t/live_recursion.t +++ b/t/live_recursion.t @@ -11,6 +11,15 @@ use Catalyst::Test 'TestApp'; local $^W = 0; -ok( my $response = request('http://localhost/recursion_test'), 'Request' ); -ok( !$response->is_success, 'Response Not Successful' ); -is( $response->header('X-Catalyst-Error'), 'Deep recursion detected calling "/recursion_test"', 'Deep Recursion Detected' ); +SKIP: +{ + # Net::HTTP::Methods crashes when talking to a remote server because this + # test causes a very long header line to be sent + if ( $ENV{CATALYST_SERVER} ) { + skip 'Using remote server', 3; + } + + ok( my $response = request('http://localhost/recursion_test'), 'Request' ); + ok( !$response->is_success, 'Response Not Successful' ); + is( $response->header('X-Catalyst-Error'), 'Deep recursion detected calling "/recursion_test"', 'Deep Recursion Detected' ); +}