"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/1123_save_pdf_with_utf8.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).

1123_save_pdf_with_utf8.t  (gscan2pdf-2.13.1.tar.xz)	:	1123_save_pdf_with_utf8.t  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 39		skipping to change at line 39
my $slist = Gscan2pdf::Document->new;		my $slist = Gscan2pdf::Document->new;
# dir for temporary files		# dir for temporary files
my $dir = File::Temp->newdir;		my $dir = File::Temp->newdir;
$slist->set_dir($dir);		$slist->set_dir($dir);
$slist->import_files(		$slist->import_files(
paths => ['test.pnm'],		paths => ['test.pnm'],
finished_callback => sub {		finished_callback => sub {
$slist->{data}[0][2]->import_text(		$slist->{data}[0][2]->import_text('пени способствовала сохранению');
'пени способствовала сохранению');
$slist->save_pdf(		$slist->save_pdf(
path => 'test.pdf',		path => 'test.pdf',
list_of_pages => [ $slist->{data}[0][2]{uuid} ],		list_of_pages => [ $slist->{data}[0][2]{uuid} ],
options => \%options,		options => \%options,
finished_callback => sub { Gtk3->main_quit }		finished_callback => sub { Gtk3->main_quit }
);		);
}		}
);		);
Gtk3->main;		Gtk3->main;
my $out = capture(qw(pdftotext test.pdf -));		my $out = capture(qw(pdftotext test.pdf -));
utf8::decode($out);		utf8::decode($out);
like $out, qr/пени способствовала сохранению/,		like $out, qr/пени способствовала сохранению/, 'PDF with expected text';
'PDF with expected text';
#########################		#########################
unlink 'test.pnm', 'test.pdf';		unlink 'test.pnm', 'test.pdf';
Gscan2pdf::Document->quit();		Gscan2pdf::Document->quit();
End of changes. 2 change blocks.
4 lines changed or deleted		2 lines changed or added

---