5 use lib "$FindBin::Bin/lib";
10 use File::Temp qw/ tempdir /;
16 use HTTP::Request::Common;
22 has 'log' => (is => 'ro', isa => 'ArrayRef', traits => ['Array'], default => sub { [] },
33 subtest "psgi.errors" => sub{
35 my $handle = MockHandle->new();
42 $env->{'psgi.errors'} = $handle;
43 my $res = $app->($env);
53 my $res = $cb->(GET "/log/debug");
54 my @logs = $handle->logs;
55 is(scalar(@logs), 1, "one event output");
56 like($logs[0], qr/debug$/, "event matches test data");
60 subtest "psgix.logger" => sub {
71 $env->{'psgix.logger'} = $logger;
80 my $res = $cb->(GET "/log/debug");
81 is(scalar(@logs), 1, "one event logged");
82 is_deeply($logs[0], { level => 'debug', message => "debug" }, "right stuff");