t/067Exception.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

use strict;

use File::Temp qw( tempfile );
use Log::Log4perl qw( get_logger );
use Test::More;

plan tests => 1;

BEGIN { 
    if($ENV{INTERNAL_DEBUG}) {
        require Log::Log4perl::InternalDebug;
        Log::Log4perl::InternalDebug->enable();
    }
}

eval {
    foo();
};

like $@, qr/main::foo/, "stacktrace on internal error";

sub foo {
    Log::Log4perl::Logger->cleanup();
    my $logger = get_logger();
}