"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/1163_save_multipage_pdf_as_ps.t" between
gscan2pdf-2.13.1.tar.xz and gscan2pdf-2.13.2.tar.xz

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

1163_save_multipage_pdf_as_ps.t  (gscan2pdf-2.13.1.tar.xz)	:	1163_save_multipage_pdf_as_ps.t  (gscan2pdf-2.13.2.tar.xz)
use warnings;		use warnings;
use strict;		use strict;
use IPC::Cmd qw(can_run);		use IPC::Cmd qw(can_run);
use IPC::System::Simple qw(system);		use IPC::System::Simple qw(system);
use Test::More tests => 2;		use Test::More tests => 2;
BEGIN {		BEGIN {
use Gscan2pdf::Document;		use Gscan2pdf::Document;
use Gtk3 -init; # Could just call init separately		use Gtk3 -init; # Could just call init separately
}		}
#########################		#########################
skipping to change at line 35		skipping to change at line 35
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->import_files(		$slist->import_files(
paths => [ 'test.pnm', 'test.pnm' ],		paths => [ 'test.pnm', 'test.pnm' ],
finished_callback => sub {		finished_callback => sub {
$slist->save_pdf(		$slist->save_pdf(
path => 'test.pdf',		path => 'test.pdf',
list_of_pages =>		list_of_pages =>
[ $slist->{data}[0][2]{uuid}, $slist->{data}[1][2]{uuid} ],		[ $slist->{data}[0][2]{uuid}, $slist->{data}[1][2]{uuid} ],
# metadata and timestamp should be ignored: debian #962151		# metadata and timestamp should be ignored: debian #962151
metadata => {},		metadata => {},
options => {		options => {
ps => 'te st.ps',		ps => 'te st.ps',
pstool => 'pdf2ps',		pstool => 'pdf2ps',
post_save_hook => 'cp %i test2.ps',		post_save_hook => 'cp %i test2.ps',
post_save_hook_options => 'fg',		post_save_hook_options => 'fg',
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---