1use strict; 2use warnings; 3 4use Test::More tests => 59; 5 6BEGIN { use_ok('Log::Syslog::Constants', ':all') }; 7 8# priority constants 9is(LOG_EMERG, 0, 'LOG_EMERG'); 10is(LOG_ALERT, 1, 'LOG_ALERT'); 11is(LOG_CRIT, 2, 'LOG_CRIT'); 12is(LOG_ERR, 3, 'LOG_ERR'); 13is(LOG_WARNING, 4, 'LOG_WARNING'); 14is(LOG_NOTICE, 5, 'LOG_NOTICE'); 15is(LOG_INFO, 6, 'LOG_INFO'); 16is(LOG_DEBUG, 7, 'LOG_DEBUG'); 17 18is(LOG_KERN, 0, 'LOG_KERN'); 19is(LOG_USER, 1, 'LOG_USER'); 20is(LOG_MAIL, 2, 'LOG_MAIL'); 21is(LOG_DAEMON, 3, 'LOG_DAEMON'); 22is(LOG_AUTH, 4, 'LOG_AUTH'); 23is(LOG_SYSLOG, 5, 'LOG_SYSLOG'); 24is(LOG_LPR, 6, 'LOG_LPR'); 25is(LOG_NEWS, 7, 'LOG_NEWS'); 26is(LOG_UUCP, 8, 'LOG_UUCP'); 27is(LOG_CRON, 9, 'LOG_CRON'); 28is(LOG_AUTHPRIV, 10, 'LOG_AUTHPRIV'); 29is(LOG_FTP, 11, 'LOG_FTP'); 30is(LOG_LOCAL0, 16, 'LOG_LOCAL0'); 31is(LOG_LOCAL1, 17, 'LOG_LOCAL1'); 32is(LOG_LOCAL2, 18, 'LOG_LOCAL2'); 33is(LOG_LOCAL3, 19, 'LOG_LOCAL3'); 34is(LOG_LOCAL4, 20, 'LOG_LOCAL4'); 35is(LOG_LOCAL5, 21, 'LOG_LOCAL5'); 36is(LOG_LOCAL6, 22, 'LOG_LOCAL6'); 37is(LOG_LOCAL7, 23, 'LOG_LOCAL7'); 38 39# priority constants by name 40is(get_severity('emerg'), LOG_EMERG, 'named LOG_EMERG'); 41is(get_severity('alert'), LOG_ALERT, 'named LOG_ALERT'); 42is(get_severity('crit'), LOG_CRIT, 'named LOG_CRIT'); 43is(get_severity('err'), LOG_ERR, 'named LOG_ERR'); 44is(get_severity('warning'), LOG_WARNING, 'named LOG_WARNING'); 45is(get_severity('notice'), LOG_NOTICE, 'named LOG_NOTICE'); 46is(get_severity('info'), LOG_INFO, 'named LOG_INFO'); 47is(get_severity('debug'), LOG_DEBUG, 'named LOG_DEBUG'); 48 49is(get_facility('kern'), LOG_KERN, 'named LOG_KERN'); 50is(get_facility('user'), LOG_USER, 'named LOG_USER'); 51is(get_facility('mail'), LOG_MAIL, 'named LOG_MAIL'); 52is(get_facility('daemon'), LOG_DAEMON, 'named LOG_DAEMON'); 53is(get_facility('auth'), LOG_AUTH, 'named LOG_AUTH'); 54is(get_facility('syslog'), LOG_SYSLOG, 'named LOG_SYSLOG'); 55is(get_facility('lpr'), LOG_LPR, 'named LOG_LPR'); 56is(get_facility('news'), LOG_NEWS, 'named LOG_NEWS'); 57is(get_facility('uucp'), LOG_UUCP, 'named LOG_UUCP'); 58is(get_facility('cron'), LOG_CRON, 'named LOG_CRON'); 59is(get_facility('authpriv'), LOG_AUTHPRIV, 'named LOG_AUTHPRIV'); 60is(get_facility('ftp'), LOG_FTP, 'named LOG_FTP'); 61is(get_facility('local0'), LOG_LOCAL0, 'named LOG_LOCAL0'); 62is(get_facility('local1'), LOG_LOCAL1, 'named LOG_LOCAL1'); 63is(get_facility('local2'), LOG_LOCAL2, 'named LOG_LOCAL2'); 64is(get_facility('local3'), LOG_LOCAL3, 'named LOG_LOCAL3'); 65is(get_facility('local4'), LOG_LOCAL4, 'named LOG_LOCAL4'); 66is(get_facility('local5'), LOG_LOCAL5, 'named LOG_LOCAL5'); 67is(get_facility('local6'), LOG_LOCAL6, 'named LOG_LOCAL6'); 68is(get_facility('local7'), LOG_LOCAL7, 'named LOG_LOCAL7'); 69 70is(get_severity('WARNING'), LOG_WARNING, 'get_severity is case insensitive'); 71is(get_facility('SYSLOG'), LOG_SYSLOG, 'get_facility is case insensitive'); 72