X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpsgi_file_testapp_engine_psgi_compat.t;h=72eec237887fd8a5b348d6761fc7048bc86ca1ab;hb=1a3dd976ad46b71f2eabd3230a393c7a1aa84b6e;hp=af16bc4e2a249158f660539eb1cd1081959de99a;hpb=862d6713da1c7d001a4637cc0967d78b3bedfd7d;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/psgi_file_testapp_engine_psgi_compat.t b/t/psgi_file_testapp_engine_psgi_compat.t
index af16bc4..72eec23 100644
--- a/t/psgi_file_testapp_engine_psgi_compat.t
+++ b/t/psgi_file_testapp_engine_psgi_compat.t
@@ -27,8 +27,14 @@ BEGIN {
 }
 use Catalyst::Test qw/ TestApp /;
 
-ok $main::have_loaded_psgi;
-ok request('/');
+ok !$main::have_loaded_psgi, 'legacy psgi file got ignored';
+
+like do {
+    my $warning;
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+    ok request('/');
+    $warning;
+}, qr/ignored/, 'legacy psgi files raise a warning';
 
 done_testing;