1###########################################
2# Test Suite for Log::Log4perl::Config
3# Mike Schilli, 2002 (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# change 'tests => 1' to 'tests => last_test_to_print';
15#########################
16use Test::More;
17BEGIN { plan tests => 3 };
18
19use Log::Log4perl;
20use Log::Log4perl::Appender::TestBuffer;
21use File::Spec;
22
23my $EG_DIR = "eg";
24$EG_DIR = "../eg" unless -d $EG_DIR;
25
26ok(1); # If we made it this far, we're ok.
27
28my $LOGFILE = "example.log";
29unlink $LOGFILE;
30
31Log::Log4perl->init(File::Spec->catfile($EG_DIR, 'log4j-file-append-perl.conf'));
32
33my $logger = Log::Log4perl->get_logger("");
34my $line = __LINE__ + 1;
35$logger->debug("Gurgel");
36
37open LOG, "<$LOGFILE" or die "Cannot open $LOGFILE";
38my $data = <LOG>;
39
40END { close LOG; unlink $LOGFILE; }
41
42is($data, "005Config-Perl.t $line DEBUG N/A  - Gurgel\n");
43
44###############################################
45# Check reading a config file via a file handle
46###############################################
47Log::Log4perl->reset();
48open FILE, File::Spec->catfile($EG_DIR, 'log4j-file-append-perl.conf') or
49    die "cannot open log4j-file-append-perl.conf";
50Log::Log4perl->init(\*FILE);
51
52$logger = Log::Log4perl->get_logger("");
53$line = __LINE__ + 1;
54$logger->debug("Gurgel");
55
56$data = <LOG>;
57
58is($data, "005Config-Perl.t $line DEBUG N/A  - Gurgel\n");
59