view release on metacpan or  search on metacpan

t/02ignore.t  view on Meta::CPAN

$logger->debug("ignore me");
$logger->trace("ignore ignore ignore");
$logger->info("ignore me too");
$logger->warn("ignore me as well");
$logger->error("ignore with pleasure");
$logger->fatal("ignore this finally");

Test::Log::Log4perl->end();

# and we can ignore nothing

Test::Log::Log4perl->start();
Test::Log::Log4perl->ignore_priority("nothing");

test_out("ok 7 - Log4perl test");

$tlogger->debug("don't ignore me");
$tlogger->trace("no ignore no ignore no ignore");
$tlogger->info("don't ignore me too");
$tlogger->warn("don't ignore me as well");
$tlogger->error("don't ignore with pleasure");
$tlogger->fatal("don't ignore this finally");
$logger->debug("don't ignore me");
$logger->trace("no ignore no ignore no ignore");
$logger->info("don't ignore me too");
$logger->warn("don't ignore me as well");
$logger->error("don't ignore with pleasure");
$logger->fatal("don't ignore this finally");

Test::Log::Log4perl->end();

# and that remains set too

Test::Log::Log4perl->start();

test_out("ok 8 - Log4perl test");

$tlogger->debug("don't ignore me");
$tlogger->trace("no ignore no ignore no ignore");
$tlogger->info("don't ignore me too");
$tlogger->warn("don't ignore me as well");
$tlogger->error("don't ignore with pleasure");
$tlogger->fatal("don't ignore this finally");
$logger->debug("don't ignore me");
$logger->trace("no ignore no ignore no ignore");
$logger->info("don't ignore me too");
$logger->warn("don't ignore me as well");
$logger->error("don't ignore with pleasure");
$logger->fatal("don't ignore this finally");

Test::Log::Log4perl->end();

test_test("ignoring priority forever");

##################################
##################################

sub filename
{
  return (caller)[1];
}