1 files changed, 25 insertions, 0 deletions
diff --git a/t/067Exception.t b/t/067Exception.t
new file mode 100644
index 0000000..fba3235
--- /dev/null
+++ b/t/067Exception.t
@@ -0,0 +1,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();
+}