"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/1621_import_pdf.t" between
gscan2pdf-2.11.1.tar.xz and gscan2pdf-2.11.2.tar.xz

About: gscan2pdf is a GUI to produce PDFs from scanned documents (using Perl).

1621_import_pdf.t  (gscan2pdf-2.11.1.tar.xz):1621_import_pdf.t  (gscan2pdf-2.11.2.tar.xz)
skipping to change at line 24 skipping to change at line 24
Gscan2pdf::Translation::set_domain('gscan2pdf'); Gscan2pdf::Translation::set_domain('gscan2pdf');
use Log::Log4perl qw(:easy); use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($WARN); Log::Log4perl->easy_init($WARN);
my $logger = Log::Log4perl::get_logger; my $logger = Log::Log4perl::get_logger;
my $tess_installed = Gscan2pdf::Tesseract->setup($logger); my $tess_installed = Gscan2pdf::Tesseract->setup($logger);
Gscan2pdf::Document->setup($logger); Gscan2pdf::Document->setup($logger);
# Create b&w test image # Create b&w test image
system( system(
qw(convert +matte -depth 1 -colorspace Gray -pointsize 12 -units PixelsPerIn ch -density 300), qw(convert +matte -depth 1 -colorspace Gray), '-family', 'DejaVu Sans', qw(- pointsize 12 -units PixelsPerInch -density 300),
'label:The quick brown fox', 'label:The quick brown fox',
'test.png' 'test.png'
); );
# Add text layer with tesseract # Add text layer with tesseract
if ($tess_installed) { if ($tess_installed) {
system(qw(tesseract -l eng test.png test pdf)); system(qw(tesseract -l eng test.png test pdf));
} }
else { else {
system( system(
qw(convert +matte -depth 1 -colorspace Gray -pointsize 12 -density 300), qw(convert +matte -depth 1 -colorspace Gray), '-family', 'DejaVu Sans', qw(-pointsize 12 -density 300),
'label:The quick brown fox', 'label:The quick brown fox',
'test.tif' 'test.tif'
); );
system(qw(tiff2pdf -o test.pdf test.tif)); system(qw(tiff2pdf -o test.pdf test.tif));
} }
my $old = capture( qw(identify -format), '%m %G %g %z-bit %r', 'test.png' ); my $old = capture( qw(identify -format), '%m %G %g %z-bit %r', 'test.png' );
my $slist = Gscan2pdf::Document->new; my $slist = Gscan2pdf::Document->new;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)