From b8a35e92cdd8c3e28d74655a02307c4b94315f31 Mon Sep 17 00:00:00 2001 From: Robert Spier Date: Wed, 20 Jun 2001 20:54:32 -0400 Subject: make syslog test more verbose Message-ID: <15153.32264.295807.333073@rls.cx> p4raw-id: //depot/perl@10767 --- ext/Sys/Syslog/syslog.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ext/Sys/Syslog/syslog.t b/ext/Sys/Syslog/syslog.t index 801e882508..77aff13bb5 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 { -- cgit v1.2.1