#!/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"); TODO: { local $TODO = 'First request without prev. get_logger 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');