Test::log4perl can be used to test that you're logging the right thing with log::log4perl. it checks that you get exactly what you expect logged by your code.