From: Robert Spier <rspier@pobox.com>
Date: Thu, 21 Jun 2001 00:54:32 +0000 (-0400)
Subject: make syslog test more verbose
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8a35e92cdd8c3e28d74655a02307c4b94315f31;p=p5sagit%2Fp5-mst-13.2.git

make syslog test more verbose
Message-ID: <15153.32264.295807.333073@rls.cx>

p4raw-id: //depot/perl@10767
---

diff --git a/ext/Sys/Syslog/syslog.t b/ext/Sys/Syslog/syslog.t
index 801e882..77aff13 100755
--- a/ext/Sys/Syslog/syslog.t
+++ b/ext/Sys/Syslog/syslog.t
@@ -37,13 +37,15 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 # Most don't (or at least shouldn't)
 my $Test_Syslog_INET = 0;
 
+my $test_string = "uid $< is testing perl $] syslog capabilities";
+
 print "1..6\n";
 
 if (Sys::Syslog::_PATH_LOG()) {
     if (-e Sys::Syslog::_PATH_LOG()) {
         print defined(eval { setlogsock('unix') }) ? "ok 1\n" : "not ok 1\n";
         print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 2\n" : "not ok 2\n";
-        print defined(eval { syslog('info', 'test') }) ? "ok 3\n" : "not ok 3\n";
+        print defined(eval { syslog('info', $test_string ) }) ? "ok 3\n" : "not ok 3\n";
     }
     else {
         for (1..3) {
@@ -63,7 +65,7 @@ if( $Test_Syslog_INET ) {
                                                : "not ok 4\n";
     print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 5\n" 
                                                                 : "not ok 5\n";
-    print defined(eval { syslog('info', 'test') }) ? "ok 6\n" 
+    print defined(eval { syslog('info', $test_string ) }) ? "ok 6\n" 
                                                    : "not ok 6\n";
 }
 else {