"Fossies" - the Fresh Open Source Software Archive  

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

152_save_utf8.t  (gscan2pdf-2.13.1.tar.xz)	:	152_save_utf8.t  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 31		skipping to change at line 31
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_text(		$slist->save_text(
path => 'test.txt',		path => 'test.txt',
list_of_pages => [ $slist->{data}[0][2]{uuid} ],		list_of_pages => [ $slist->{data}[0][2]{uuid} ],
finished_callback => sub { Gtk3->main_quit }		finished_callback => sub { Gtk3->main_quit }
);		);
}		}
);		);
Gtk3->main;		Gtk3->main;
is(		is( capture(qw(cat test.txt)), 'пени способствовала сохранению', 'saved UTF8' );
capture(qw(cat test.txt)),
'пени способствовала сохранению',
'saved UTF8'
);
#########################		#########################
unlink 'test.pnm', 'test.txt';		unlink 'test.pnm', 'test.txt';
Gscan2pdf::Document->quit();		Gscan2pdf::Document->quit();
End of changes. 2 change blocks.
7 lines changed or deleted		2 lines changed or added

---