diff options
| author | Robert Spier <rspier@pobox.com> | 2001-06-20 20:54:32 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 12:00:07 +0000 |
| commit | b8a35e92cdd8c3e28d74655a02307c4b94315f31 (patch) | |
| tree | 206f0fe3858ef29dfacee0c5746c945b38f1601d /ext/Sys | |
| parent | 27c93d935afa469df9d5f684ca7568352ce9242b (diff) | |
| download | perl-b8a35e92cdd8c3e28d74655a02307c4b94315f31.tar.gz | |
make syslog test more verbose
Message-ID: <15153.32264.295807.333073@rls.cx>
p4raw-id: //depot/perl@10767
Diffstat (limited to 'ext/Sys')
| -rwxr-xr-x | ext/Sys/Syslog/syslog.t | 6 |
1 files 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 { |