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