Legacy .psgi files are never loaded
Florian Ragwitz [Sun, 27 Mar 2011 12:10:29 +0000 (13:10 +0100)]
t/psgi_file_testapp_engine_psgi_compat.t

index af16bc4..72eec23 100644 (file)
@@ -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;