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