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('

some text

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