1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
use strict;
use warnings;
no warnings 'redefine';
use Test::More;
use Dancer::Test;
plan tests => 3;
use Sys::Syslog;
sub Sys::Syslog::openlog {
pass "log opened";
}
sub Sys::Syslog::syslog {
my( $level, $message ) = @_;
subtest syslog => sub {
plan tests => 2;
is $level => 'debug';
like $message => qr'!debug!';
}
}
{
package MyApp;
use Dancer;
use Dancer::Logger::Syslog;
set logger_format => '!%L!';
set logger => 'syslog';
get '/' => sub {
debug( "debugging message" );
'foo';
};
}
response_status_is '/' => 200;
|
