21
24
our $heightt = 100;
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 );
31
34
# Create test image
32
35
system('convert rose: test.pnm');
34
37
my $slist = Gscan2pdf::Document->new;
35
$slist->get_file_info( 'test.pnm', undef, undef, undef, sub {
37
$slist->import_file( $info, 1, 1, undef, undef, undef, sub {
38
$slist->{data}[0][2]{hocr} = <<EOS;
38
$slist->get_file_info(
44
$info, 1, 1, undef, undef, undef,
46
$slist->{data}[0][2]{hocr} = <<EOS;
40
48
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN
41
49
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
59
$slist->save_djvu('test.djvu', [ $slist->{data}[0][2] ], undef, undef, undef, sub {Gtk2->main_quit});
67
$slist->save_djvu( 'test.djvu', [ $slist->{data}[0][2] ],
68
undef, undef, undef, sub { Gtk2->main_quit } );
64
75
like( `djvutxt test.djvu`, qr/The quick brown fox/, 'DjVu with expected text' );