#!/usr/bin/perl -w
use strict;
use Test::More tests => 2;
use ok 'HTML::FromANSI', show_cursor => 1;
$HTML::FromANSI::Options{cols} = 1; # minimum width
my $text = ansi2html("\x1b[1;34m", "This text is bold blue.");
is($text, join('', split("\n", << '.')), 'basic conversion');
<tt><font
face='fixedsys, lucida console, terminal, vga, monospace'
style='line-height: 1; letter-spacing: 0; font-size: 12pt'
><span style='color: blue; background: black; '>
This text is bold blue.</span>
<span style='color: black; background: black; '><br></span>
</font></tt>
.