use Log::Log4perl; use Test::More; #skipping on non-win32 systems BEGIN { eval { require Log::Dispatch::Win32EventLog; }; if ($@){ plan skip_all => "only with Log::Dispatch::Win32EventLog"; } }; print <<EOL; Since EventLog doesn't return any value that indicates sucess or failure, I'm just going to send messages to the EventLog. You can see these messages using the event viewer: INFO - info message 1 WARN - warning message 1 (Probably prefaced with something like "The description for Event ID ( 0 ) in Source ( t/037JWinEvent.t ) cannot be found... ") EOL my $conf = <<CONF; log4j.category.cat1 = INFO, myAppender log4j.appender.myAppender=org.apache.log4j.NTEventLogAppender log4j.appender.myAppender.source=$0 log4j.appender.myAppender.layout=org.apache.log4j.SimpleLayout CONF Log::Log4perl->init(\$conf); my $logger = Log::Log4perl->get_logger('cat1'); $logger->debug("debugging message 1 "); $logger->info("info message 1 "); $logger->warn("warning message 1 "); BEGIN {plan tests => 1} #if we didn't die, we got here ok(1);