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
54
55
56
57
58
59
60
61
62
|
### -*- mode: perl; -*-
use Test::More;
use PDF::FDF::Simple;
use Data::Dumper;
use strict;
use warnings;
plan tests => 9;
############################################################
#
# This test script is similar to fdfparser_round.t, but uses
# as_string() and load($string) instead of files.
#
############################################################
################## tests ##################
my $readonly_testfile = './t/fdfparser_standard.fdf';
#first parser reads and parses a given fdf file
my $parser = new PDF::FDF::Simple ({
filename => $readonly_testfile,
});
ok ($parser, "setting up 1");
my $fdf_content_ptr = $parser->load;
ok ((scalar keys %$fdf_content_ptr == 18),
"parsing 1");
my $fdf_string = $parser->as_string;
#second parser parses the fdf content
my $parser2 = new PDF::FDF::Simple();
ok ($parser2, "setting up 2");
my $new_fdf_content = $parser2->load ($fdf_string);
ok ((scalar keys %$new_fdf_content),
"parsing 1");
ok ((scalar keys %$new_fdf_content == scalar keys %$fdf_content_ptr),
"compare size");
my $compare_success = 1;
foreach my $key (keys %$new_fdf_content) {
if ( $new_fdf_content->{$key} ne $fdf_content_ptr->{$key} ) {
$compare_success = 0;
print "error\n";
last;
}
}
ok ($compare_success, "compare");
is( $parser->attribute_file, $parser2->attribute_file, "compare file" );
is( $parser->attribute_ufile, $parser2->attribute_ufile, "compare ufile" );
is_deeply( [ sort @{$parser->attribute_id} ],
[ sort @{$parser2->attribute_id} ],
"compare ids" );
|
