# $Id: 02_basic_parse.t 383 2004-01-12 17:09:27Z struan $ use Test::More tests => 5; use HTML::FormatText::WithLinks; my $html = new_html(); my $f = HTML::FormatText::WithLinks->new(); ok($f, 'object created'); my $text = $f->parse($html); ok($text, 'html formatted'); is($text, " This is a mail of some sort\n\n", 'html correctly formatted'); $f = HTML::FormatText::WithLinks->new( leftmargin => 0); $text = $f->parse($html); ok($text, 'html formatted'); is($text, "This is a mail of some sort\n\n", 'html correctly formatted with no left margin'); sub new_html { return <<'HTML';

This is a mail of some sort

HTML }