package main;
BEGIN {
# enable coloring by default
$ENV{LM_COLOR} = 1;
}
use Test::More;
use Log::Minimal;
subtest 'coloring by default' => sub {
local $Log::Minimal::PRINT = sub { join(" ", @_) };
like( warnf("foo"), qr/\e\[/);
eval {
croakf "foo";
};
like $@, qr/\e\[/;
{
local $Log::Minimal::PRINT = sub { $_[4] };
unlike( warnf("foo"), qr/\e\[/);
}
};
subtest 'suppress coloring by local variable' => sub {
local $Log::Minimal::PRINT = sub { join(" ", @_) };
local $Log::Minimal::COLOR = 0;
unlike( warnf("foo"), qr/\e\[/);
eval {
croakf "foo";
};
unlike $@, qr/\e\[/;
{
local $Log::Minimal::PRINT = sub { $_[4] };
unlike( warnf("foo"), qr/\e\[/);
}
};
done_testing;