is a GUI to produce PDFs from scanned documents (using Perl).
| 271_crop.t (gscan2pdf-2.13.1.tar.xz) | : | 271_crop.t (gscan2pdf-2.13.2.tar.xz) |
|---|
| | |
| skipping to change at line 63 | | skipping to change at line 63 |
|---|
| </html> | | </html> |
| EOS | | EOS |
| $slist->crop( | | $slist->crop( |
| page => $slist->{data}[0][2]->{uuid}, | | page => $slist->{data}[0][2]->{uuid}, |
| x => 10, | | x => 10, |
| y => 10, | | y => 10, |
| w => 10, | | w => 10, |
| h => 10, | | h => 10, |
| finished_callback => sub { | | finished_callback => sub { |
| is_deeply [ $slist->{data}[0][2]{width}, | | is_deeply [ $slist->{data}[0][2]{width}, |
|
| $slist->{data}[0][2]{height} ], [ 10, 10 ], | | $slist->{data}[0][2]{height} ], |
| | [ 10, 10 ], |
| 'dimensions after crop'; | | 'dimensions after crop'; |
| my $got = capture( qw(identify -format %g), | | my $got = capture( qw(identify -format %g), |
| $slist->{data}[0][2]{filename} ); | | $slist->{data}[0][2]{filename} ); |
| chomp($got); | | chomp($got); |
| is $got, "10x10+0+0", 'GIF cropped correctly'; | | is $got, "10x10+0+0", 'GIF cropped correctly'; |
| is dirname("$slist->{data}[0][2]{filename}"), | | is dirname("$slist->{data}[0][2]{filename}"), |
| "$dir", 'using session directory'; | | "$dir", 'using session directory'; |
| my $expected_hocr = <<"EOS"; | | my $expected_hocr = <<"EOS"; |
| <?xml version="1.0" encoding="UTF-8"?> | | <?xml version="1.0" encoding="UTF-8"?> |
| <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" | | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 2 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 