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
|
### -*- mode: perl; -*-
use PDF::FDF::Simple;
use Test::More;
use Data::Dumper;
use Parse::RecDescent;
use strict;
use warnings;
plan tests => 5;
################## tests ##################
# This real world file contains field 'Email' without a value
my $fdf_fname = 't/missingfdfvalue.fdf';
my $fdf = new PDF::FDF::Simple ({ filename => $fdf_fname });
my $erg = $fdf->load;
is (
$erg->{'4_Ec_3_equal.Application'},
'Off',
"parse"
);
ok (
(not defined $erg->{'Email'}),
"nonexisting fdf value"
);
is (
$fdf->attribute_file,
'../template.pdf',
"attribute_file"
);
ok (
(grep '<7D22A3A5BB8F4D3895B909A47FFA6762>', @{$fdf->attribute_id}),
"attribute_id 1"
);
ok (
(grep '<601C7694037F98489E433900ED652316>', @{$fdf->attribute_id}),
"attribute_id 2"
);
|
