3 BEGIN { chomp($pwd=`pwd`); $ENV{PATH} .= ":$pwd/bin"; };
5 use Test::More tests => 2;
9 my $c = new HTML::AutoConvert;
11 my $force = 'OpenOffice';
12 #$c->{'handlers'}{'doc'}{$force}{'weight'} = -1;
13 my @del = grep { $_ ne $force } keys %{ $c->{'handlers'}{'rtf'} };
14 delete($c->{'handlers'}{'rtf'}{$_}) foreach @del;
16 my $html = $c->html_convert('t/VEGAN_RECIPES.rtf');
18 #match $html against something;
19 like( $html, qr/Gumbo/, 'text has Gumbo' );
20 like( $html, qr/Cheesecake/, 'text has Cheesecake' );