BEGIN { if($ENV{INTERNAL_DEBUG}) { require Log::Log4perl::InternalDebug; Log::Log4perl::InternalDebug->enable(); } } use warnings; use strict; use Test::More tests => 3; use Log::Log4perl; use Log::Log4perl::Appender::TestBuffer; eval { Log::Log4perl->init('nonexistant_file'); }; ok((not Log::Log4perl->initialized()), 'Failed init doesn\'t flag initialized'); Log::Log4perl->reset(); eval { Log::Log4perl->init_once('nonexistant_file'); }; ok((not Log::Log4perl->initialized()), 'Failed init_once doesn\'t flag ' .'initialized'); Log::Log4perl->reset(); eval { Log::Log4perl->init(\ <initialized(), 'init flags initialized'); 1; # End of 060Initialized.t