Searched refs:sent_facility (Results 1 - 1 of 1) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/cpan/Sys-Syslog/t/
H A Dfacilities-routing.t106 my ($sent_facility, $sent_level) = $message->{msg} =~ /<(\w+):(\w+)>/;
107 $received{"$sent_facility\:$sent_level"}++;
113 $sent_fac_num = eval { my $n = uc "LOG_$sent_facility"; &$n } >> 3;
126 "sent<facility=$sent_facility($sent_fac_num), level=$sent_level" .

Completed in 165 milliseconds