blob: 489bff77d29ac7637dadd0c8336a6c7ae044e680 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!perl
BEGIN { chomp($pwd=`pwd`); $ENV{PATH} .= ":$pwd/bin"; };
use Test::More tests => 2;
use HTML::AutoConvert;
my $c = new HTML::AutoConvert;
my $force = 'OpenOffice';
#$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' );
|
