3
use Test::More tests => 2;
6
use Gscan2pdf::Document;
7
use Gtk2 -init; # Could just call init separately
10
#########################
12
use Log::Log4perl qw(:easy);
13
Log::Log4perl->easy_init($WARN);
14
my $logger = Log::Log4perl::get_logger;
15
Gscan2pdf::Document->setup($logger);
18
system('convert xc:white white.pnm');
20
my $slist = Gscan2pdf::Document->new;
22
# dir for temporary files
23
my $dir = File::Temp->newdir;
24
$slist->set_dir($dir);
26
$slist->get_file_info(
28
finished_callback => sub {
34
finished_callback => sub {
36
`md5sum $slist->{data}[0][2]{filename} | cut -c -32`;
37
my $pid = $slist->user_defined(
38
page => $slist->{data}[0][2],
39
command => 'convert %i -negate %o',
40
cancelled_callback => sub {
43
`md5sum $slist->{data}[0][2]{filename} | cut -c -32`,
48
list_of_pages => [ $slist->{data}[0][2] ],
49
finished_callback => sub { Gtk2->main_quit }
60
is( system('identify test.jpg'),
61
0, 'can create a valid JPG after cancelling previous process' );
63
#########################
65
unlink 'white.pnm', 'test.jpg';
66
Gscan2pdf::Document->quit();