t/live_show_internal_actions_warnings.t

   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 };
  21     my $res = get('/');
  22 }
  23 is( $last_warning, undef, 'there should be no warnings about uninitialized value' );
  24
  25 done_testing;