1 files changed, 59 insertions, 0 deletions
diff --git a/t/037JWin32Event.t b/t/037JWin32Event.t
new file mode 100644
index 0000000..a7f2460
--- /dev/null
+++ b/t/037JWin32Event.t
@@ -0,0 +1,59 @@
+BEGIN { 
+    if($ENV{INTERNAL_DEBUG}) {
+        require Log::Log4perl::InternalDebug;
+        Log::Log4perl::InternalDebug->enable();
+    }
+}
+
+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);