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