use warnings;
use strict;
use Test::More;
use Business::CPI::Util::EmptyLogger;
ok(my $log = Business::CPI::Util::EmptyLogger->new(), 'the empty logger builds');
isa_ok($log, 'Business::CPI::Util::EmptyLogger', '$log');
map {
is($log->$_, undef, "$_ doesn't do anything")
} qw/debug info warn error fatal/;
map {
ok(!$log->$_, "$_ returns false")
} qw/is_debug is_info is_warn is_error is_fatal/;
done_testing;