1use strict; 2use warnings; 3use FindBin '$Bin'; 4use lib "$Bin/lib"; 5use Test::More; 6use File::Spec; 7BEGIN { # Shut up debug output, app needs debug on for the issue to 8 # appear, but we don't want the spraff to the screen 9 10 my $devnull = File::Spec->devnull; 11 open my $fh, '>', $devnull or die "Cannot write to $devnull: $!"; 12 13 *STDERR = $fh; 14} 15 16use Catalyst::Test 'TestAppShowInternalActions'; 17 18my $last_warning; 19{ 20 local $SIG{__WARN__} = sub { $last_warning = shift }; 21 my $res = get('/'); 22} 23is( $last_warning, undef, 'there should be no warnings about uninitialized value' ); 24 25done_testing; 26