10 use HTTP::Request::Common;
13 local $SIG{__WARN__} = sub { $warning = $_[0] };
15 TestApp->setup_engine('PSGI');
16 my $app = sub { TestApp->run(@_) };
18 like $warning, qr/You are running Catalyst\:\:Engine\:\:PSGI/,
19 'got deprecation alert warning';
24 my $TIMEOUT_IN_SECONDS = 5;
25 local $SIG{ALRM} = sub { die "alarm\n" };
26 alarm($TIMEOUT_IN_SECONDS);
28 my $res = $cb->(GET "/");
29 is $res->content, "root index", 'got expected content';
30 like $warning, qr/env as a writer/, 'got deprecation alert warning';
34 } q{app didn't die or timeout};