"Fossies" - the Fresh Open Source Software Archive  

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

134_save_tiff_alpha.t  (gscan2pdf-2.11.1.tar.xz):134_save_tiff_alpha.t  (gscan2pdf-2.11.2.tar.xz)
skipping to change at line 21 skipping to change at line 21
######################### #########################
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;
Gscan2pdf::Document->setup($logger); Gscan2pdf::Document->setup($logger);
# Create test image # Create test image
system( system(
qw(convert -fill lightblue -pointsize 12 -units PixelsPerInch -density 300), qw(convert -fill lightblue), '-family', 'DejaVu Sans', qw(-pointsize 12 -uni ts PixelsPerInch -density 300),
'label:The quick brown fox', 'label:The quick brown fox',
'test.png' 'test.png'
); );
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);
skipping to change at line 49 skipping to change at line 49
compression => 'lzw', compression => 'lzw',
}, },
finished_callback => sub { Gtk3->main_quit } finished_callback => sub { Gtk3->main_quit }
); );
} }
); );
Gtk3->main; Gtk3->main;
like( like(
capture(qw(identify test.tif)), capture(qw(identify test.tif)),
qr/test.tif TIFF 4\d\dx\d\d 4\d\dx\d\d\+0\+0 16-bit sRGB/, qr/test.tif TIFF \d\d\dx\d\d \d\d\dx\d\d\+0\+0 16-bit sRGB/,
'valid TIFF created' 'valid TIFF created'
); );
######################### #########################
unlink 'test.tif', 'test.png'; unlink 'test.tif', 'test.png';
Gscan2pdf::Document->quit(); Gscan2pdf::Document->quit();
 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)