t/15-rtf-unrtf.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!perl

use Test::More tests => 2;

use HTML::AutoConvert;

my $c = new HTML::AutoConvert;

my $force = 'unrtf';
#$c->{'handlers'}{'doc'}{$force}{'weight'} = -1;
my @del = grep { $_ ne $force } keys %{ $c->{'handlers'}{'rtf'} };
delete($c->{'handlers'}{'rtf'}{$_}) foreach @del;

my $html = $c->html_convert('t/VEGAN_RECIPES.rtf');

#match $html against something;
like( $html, qr/Gumbo/, 'text has Gumbo' );
like( $html, qr/Cheesecake/, 'text has Cheesecake' );