Package: libpdf-api2-perl
Version: 0.73-1
Severity: normal
Attached are two test scripts, one using a core font one using TTF.
The core example runs without errors and the text in the resulting PDF can be
extracted by pdftotext.
The TTF example produces multiple errors on running and evince prints errors on
opening the PDF, although it displays the text. pdftotext fails to extract the
text.
-- System Information:
Debian Release: squeeze/sid
APT prefers lucid-updates
APT policy: (500, 'lucid-updates'), (500, 'lucid-security'), (500,
'lucid-backports'), (500, 'lucid')
Architecture: i386 (i686)
Kernel: Linux 2.6.32-24-generic (SMP w/2 CPU cores)
Locale: LANG=en_GB.utf8, LC_CTYPE=en_GB.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages libpdf-api2-perl depends on:
ii perl [libcompress-zlib-perl] 5.10.1-13 Larry Wall's Practical Extraction
ii ttf-dejavu 2.30-2 Metapackage to pull in ttf-dejavu-
libpdf-api2-perl recommends no packages.
libpdf-api2-perl suggests no packages.
-- no debconf information
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 01core.t'
# make test TEST_VERBOSE=1 gives you more info
use Test::More tests => 2;
use strict;
BEGIN { use_ok('PDF::API2') };
my $pdf = PDF::API2-> new(-file => 'test.pdf');
my $page = $pdf->page;
my $font = $pdf->corefont('Times-Roman');
my $text = $page->text;
my $size = 12;
$text->font( $font, $size );
$text->translate( 100, 500 );
$text->text( "My text" );
$pdf->save;
$pdf->end;
my $output = `pdftotext test.pdf -`;
print "pdftotext output: \"$output\"";
ok($output =~ /My text/, 'text can be found by pdftotext');
1;# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 02ttf.t'
# make test TEST_VERBOSE=1 gives you more info
use Test::More tests => 2;
use strict;
BEGIN { use_ok('PDF::API2') };
my $pdf = PDF::API2-> new(-file => 'test.pdf');
my $page = $pdf->page;
my $font = $pdf->ttfont( 'DejaVuSans.ttf' );
my $text = $page->text;
my $size = 12;
$text->font( $font, $size );
$text->translate( 100, 500 );
$text->text( "My text" );
$pdf->save;
$pdf->end;
my $output = `pdftotext test.pdf -`;
print "pdftotext output: \"$output\"";
ok($output =~ /My text/, 'text can be found by pdftotext');
1;
