blob: bf6c792fe12d6259bfd5d43185727eb1d65b9f9d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!perl
use strict;
use Test::More;
plan tests => 2;
# --------------------
# CPAN-RT #55151: Allow temporary facility in syslog() for native mechanism
#
use Sys::Syslog qw< :standard :macros >;
openlog("Sys::Syslog", "pid,ndelay", "user");
eval { syslog("local0|info", "Lorem ipsum dolor sit amet") };
is($@, "", "syslog('local0|info', ...)");
eval { syslog(LOG_LOCAL0|LOG_INFO, "Lorem ipsum dolor sit amet") };
is($@, "", "syslog(LOG_LOCAL0|LOG_INFO, ...)");
|
