"Fossies" - the Fresh Open Source Software Archive  

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

1628_import_pdf_metadata.t  (gscan2pdf-2.13.1.tar.xz)	:	1628_import_pdf_metadata.t  (gscan2pdf-2.13.2.tar.xz)
use warnings;		use warnings;
use strict;		use strict;
use Gscan2pdf::Document;		use Gscan2pdf::Document;
use Gtk3 -init; # Could just call init separately		use Gtk3 -init; # Could just call init separately
use Date::Calc qw(Add_Delta_DHMS);		use Date::Calc qw(Add_Delta_DHMS);
use IPC::System::Simple qw(system);		use IPC::System::Simple qw(system);
use Test::More tests => 5;		use Test::More tests => 5;
#########################		#########################
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;
skipping to change at line 45		skipping to change at line 45
$slist->import_files(		$slist->import_files(
paths => ['test.pdf'],		paths => ['test.pdf'],
metadata_callback => sub {		metadata_callback => sub {
my ($metadata) = @_;		my ($metadata) = @_;
my @tz = ( 0, -$metadata->{tz}[3], -$metadata->{tz}[4], 0 );		my @tz = ( 0, -$metadata->{tz}[3], -$metadata->{tz}[4], 0 );
my @gmt = Add_Delta_DHMS( @{ $metadata->{datetime} }, @tz );		my @gmt = Add_Delta_DHMS( @{ $metadata->{datetime} }, @tz );
is_deeply \@gmt, [ 2018, 12, 31, 12, 0, 0 ], 'datetime - timezone';		is_deeply \@gmt, [ 2018, 12, 31, 12, 0, 0 ], 'datetime - timezone';
is $metadata->{author}, 'Authör', 'author';		is $metadata->{author}, 'Authör', 'author';
is $metadata->{subject}, 'Sübject', 'subject';		is $metadata->{subject}, 'Sübject', 'subject';
is $metadata->{keywords}, 'Keywörds', 'keywords';		is $metadata->{keywords}, 'Keywörds', 'keywords';
is $metadata->{title}, 'Title', 'title';		is $metadata->{title}, 'Title', 'title';
},		},
finished_callback => sub {		finished_callback => sub {
Gtk3->main_quit;		Gtk3->main_quit;
}		}
);		);
Gtk3->main;		Gtk3->main;
#########################		#########################
unlink 'test.pdf', 'test.png', 'test.tif', <$dir/*>;		unlink 'test.pdf', 'test.png', 'test.tif', <$dir/*>;
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---