X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fpsgi_file_testapp_engine_plackup_compat.t;h=4f5a2ead2069f539bcaf14b2e054b9cdd38b152c;hp=ccec7b11afeb7415947a6359c285e60a9e6e1e58;hb=35b3434762d426e0cd5e04eb735291f8ca7ea08e;hpb=57ecbde4875bd0a04549c999224be9e7c50957bc diff --git a/t/psgi_file_testapp_engine_plackup_compat.t b/t/psgi_file_testapp_engine_plackup_compat.t index ccec7b1..4f5a2ea 100644 --- a/t/psgi_file_testapp_engine_plackup_compat.t +++ b/t/psgi_file_testapp_engine_plackup_compat.t @@ -4,11 +4,14 @@ use FindBin qw/$Bin/; use lib "$Bin/lib"; use Test::More; -use Test::Exception; +use Test::Fatal; use Plack::Test; use TestApp; use HTTP::Request::Common; +plan skip_all => "Catalyst::Engine::PSGI required for this test" + unless eval { local $SIG{__WARN__} = sub{}; require Catalyst::Engine::PSGI; 1; }; + my $warning; local $SIG{__WARN__} = sub { $warning = $_[0] }; @@ -20,7 +23,7 @@ like $warning, qr/You are running Catalyst\:\:Engine\:\:PSGI/, test_psgi $app, sub { my $cb = shift; - lives_ok { + is exception { my $TIMEOUT_IN_SECONDS = 5; local $SIG{ALRM} = sub { die "alarm\n" }; alarm($TIMEOUT_IN_SECONDS); @@ -31,7 +34,7 @@ test_psgi $app, sub { alarm(0); 1 - } q{app didn't die or timeout}; + }, undef, q{app didn't die or timeout}; }; done_testing;