1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use PDF::Builder;
# -firstpage as page number (original bug report)
my $pdf = PDF::Builder->new();
my $page1 = $pdf->page();
my $page2 = $pdf->page();
$pdf->preferences(-firstpage => [2, -fit => 1]);
my $output = $pdf->to_string();
like($output,
qr/OpenAction \[ 2 \/Fit \]/,
q{-firstpage accepts a page number});
# -firstpage as page object (regression)
$pdf = PDF::Builder->new();
$page1 = $pdf->page();
$page2 = $pdf->page();
$pdf->preferences(-firstpage => [$page2, -fit => 1]);
$output = $pdf->to_string();
like($output,
qr/OpenAction \[ \d+ 0 R \/Fit \]/,
q{-firstpage accepts a page object});
1;
|
