157_save_hocr_multipage.t (gscan2pdf-2.13.1.tar.xz) | : | 157_save_hocr_multipage.t (gscan2pdf-2.13.2.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 59 | skipping to change at line 59 | |||
</body> | </body> | |||
</html> | </html> | |||
EOS | EOS | |||
$slist->import_files( | $slist->import_files( | |||
paths => [ 'test.pnm', 'test.pnm' ], | paths => [ 'test.pnm', 'test.pnm' ], | |||
finished_callback => sub { | finished_callback => sub { | |||
$slist->{data}[0][2]->import_hocr($hocr); | $slist->{data}[0][2]->import_hocr($hocr); | |||
$slist->{data}[1][2]->import_hocr($hocr); | $slist->{data}[1][2]->import_hocr($hocr); | |||
$slist->save_hocr( | $slist->save_hocr( | |||
path => 'test.txt', | path => 'test.txt', | |||
list_of_pages => | list_of_pages => | |||
[ $slist->{data}[0][2]{uuid}, $slist->{data}[1][2]{uuid} ], | [ $slist->{data}[0][2]{uuid}, $slist->{data}[1][2]{uuid} ], | |||
finished_callback => sub { Gtk3->main_quit } | finished_callback => sub { Gtk3->main_quit } | |||
); | ); | |||
} | } | |||
); | ); | |||
Gtk3->main; | Gtk3->main; | |||
my $expected = <<"EOS"; | my $expected = <<"EOS"; | |||
<?xml version="1.0" encoding="UTF-8"?> | <?xml version="1.0" encoding="UTF-8"?> | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |