"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/356_unpaper_corrupt_image.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).

356_unpaper_corrupt_image.t  (gscan2pdf-2.11.1.tar.xz):356_unpaper_corrupt_image.t  (gscan2pdf-2.11.2.tar.xz)
skipping to change at line 55 skipping to change at line 55
my $slist = Gscan2pdf::Document->new; my $slist = Gscan2pdf::Document->new;
# dir for temporary files # dir for temporary files
my $dir = File::Temp->newdir; my $dir = File::Temp->newdir;
$slist->set_dir($dir); $slist->set_dir($dir);
$slist->set_paper_sizes( \%paper_sizes ); $slist->set_paper_sizes( \%paper_sizes );
# Create test image # Create test image
system( system(
qw(convert -size 2100x2970 +matte -depth 1 -border 2x2 -bordercolor blac k -pointsize 12 -density 300), qw(convert -size 2100x2970 +matte -depth 1 -border 2x2 -bordercolor blac k), '-family', 'DejaVu Sans', qw(-pointsize 12 -density 300),
'label:The quick brown fox', 'label:The quick brown fox',
'test.pnm' 'test.pnm'
); );
$slist->import_files( $slist->import_files(
paths => ['test.pnm'], paths => ['test.pnm'],
finished_callback => sub { finished_callback => sub {
# Now we've imported it, # Now we've imported it,
# remove the data to give a corrupt image # remove the data to give a corrupt image
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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