use strict;
use warnings;
use Test::More 0.96;
use Test::Differences;
my $mod = 'HTML::FromANSI::Tiny';
eval "require $mod" or die $@;
my $text = "foo\e[31m&\033[1;32mb<a>r";
my $h = new_ok($mod);
eq_or_diff
scalar $h->html($text),
'<span class="">foo</span><span class="red">&</span><span class="bold green">b<a>r</span>',
'default class_prefix';
$h = new_ok($mod, [tag => 'rum', class_prefix => '']);
eq_or_diff
scalar $h->html($text),
'<rum class="">foo</rum><rum class="red">&</rum><rum class="bold green">b<a>r</rum>',
'blank class_prefix';
$h = new_ok($mod, [class_prefix => 'term-']);
eq_or_diff
scalar $h->html($text),
'<span class="">foo</span><span class="term-red">&</span><span class="term-bold term-green">b<a>r</span>',
'custom class_prefix';
$h = new_ok($mod, [class_prefix => 'ansi:']);
eq_or_diff
[$h->html($text)],
['<span class="">foo</span>', '<span class="ansi:red">&</span>', '<span class="ansi:bold ansi:green">b<a>r</span>'],
'custom class_prefix';
$h = new_ok($mod, [class_prefix => '0']);
eq_or_diff
[$h->html($text)],
['<span class="">foo</span>', '<span class="0red">&</span>', '<span class="0bold 0green">b<a>r</span>'],
'custom false class_prefix';
done_testing;