is a GUI to produce PDFs from scanned documents (using Perl).
| 0621_Dialog_Scan_CLI.t (gscan2pdf-2.13.1.tar.xz) | : | 0621_Dialog_Scan_CLI.t (gscan2pdf-2.13.2.tar.xz) |
|---|
| | |
| skipping to change at line 32 | | skipping to change at line 32 |
|---|
| ok( | | ok( |
| my $dialog = Gscan2pdf::Dialog::Scan::CLI->new( | | my $dialog = Gscan2pdf::Dialog::Scan::CLI->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::CLI' ); | | isa_ok( $dialog, 'Gscan2pdf::Dialog::Scan::CLI' ); |
| | |
|
| 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' ); |
| | |
| my $signal = $dialog->signal_connect( | | my $signal = $dialog->signal_connect( |
| 'changed-device-list' => sub { | | 'changed-device-list' => sub { |
| pass('changed-device-list'); | | pass('changed-device-list'); |
| | |
| is_deeply( | | is_deeply( |
| $dialog->get('device-list'), | | $dialog->get('device-list'), |
| [ { 'name' => 'test', 'model' => 'test', 'label' => 'test' } ], | | [ { 'name' => 'test', 'model' => 'test', 'label' => 'test' } ], |
| 'add model field if missing' | | 'add model field if missing' |
| | | |
| End of changes. 1 change blocks. |
|---|
| 8 lines changed or deleted | | 8 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 