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