The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
STRUAN / HTML-FormatText-WithLinks-0.15 / t / treebuilder_problem.t 
use Test::More;

BEGIN {
    eval "use Test::MockObject";
    if ( $@ ) {
        plan skip_all => "Test::MockObject  required for testing TreeBuilder problems";
    } else {
        plan tests => 3;
    }

    my $m = Test::MockObject->new();
    $m->fake_new( 'HTML::TreeBuilder' );
    $m->mock( 'parse', sub { $! = 1122; return undef; } );
};

use HTML::FormatText::WithLinks;

my $f = HTML::FormatText::WithLinks->new( );

ok($f, 'object created');

my $text = $f->parse('<html><head></head><body><p>some text</p></body></html>');

is($text, undef, 'undef returned for broken HTML::TreeBuilder');
like($f->error, qr/^HTML::TreeBuilder problem: /,
                'correct error message for broken HTML::TreeBuilder');