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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use PDF::Builder;
my $pdf = PDF::Builder->new();
# this first test is the opposite of PDF::API2's, where there is
# no default Media Box
ok($pdf->mediabox(),
q{Global media box exists on a new PDF});
$pdf->mediabox('letter');
is(join(',', $pdf->mediabox()),
'0,0,612,792',
q{Global media box can be read after being set});
my $string = $pdf->to_string();
like($string, qr{/MediaBox \[ 0 0 612 792 \]},
q{Global media box is recorded in the PDF});
done_testing();
1;
|
