← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/47_cancel_unsharp_mask.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/47_cancel_unsharp_mask.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.jpg');
33
36
 
34
37
my $slist = Gscan2pdf::Document->new;
35
 
$slist->get_file_info( 'test.jpg', undef, undef, undef, sub {
36
 
 my ($info) = @_;
37
 
 $slist->import_file( $info, 1, 1, undef, undef, undef, sub {
38
 
  $slist->unsharp($slist->{data}[0][2], 100, 5, 100, 0.5, undef, undef, undef, undef, undef, undef, sub {
39
 
   is( -s 'test.jpg', -s "$slist->{data}[0][2]{filename}", 'image not modified' );
40
 
   Gtk2->main_quit;
41
 
  });
42
 
  $slist->{cancelled} = 1;
43
 
 })
44
 
});
 
38
$slist->get_file_info(
 
39
 'test.jpg',
 
40
 undef, undef, undef,
 
41
 sub {
 
42
  my ($info) = @_;
 
43
  $slist->import_file(
 
44
   $info, 1, 1, undef, undef, undef,
 
45
   sub {
 
46
    $slist->unsharp(
 
47
     $slist->{data}[0][2],
 
48
     100,   5,     100, 0.5, undef, undef, undef,
 
49
     undef, undef, undef,
 
50
     sub {
 
51
      is(
 
52
       -s 'test.jpg',
 
53
       -s "$slist->{data}[0][2]{filename}",
 
54
       'image not modified'
 
55
      );
 
56
      Gtk2->main_quit;
 
57
     }
 
58
    );
 
59
    $slist->{cancelled} = 1;
 
60
   }
 
61
  );
 
62
 }
 
63
);
45
64
Gtk2->main;
46
65
 
47
66
#########################