10 use HTTP::Request::Common;
12 plan skip_all => "Catalyst::Engine::PSGI required for this test"
13 unless eval { local $SIG{__WARN__} = sub{}; require Catalyst::Engine::PSGI; 1; };
16 local $SIG{__WARN__} = sub { $warning = $_[0] };
18 TestApp->setup_engine('PSGI');
19 my $app = sub { TestApp->run(@_) };
21 like $warning, qr/You are running Catalyst\:\:Engine\:\:PSGI/,
22 'got deprecation alert warning';
27 my $TIMEOUT_IN_SECONDS = 5;
28 local $SIG{ALRM} = sub { die "alarm\n" };
29 alarm($TIMEOUT_IN_SECONDS);
31 my $res = $cb->(GET "/");
32 is $res->content, "root index", 'got expected content';
33 like $warning, qr/env as a writer/, 'got deprecation alert warning';
37 } q{app didn't die or timeout};