t/26-pdf-poppler.t

   1 #!perl
   2
   3 use Test::More tests => 2;
   4
   5 use HTML::AutoConvert;
   6
   7 my $c = new HTML::AutoConvert;
   8
   9 my $force = 'poppler';
  10 #$c->{'handlers'}{'doc'}{$force}{'weight'} = -1;
  11 my @del = grep { $_ ne $force } keys %{ $c->{'handlers'}{'pdf'} };
  12 delete($c->{'handlers'}{'pdf'}{$_}) foreach @del;
  13
  14 my $html = $c->html_convert('t/attitude.pdf');
  15
  16 #match $html against something;
  17 like( $html, qr/sampling/, 'text has sampling' );
  18 like( $html, qr/respondents/, 'text has respondents' );
  19