use strict;
use warnings;
use Test::More tests => 15;
use File::Spec;
use Log::Handler;

my $rand_num = int(rand(999999));
my $logfile  = File::Spec->catfile('t', "Log-Handler-$rand_num.log");
my $log      = Log::Handler->new();

$log->add(file => {
    filename        => [ 't', "Log-Handler-$rand_num.log" ],
    fileopen        => 0,
    reopen          => 0,
    filelock        => 0,
    mode            => 'excl',
    autoflush       => 1,
    permissions     => '0664',
    timeformat      => '',
    message_layout  => 'prefix [%L] %m',
    maxlevel        => 'debug',
    minlevel        => 'emergency',
    die_on_errors   => 1,
    utf8            => 0,
    debug_trace     => 0,
    debug_mode      => 2,
    debug_skip      => 0,
});

ok(1, 'checking new');

ok(!-e $logfile,       'checking fileopen');
ok($log->is_debug,     'checking debug');
ok($log->is_info,      'checking info');
ok($log->is_notice,    'checking notice');
ok($log->is_warning,   'checking warning');
ok($log->is_warn,      'checking warn');
ok($log->is_error,     'checking error');
ok($log->is_err,       'checking err');
ok($log->is_critical,  'checking critical');
ok($log->is_crit,      'checking crit');
ok($log->is_alert,     'checking alert');
ok($log->is_emergency, 'checking emergency');
ok($log->is_emerg,     'checking emerg');
ok($log->is_fatal,     'checking fatal');

if (-e $logfile) {
    unlink($logfile) or die $!;
}