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
|
### -*- mode: perl; -*-
use Test::More;
use PDF::FDF::Simple;
use File::Temp qw( tempfile );
use Data::Dumper;
use Parse::RecDescent;
use strict;
use warnings;
my $test_count = 2;
eval "use Test::NoWarnings";
$test_count++ unless $@;
plan tests => $test_count;
################## tests ##################
my ($fdf_fh, $fdf_fname) = tempfile (
"/tmp/XXXXXX",
SUFFIX => '.fdf',
UNLINK => 1
);
my $fdf = new PDF::FDF::Simple ({ 'filename' => $fdf_fname });
$fdf->content ({
'name' => 'Blubberman',
'organisation' => 'Misc Stuff Ltd.',
'dotted.field.name' => 'Hello world.',
'language.radio.value' => 'French',
'my.checkbox.value' => 'On'
});
ok (($fdf->save), 'save');
my $fdf2 = new PDF::FDF::Simple ({ 'filename' => './t/simple.fdf' });
my $erg = $fdf2->load;
ok (($erg->{'oeavoba.angebotseroeffnung.anschrift'} eq 'Lndliche Neuordnung in Sachsen TG Schnwlkau I, Lptitzer Str. 39, 04808 Wurzen'),
"load");
|
