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
|
use strict;
use warnings;
use Test::More tests => 6;
use lib 't/lib'; # Needed for 'make test' from project dirs
use PDFAPI2Mock;
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));
eval { $object->table('pdf', $page, [$data], @$required) };
like($@, qr/Error: Invalid pdf object received/);
eval { $object->table($pdf, 'page', [$data], @$required) };
like($@, qr/Error: Invalid page object received/);
eval { $object->table($pdf, $page, 'data', @$required) };
like($@, qr/Error: Invalid data received/);
eval { $object->table($pdf, $page, 'data', 'required') };
like($@, qr/Odd number of elements in hash assignment/);
done_testing();
|
