view release on metacpan or  search on metacpan

t/logger.t  view on Meta::CPAN

use strict;
use Test::More;
use Plack::Test;
use Plack::Builder;
use HTTP::Request::Common;

my $app = sub {
    my $env = shift;
    use Log::Contextual qw(:log);

    if ($env->{PATH_INFO} eq '/streaming') {
        return sub {
            my $r = shift;
            log_fatal { "Streaming foo" };
            $r->([ 200, [ 'Content-Type', 'text/plain' ], [ "Hello" ]  ]);
        };
    }

    log_fatal { "Foo" };
    log_debug { "debugging" };

t/logger.t  view on Meta::CPAN

test_psgi $standalone, sub {
    my $cb = shift;
    my $res = $cb->(GET "/");
    is $res->code, 200;

    is @logs, 1;
    is $logs[0], "[fatal] Foo\n";

    @logs = ();
    $res = $cb->(GET "/streaming");
    is $res->code, 200;
    is $res->content, "Hello";

    is @logs, 1;
    is $logs[0], "[fatal] Streaming foo\n";
};

# PSGI logger
@logs = ();
my $psgi = builder {