"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/275_split.t" between
gscan2pdf-2.13.1.tar.xz and gscan2pdf-2.13.2.tar.xz

About: gscan2pdf is a GUI to produce PDFs from scanned documents (using Perl).

275_split.t  (gscan2pdf-2.13.1.tar.xz):275_split.t  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 57 skipping to change at line 57
</div> </div>
</body> </body>
</html> </html>
EOS EOS
$slist->split_page( $slist->split_page(
page => $slist->{data}[0][2]->{uuid}, page => $slist->{data}[0][2]->{uuid},
direction => 'v', direction => 'v',
position => 35, position => 35,
finished_callback => sub { finished_callback => sub {
is_deeply [ $slist->{data}[0][2]{width}, is_deeply [ $slist->{data}[0][2]{width},
$slist->{data}[0][2]{height} ], [ 35, 46 ], $slist->{data}[0][2]{height} ],
[ 35, 46 ],
'dimensions 1st page after split'; 'dimensions 1st page after split';
my $got = capture( qw(identify -format %g), my $got = capture( qw(identify -format %g),
$slist->{data}[0][2]{filename} ); $slist->{data}[0][2]{filename} );
chomp($got); chomp($got);
is $got, "35x46+0+0", 'GIF split correctly'; is $got, "35x46+0+0", 'GIF split correctly';
is dirname("$slist->{data}[0][2]{filename}"), is dirname("$slist->{data}[0][2]{filename}"),
"$dir", 'using session directory'; "$dir", 'using session directory';
my $expected_hocr = <<"EOS"; my $expected_hocr = <<"EOS";
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
skipping to change at line 86 skipping to change at line 87
<div class='ocr_page' title='bbox 0 0 35 46'> <div class='ocr_page' title='bbox 0 0 35 46'>
<span class='ocr_word' title='bbox 0 0 9 46'>left</span> <span class='ocr_word' title='bbox 0 0 9 46'>left</span>
<span class='ocr_word' title='bbox 10 0 35 46'>middle</span> <span class='ocr_word' title='bbox 10 0 35 46'>middle</span>
</div> </div>
</body> </body>
</html> </html>
EOS EOS
is $slist->{data}[0][2]->export_hocr, $expected_hocr, is $slist->{data}[0][2]->export_hocr, $expected_hocr,
'split hocr'; 'split hocr';
is_deeply [ $slist->{data}[1][2]{width}, is_deeply [ $slist->{data}[1][2]{width},
$slist->{data}[1][2]{height} ], [ 35, 46 ], $slist->{data}[1][2]{height} ],
[ 35, 46 ],
'dimensions 2nd page after split'; 'dimensions 2nd page after split';
$got = capture( qw(identify -format %g), $got = capture( qw(identify -format %g),
$slist->{data}[1][2]{filename} ); $slist->{data}[1][2]{filename} );
chomp($got); chomp($got);
is $got, "35x46+0+0", 'GIF split correctly 2'; is $got, "35x46+0+0", 'GIF split correctly 2';
is dirname("$slist->{data}[1][2]{filename}"), is dirname("$slist->{data}[1][2]{filename}"),
"$dir", 'using session directory 2'; "$dir", 'using session directory 2';
$expected_hocr = <<"EOS"; $expected_hocr = <<"EOS";
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 End of changes. 2 change blocks. 
2 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)