Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

MARKOV / Log-Report-1.13 / t / 70dancer2.t 

            

              
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

              
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
BEGIN {
    eval "require Dancer2";
    plan skip_all => 'Dancer2 is not installed'
        if $@;
    plan tests => 5;
    eval "require Plack::Test";
    ok !$@, 'Unable to load Plack::Test for Dancer2 tests';
    eval "require HTTP::Cookies";
    ok !$@, 'Unable to load HTTP::Cookies for Dancer2 tests';
    eval "require HTTP::Request::Common";
    ok !$@, 'Unable to load HTTP::Request::Common for Dancer2 tests';
    HTTP::Request::Common->import;
}
{
    package TestApp;
    use Dancer2;
    use Log::Report ();
    use Dancer2::Plugin::LogReport;
    set session => 'Simple';
    set logger  => 'LogReport';
    dispatcher close => 'default';
    get '/write_message/:level/:text' => sub {
        my $level = param('level');
        my $text  = param('text');
        eval qq($level "$text");
    };
    get '/read_message' => sub {
        my $all = session 'messages';
        my $message = pop @$all
            or return '';
        "$message";
    };
    get '/process' => sub {
        process(sub { error "Fatal error text" });
    };
}
my $url = 'http://localhost';
my $jar  = HTTP::Cookies->new();
my $test = Plack::Test->create( TestApp->to_app );
# Basic tests to log messages and read from session
subtest 'Basic messages' => sub {
    # Log a notice message
    {
        my $req = GET "$url/write_message/notice/notice_text";
        $jar->add_cookie_header($req);
        my $res = $test->request( $req );
        ok $res->is_success, "get /write_message";
        $jar->extract_cookies($res);
        # Get the message
        $req = GET "$url/read_message";
        $jar->add_cookie_header($req);
        $res = $test->request( $req );
        is ($res->content, 'notice_text');
    }
    # Log a trace message
    {
        my $req = GET "$url/write_message/trace/trace_text";
        $jar->add_cookie_header($req);
        my $res = $test->request( $req );
        ok $res->is_success, "get /write_message";
        $jar->extract_cookies($res);
        # This time it shouldn't make it to the messages session
        $req = GET "$url/read_message";
        $jar->add_cookie_header($req);
        $res = $test->request( $req );
        is ($res->content, '');
    }
};
# Tests to check fatal errors, and catching with process()
subtest 'Throw error' => sub {
    # Throw an uncaught error. Should redirect.
    {
        my $req = GET "$url/write_message/error/error_text";
        my $res = $test->request( $req );
        ok $res->is_redirect, "get /write_message";
    }
    # The same, this time caught and displayed
    {
        my $req = GET "$url/process";
        $jar->add_cookie_header($req);
        my $res = $test->request( $req );
        ok $res->is_success, "get /write_message";
        is ($res->content, '0');
        # Check caught message is in session
        $jar->extract_cookies($res);
        $req = GET "$url/read_message";
        $jar->add_cookie_header($req);
        $res = $test->request( $req );
        is ($res->content, 'Fatal error text');
    }
};
done_testing;