diff options
Diffstat (limited to 't/02-doc-antiword.t')
-rw-r--r-- | t/02-doc-antiword.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/02-doc-antiword.t b/t/02-doc-antiword.t new file mode 100644 index 0000000..d3ab6b7 --- /dev/null +++ b/t/02-doc-antiword.t @@ -0,0 +1,19 @@ +#!perl + +use Test::More tests => 2; + +use HTML::AutoConvert; + +my $c = new HTML::AutoConvert; + +my $force = 'antiword'; +#$c->{'handlers'}{'doc'}{$force}{'weight'} = -1; +my @del = grep { $_ ne $force } keys %{ $c->{'handlers'}{'doc'} }; +delete($c->{'handlers'}{'doc'}{$_}) foreach @del; + +my $html = $c->html_convert('t/DiaryofaKillerCat.doc'); + +#match $html against something; +like( $html, qr/Chunky/, 'text is Chunky' ); +like( $html, qr/Monkey/, 'text has Monkey' ); + |