use strict;
use warnings;
use Test::More tests => 4;
use Log::Handler;
local $SIG{__WARN__} = sub { die @_ };
sub forward { length($_[0]->{message}) }
my $log = Log::Handler->new();
ok(1, 'new');
$log->add(forward => { forward_to => \&forward });
ok(1, 'add');
ok($log->error('foo', undef, 'bar'), 'checking undef 1');
ok($log->error(undef), 'checking undef 2');