1
# Before `make install' is performed this script should be runnable with
2
# `make test'. After `make install' it should work as `perl Gscan2pdf.t'
4
#########################
6
# change 'tests => 1' to 'tests => last_test_to_print';
10
use Test::More tests => 2;
11
BEGIN { use_ok('Gscan2pdf::Frontend::Scanimage') }
13
#########################
15
# Insert your test code below, the Test::More module is use()ed here so read
16
# its man page ( perldoc Test::More ) for help writing this test script.
18
my $filename = 'scanners/canoscan_FB_630P';
19
my $output = do { local ( @ARGV, $/ ) = $filename; <> };
20
my %this = Gscan2pdf::Frontend::Scanimage::options2hash($output);
23
'tip' => 'Selects the scan mode (e.g., lineart, monochrome, or color).',
25
'values' => [ 'Gray', 'Color' ]
28
'tip' => 'Sets the resolution of the scanned image.',
30
'values' => [ '75', '150', '300', '600' ],
34
'tip' => 'Do a quality white-calibration',
39
'Number of bits per sample, typical values are 1 for "line-art" and 8 for multibit scans.',
41
'values' => [ '8', '12' ]
44
'tip' => 'Top-left x position of scan area.',
52
'tip' => 'Top-left y position of scan area.',
60
'tip' => 'Width of scan-area.',
68
'tip' => 'Height of scan-area.',
75
is_deeply( \%this, \%that, 'canoscan_FB_630P' );