use lib "$Bin/lib";
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Plack::Test;
use TestApp;
use HTTP::Request::Common;
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);
alarm(0);
1
- } q{app didn't die or timeout};
+ }, undef, q{app didn't die or timeout};
};
done_testing;