3
use File::Basename; # Split filename into dir, file, ext
4
use Test::More tests => 2;
7
use Gscan2pdf::Document;
8
use Gtk2 -init; # Could just call init separately
11
#########################
13
use Log::Log4perl qw(:easy);
14
Log::Log4perl->easy_init($WARN);
15
my $logger = Log::Log4perl::get_logger;
16
Gscan2pdf::Document->setup($logger);
19
system('convert rose: test.png');
20
my $old = `identify -format '%m %G %g %z-bit %r' test.png`;
22
my $slist = Gscan2pdf::Document->new;
24
# dir for temporary files
25
my $dir = File::Temp->newdir;
26
$slist->set_dir($dir);
28
$slist->get_file_info(
30
finished_callback => sub {
36
finished_callback => sub {
38
`identify -format '%m %G %g %z-bit %r' $slist->{data}[0][2]{filename}`,
40
'PNG imported correctly'
42
is( dirname("$slist->{data}[0][2]{filename}"),
43
"$dir", 'using session directory' );
51
#########################
53
unlink 'test.png', <$dir/*>;
55
Gscan2pdf::Document->quit();