3 use Test::More tests => 2;
7 my $c = new HTML::AutoConvert;
10 #$c->{'handlers'}{'doc'}{$force}{'weight'} = -1;
11 my @del = grep { $_ ne $force } keys %{ $c->{'handlers'}{'doc'} };
12 delete($c->{'handlers'}{'doc'}{$_}) foreach @del;
14 my $html = $c->html_convert('t/DiaryofaKillerCat.doc');
16 #match $html against something;
17 like( $html, qr/Chunky/, 'text is Chunky' );
18 like( $html, qr/Monkey/, 'text has Monkey' );