"Fossies" - the Fresh Open Source Software Archive  

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

0627_Dialog_Scan_CLI.t  (gscan2pdf-2.13.1.tar.xz)	:	0627_Dialog_Scan_CLI.t  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 64		skipping to change at line 64
'starting with a non-default profile'		'starting with a non-default profile'
);		);
Gtk3->main_quit;		Gtk3->main_quit;
}		}
);		);
$dialog->set_option(		$dialog->set_option(
$dialog->get('available-scan-options')->by_name('mode'), 'Color' );		$dialog->get('available-scan-options')->by_name('mode'), 'Color' );
}		}
);		);
$dialog->set( 'device-list', [ { 'name' => 'test' } ] );		$dialog->set( 'device-list', [ { 'name' => 'test' } ] );
$dialog->set( 'device', 'test' );		$dialog->set( 'device', 'test' );
my $filename = 'scanners/Brother_DCP-7025';		my $filename = 'scanners/Brother_DCP-7025';
SKIP: {		SKIP: {
skip 'source tree not available', 1 unless -r $filename;		skip 'source tree not available', 1 unless -r $filename;
my $output = do { local ( @ARGV, $/ ) = $filename; <> };		my $output = do { local ( @ARGV, $/ ) = $filename; <> };
my $options = Gscan2pdf::Scanner::Options->new_from_data($output);		my $options = Gscan2pdf::Scanner::Options->new_from_data($output);
my $opt = $options->by_name('contrast');		my $opt = $options->by_name('contrast');
is( $dialog->value_for_active_option( TRUE, $opt ),		is( $dialog->value_for_active_option( TRUE, $opt ),
FALSE,		FALSE,
'value_for_active_option() with defined value and inactive option' );		'value_for_active_option() with defined value and inactive option' );
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---