# vim: filetype=perl :
use strict;
use warnings;

use Test::More tests => 6;    # last test to print
use Log::Log4perl::Tiny qw( :levels );

my $logger = Log::Log4perl::Tiny::get_logger();
ok($logger, 'got a logger instance');
is($logger->level(), $INFO, 'logger level set to INFO as default');

$logger->level($WARN);
is($logger->level(), $WARN, 'logger level set to WARN as modified');

use_ok 'Log::Log4perl::Tiny';
is($logger->level(), $WARN, 'logger level still set to WARN after new "use"');

my $new_logger = Log::Log4perl::Tiny->new();
is($new_logger->level(), $INFO, 'new logger level set to INFO as default');