Commit | Line | Data |
1f94dc3a |
1 | use strict; |
2 | use warnings; |
3 | use FindBin '$Bin'; |
4 | use lib "$Bin/lib"; |
5 | use Test::More; |
6 | use File::Spec; |
7 | BEGIN { # 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 | |
16 | use Catalyst::Test 'TestAppShowInternalActions'; |
17 | |
18 | my $last_warning; |
19 | { |
20 | local $SIG{__WARN__} = sub { $last_warning = shift }; |
a1825b35 |
21 | my $res = get('/'); |
1f94dc3a |
22 | } |
1b5451ef |
23 | |
1f94dc3a |
24 | is( $last_warning, undef, 'there should be no warnings about uninitialized value' ); |
25 | |
26 | done_testing; |