1 files changed, 29 insertions, 0 deletions
diff --git a/t/054Subclass.t b/t/054Subclass.t
new file mode 100644
index 0000000..0772d99
--- /dev/null
+++ b/t/054Subclass.t
@@ -0,0 +1,29 @@
+###########################################
+# Test Suite for Log::Log4perl::Level
+# Mike Schilli, 2008 (m@perlmeister.com)
+###########################################
+
+BEGIN { 
+    if($ENV{INTERNAL_DEBUG}) {
+        require Log::Log4perl::InternalDebug;
+        Log::Log4perl::InternalDebug->enable();
+    }
+}
+
+###########################################
+  # Subclass L4p
+package Mylogger;
+use strict;
+use Log::Log4perl;
+our @ISA = qw(Log::Log4perl);
+
+###########################################
+package main;
+use strict;
+
+use Test::More;
+
+plan tests => 1;
+
+my $logger = Mylogger->get_logger("Waah");
+is($logger->{category}, "Waah", "subclass category rt #32942");