The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;

use FindBin;
use lib ( "$FindBin::Bin/lib", "$FindBin::Bin/../lib" );

use Catalyst::Test 'MockApp';
use Test::More;

BEGIN {
  eval "use Test::Log4perl;";
  if ($@) {
    plan skip_all => 'Test::Log4perl required for testing logging';
  } else {
    plan tests => 2;
  }
}

my $tlogger = Test::Log4perl->get_logger("MockApp.Controller.Root");
Log::Log4perl->get_logger("MockApp");

TODO: {
  local $TODO = 'First request with get_logger in root category fails';
  Test::Log4perl->start();
  $tlogger->warn ("root/foo");
  get('/foo');
  Test::Log4perl->end('Got all log messages');
}

Test::Log4perl->start();
$tlogger->warn ("root/foo");
get('/foo');
Test::Log4perl->end('The second request send all log messages');