use lib "$Bin/lib";
use Test::More;
+use Test::Exception;
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] };
test_psgi $app, sub {
my $cb = shift;
- eval {
+ lives_ok {
my $TIMEOUT_IN_SECONDS = 5;
local $SIG{ALRM} = sub { die "alarm\n" };
alarm($TIMEOUT_IN_SECONDS);
alarm(0);
1
- } || fail "$@ problem";
+ } q{app didn't die or timeout};
};
done_testing;