[catagits/Catalyst-Runtime.git] / t / live_show_internal_actions_warnings.t

use strict;
use warnings;
use FindBin '$Bin';
use lib "$Bin/lib";
use Test::More;
use File::Spec;
BEGIN { # Shut up debug output, app needs debug on for the issue to
        # appear, but we don't want the spraff to the screen

    my $devnull = File::Spec->devnull;
    open my $fh, '>', $devnull or die "Cannot write to $devnull: $!";

    *STDERR = $fh;
}

use Catalyst::Test 'TestAppShowInternalActions';

my $last_warning;
{
    local $SIG{__WARN__} = sub { $last_warning = shift };
    my $res = get('/');
}
is( $last_warning, undef, 'there should be no warnings about uninitialized value' );

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