1152_save_pdf_with_old_metadata.t (gscan2pdf-2.13.1.tar.xz) | : | 1152_save_pdf_with_old_metadata.t (gscan2pdf-2.13.2.tar.xz) | ||
---|---|---|---|---|
use warnings; | use warnings; | |||
use strict; | use strict; | |||
use Date::Calc qw(Date_to_Time); | use Date::Calc qw(Date_to_Time); | |||
use File::stat; | use File::stat; | |||
use Glib qw(TRUE FALSE); # To get TRUE and FALSE | use Glib qw(TRUE FALSE); # To get TRUE and FALSE | |||
use IPC::System::Simple qw(system capture); | use IPC::System::Simple qw(system capture); | |||
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 | |||
} | } | |||
######################### | ######################### | |||
Gscan2pdf::Translation::set_domain('gscan2pdf'); | Gscan2pdf::Translation::set_domain('gscan2pdf'); | |||
use Log::Log4perl qw(:easy); | use Log::Log4perl qw(:easy); | |||
Log::Log4perl->easy_init($FATAL); | Log::Log4perl->easy_init($FATAL); | |||
my $logger = Log::Log4perl::get_logger; | my $logger = Log::Log4perl::get_logger; | |||
Gscan2pdf::Document->setup($logger); | Gscan2pdf::Document->setup($logger); | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |