view release on metacpan or  search on metacpan

t/documents.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use Test::More;
use Test::Exception;

use Text::CaffeinatedMarkup::HTMLFormatter;

my $data = "Yup, we're here! Caffeinated Panda Creations has launched the first phase of our new website.\n\nRight now as you can see the blog is up and running and we'll be using it to keep you up to date with projects, events we're involved with, a...

my $formatter = Text::CaffeinatedMarkup::HTMLFormatter->new;
lives_ok{$formatter->format($data)} "Document #1 parse ok";

done_testing();