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");