1###########################################
2# Test Suite for Log::Log4perl::Level
3# Mike Schilli, 2008 (m@perlmeister.com)
4###########################################
5
6BEGIN { 
7    if($ENV{INTERNAL_DEBUG}) {
8        require Log::Log4perl::InternalDebug;
9        Log::Log4perl::InternalDebug->enable();
10    }
11}
12
13###########################################
14  # Subclass L4p
15package Mylogger;
16use strict;
17use Log::Log4perl;
18our @ISA = qw(Log::Log4perl);
19
20###########################################
21package main;
22use strict;
23
24use Test::More;
25
26plan tests => 1;
27
28my $logger = Mylogger->get_logger("Waah");
29is($logger->{category}, "Waah", "subclass category rt #32942");
30