"Fossies" - the Fresh Open Source Software Archive  

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

0610_Dialog_Scan_Image_Sane.t  (gscan2pdf-2.13.1.tar.xz)	:	0610_Dialog_Scan_Image_Sane.t  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 33		skipping to change at line 33
ok(		ok(
my $dialog = Gscan2pdf::Dialog::Scan::Image_Sane->new(		my $dialog = Gscan2pdf::Dialog::Scan::Image_Sane->new(
title => 'title',		title => 'title',
'transient-for' => $window,		'transient-for' => $window,
'logger' => $logger		'logger' => $logger
),		),
'Created dialog'		'Created dialog'
);		);
isa_ok( $dialog, 'Gscan2pdf::Dialog::Scan::Image_Sane' );		isa_ok( $dialog, 'Gscan2pdf::Dialog::Scan::Image_Sane' );
is( $dialog->get('device'), '', 'device' );		is( $dialog->get('device'), '', 'device' );
is( $dialog->get('device-list'), undef, 'device-list' );		is( $dialog->get('device-list'), undef, 'device-list' );
is( $dialog->get('dir'), undef, 'dir' );		is( $dialog->get('dir'), undef, 'dir' );
is( $dialog->get('num-pages'), 1, 'num-pages' );		is( $dialog->get('num-pages'), 1, 'num-pages' );
is( $dialog->get('max-pages'), 0, 'max-pages' );		is( $dialog->get('max-pages'), 0, 'max-pages' );
is( $dialog->get('page-number-start'), 1, 'page-number-start' );		is( $dialog->get('page-number-start'), 1, 'page-number-start' );
is( $dialog->get('page-number-increment'), 1, 'page-number-increment' );		is( $dialog->get('page-number-increment'), 1, 'page-number-increment' );
is( $dialog->get('side-to-scan'), 'facing', 'side-to-scan' );		is( $dialog->get('side-to-scan'), 'facing', 'side-to-scan' );
is( $dialog->get('available-scan-options'), undef, 'available-scan-options' );		is( $dialog->get('available-scan-options'), undef, 'available-scan-options' );
$dialog->{signal} = $dialog->signal_connect(		$dialog->{signal} = $dialog->signal_connect(
'changed-num-pages' => sub {		'changed-num-pages' => sub {
my ( $widget, $n, $signal ) = @_;		my ( $widget, $n, $signal ) = @_;
$dialog->signal_handler_disconnect( $dialog->{signal} );		$dialog->signal_handler_disconnect( $dialog->{signal} );
is( $n, 0, 'changed-num-pages' );		is( $n, 0, 'changed-num-pages' );
}		}
);		);
$dialog->set( 'allow-batch-flatbed', TRUE );		$dialog->set( 'allow-batch-flatbed', TRUE );
End of changes. 1 change blocks.
8 lines changed or deleted		8 lines changed or added

---