use strict;
use warnings;
use Test::More tests => 1;
use Log::Handler;
my $ALIAS_CHECK = 0;
sub alias_check {
if ($_[0] =~ /foo/) {
$ALIAS_CHECK++
}
}
my $log = Log::Handler->new();
$log->add(
forward => {
forward_to => \&alias_check,
alias => 'test',
}
);
$log->output('test')->log('foo');
ok($ALIAS_CHECK, "checking alias");