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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 6;
use lib 't/lib'; # Needed for 'make test' from project dirs
use PDFAPI2Mock; # provide dummy PDF::API2. obviously a real PDF::API2 or
# PDF::Builder installation will be needed in order to run
BEGIN {
use_ok('PDF::Table');
}
local $SIG{__WARN__} = sub { my $message = shift; die $message; };
my $pdf = PDF::API2->new;
my $page = $pdf->page;
my $object = PDF::Table->new($pdf, $page);
my $data = [ 'foo', 'bar', 'baz' ];
my $required = [ x => 10,
w => 300,
start_y => 750,
next_y => 700,
start_h => 40,
next_h => 500 ];
ok($object->table($pdf, $page, [$data], @$required), "basic test");
eval { $object->table('pdf', $page, [$data], @$required) };
like($@, qr/Error: Invalid PDF object received/, "Invalid PDF object received");
eval { $object->table($pdf, 'page', [$data], @$required) };
like($@, qr/Error: Invalid page object received/, "Invalid page object received");
eval { $object->table($pdf, $page, 'data', @$required) };
like($@, qr/Error: Invalid data received/, "Invalid data received");
eval { $object->table($pdf, $page, 'data', 'required') };
like($@, qr/Odd number of elements in hash assignment/, "Odd number of elements in hash assignment");
done_testing();
1;
|
