t/46-pdf_images-poppler.t

   1 #!perl
   2
   3 use Test::More tests => 9;
   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, @images ) = $c->html_convert('t/attitude.pdf');
  15
  16 ok( scalar(@images) == 21, 'got 21 images' );
  17
  18 #save em off
  19 #foreach my $image (@images) {
  20 #  my( $file, $data) = @$image;
  21 #  open(FILE, ">t/$file") or die $!;
  22 #  print FILE $data;
  23 #  close FILE or die $!;
  24 #}
  25
  26 #check the names & lengths at least
  27 is( $images[0]->[0], '000.ppm', '1st image name');
  28 ok( length($images[0]->[1]) == 25949, '1st image size');
  29
  30 is( $images[1]->[0], '001.ppm', '2nd image name');
  31 ok( length($images[1]->[1]) == 43664, '1st image size');
  32
  33 is( $images[2]->[0], '002.ppm', '3rd image name');
  34 ok( length($images[2]->[1]) == 46833, '1st image size');
  35
  36 is( $images[9]->[0], '009.ppm', '10th image name');
  37 ok( length($images[9]->[1]) == 46374, '10th image size');
  38