← Back to branch summary

~ubuntu-branches/debian/sid/gscan2pdf/sid

« back to all changes in this revision

Viewing changes to t/42_cancel_save_tiff.t

  • Committer: Package Import Robot
  • Author(s): Jeffrey Ratcliffe
  • Date: 2012-02-05 22:13:28 UTC
  • mfrom: (1.3.7)
  • Revision ID: package-import@ubuntu.com-20120205221328-lbe6imlt2nymnk7o
Tags: 1.0.1-1
http://bugs.debian.org/653918
http://bugs.debian.org/646298
http://bugs.debian.org/646246
http://bugs.debian.org/651666
http://bugs.debian.org/645322
http://bugs.debian.org/645323
* New upstream release
  Closes: #653918 (gscan2pdf doesn't save metadata anymore)
  Closes: #646298 (pdf-exports of ocropus texts are slow, big)
  Closes: #646246 (gscan2pdf ignores html-entities returned by ocropus
                   documents)
  Closes: #651666 (ability to preview saved files)
  Closes: #645322 (No lock after recovery can result in data loss)
  Closes: #645323 (Imported pages have no thumbnails)
* Bumped standards to 3.9.2 (no changes required)

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/42_cancel_save_tiff.t
5
5
 
6
6
# change 'tests => 1' to 'tests => last_test_to_print';
7
7
 
 
8
use warnings;
 
9
use strict;
8
10
use Test::More tests => 1;
 
11
 
9
12
BEGIN {
10
 
  use Gscan2pdf;
11
 
  use Gscan2pdf::Document;
12
 
};
 
13
 use Gscan2pdf;
 
14
 use Gscan2pdf::Document;
 
15
}
13
16
 
14
17
#########################
15
18
 
21
24
our $heightt = 100;
22
25
 
23
26
use Log::Log4perl qw(:easy);
24
 
Log::Log4perl->easy_init($DEBUG);
 
27
Log::Log4perl->easy_init($WARN);
25
28
our $logger = Log::Log4perl::get_logger;
26
29
my $prog_name = 'gscan2pdf';
27
30
use Locale::gettext 1.05;    # For translations
28
31
our $d = Locale::gettext->domain($prog_name);
29
 
Gscan2pdf->setup($d, $logger);
 
32
Gscan2pdf->setup( $d, $logger );
30
33
 
31
34
# Create test image
32
35
system('convert rose: test.pnm');
33
36
 
34
37
my $slist = Gscan2pdf::Document->new;
35
 
$slist->get_file_info( 'test.pnm', undef, undef, undef, sub {
36
 
 my ($info) = @_;
37
 
 $slist->import_file( $info, 1, 1, undef, undef, undef, sub {
38
 
  $slist->save_tiff('test.tif', [ $slist->{data}[0][2] ], undef, undef, undef, undef, undef, undef, undef, sub {Gtk2->main_quit});
39
 
  $slist->{cancelled} = 1;
40
 
 })
41
 
});
 
38
$slist->get_file_info(
 
39
 'test.pnm',
 
40
 undef, undef, undef,
 
41
 sub {
 
42
  my ($info) = @_;
 
43
  $slist->import_file(
 
44
   $info, 1, 1, undef, undef, undef,
 
45
   sub {
 
46
    $slist->save_tiff( 'test.tif', [ $slist->{data}[0][2] ],
 
47
     undef, undef, undef, undef, undef, undef, undef, sub { Gtk2->main_quit } );
 
48
    $slist->{cancelled} = 1;
 
49
   }
 
50
  );
 
51
 }
 
52
);
42
53
Gtk2->main;
43
54
 
44
55
is( $Gscan2pdf::_self->{cancel}, 1, 'save_tiff was cancelled' );