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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 7;
use PDF::Builder;
my $pdf = PDF::Builder->new();
isa_ok($pdf,
'PDF::Builder',
q{PDF::Builder->new() returns a PDF::Builder object});
my $page = $pdf->page();
isa_ok($page,
'PDF::Builder::Page',
q{$pdf->page() returns a PDF::Builder::Page object});
my $gfx = $page->gfx();
isa_ok($gfx,
'PDF::Builder::Content',
q{$pdf->gfx() returns a PDF::Builder::Content object});
my $text = $page->text();
isa_ok($text,
'PDF::Builder::Content::Text',
q{$pdf->text() returns a PDF::Builder::Content::Text object});
is($pdf->pages(),
1,
q{$pdf->pages() returns 1 on a one-page PDF});
# Insert a second page
$page = $pdf->page();
is($pdf->pages(),
2,
q{$pdf->pages() returns 2 after a second page is added});
# Open a PDF
$pdf = PDF::Builder->open('t/resources/sample.pdf');
isa_ok($pdf,
'PDF::Builder',
q{PDF::Builder->open() returns a PDF::Builder object});
1;
|
