trunk/t/3-normalize-xml.t

#!/usr/bin/perl -w

use Test::More tests => 74;
use Test::Exception;
use Cwd qw/abs_path/;
use blib;
use strict;
use Data::Dumper;

BEGIN {
use_ok( 'WebPAC::Normalize::XML' );
}

ok(my $abs_path = abs_path($0), "abs_path");
$abs_path =~ s#/[^/]*$#/#;
diag "abs_path: $abs_path";

throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup";
throws_ok { new WebPAC::Normalize::XML( lookup => 'bar' ) } qr/pair/, "lookup without lookup_regex";

ok(my $n = new WebPAC::Normalize::XML( debug => 0 ), "new");

throws_ok { $n->open() } qr/tag/, "open without tag";
throws_ok { $n->open( tag => 'isis' ) } qr/xml_file/, "open without xml_file";
throws_ok { $n->open( tag => 'isis', xml_file => '/foo/bar/baz' ) } qr/file.*doesn't exist/, "open with invalid xml_file";
ok( $n->open(
        tag => 'isis',
        xml_file => "$abs_path/data/normalize.xml",
), "open");

my $rec = {
 '675' => [
            {
              'a' => '159.9'
            }
          ],
 '210' => [
            {
              'c' => 'New York University press',
              'a' => 'New York',
              'd' => 'cop. 1988'
            }
          ],
 '700' => [
            {
              'a' => 'Haynal',
              'b' => 'André'
            }
          ],
 '801' => [
            'FFZG'
          ],
 '991' => [
            '8302'
          ],
 '000' => [
            1
          ],
 '702' => [
            {
              'a' => 'Holder',
              'b' => 'Elizabeth'
            }
          ],
 '215' => [
            {
              'c' => 'ilustr',
              'a' => 'xix, 202 str',
              'd' => '23cm'
            }
          ],
 '990' => [
            '2140',
            '88',
            'HAY'
          ],
 '200' => [
            {
              'e' => 'from Freud and Ferenczi to Michael balint',
              'a' => 'Controversies in psychoanalytic method',
              'g' => 'translated by Elizabeth Holder on the basisi of a first draft by Archie Hooton ; with a preface by Daniel N. Stern',
              'f' => 'by André E. Haynal'
            }
          ],
 '610' => [
            'povijest psihoanalize'
          ],
 '994' => [
            {
              'c' => '',
              'a' => 'PS',
              'b' => 'MG'
            }
          ],
 '320' => [
            'Kazalo'
          ],
 '101' => [
            'ENG'
          ],
 '686' => [
            '2140'
          ],
 '300' => [
            'Prijevod djela: '
          ]
};

foreach my $fld (keys %$rec) {
        my $r = 0;
        foreach my $item ($rec->{$fld}) {
                if (ref($item) eq 'HASH') {
                        foreach my $sf (keys %$item) {
                                my $found = 0;
                                ok($n->get_data(\$rec, $fld, $sf, $r, \$found), "v${fld}^${sf}");
                                ok($found, "found");
                        }
                        my $found = 0;
                        ok(! $n->get_data(\$rec, $fld, 'x', $r, \$found), "no v${fld}^x");
                        ok(! $found, "not found");
                } else {
                        my $found = 0;
                        ok($n->get_data(\$rec, $fld, '', $r, \$found), "v${fld}");
                        ok($found, "found");
                }
        }
        my $found = 0;
        ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld}");
        ok(! $found, "not found");
}

ok(my @ds = $n->data_structure( $rec ), "data_structure");

#diag Dumper($rec, \@ds);
1	dpavlin	12	#!/usr/bin/perl -w
2
3	dpavlin	64	use Test::More tests => 74;
4	dpavlin	12	use Test::Exception;
5			use Cwd qw/abs_path/;
6			use blib;
7			use strict;
8	dpavlin	62	use Data::Dumper;
9	dpavlin	12
10			BEGIN {
11			use_ok( 'WebPAC::Normalize::XML' );
12			}
13
14			ok(my $abs_path = abs_path($0), "abs_path");
15			$abs_path =~ s#/[^/]*$#/#;
16			diag "abs_path: $abs_path";
17
18	dpavlin	31	throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup";
19			throws_ok { new WebPAC::Normalize::XML( lookup => 'bar' ) } qr/pair/, "lookup without lookup_regex";
20
21	dpavlin	15	ok(my $n = new WebPAC::Normalize::XML( debug => 0 ), "new");
22	dpavlin	13
23			throws_ok { $n->open() } qr/tag/, "open without tag";
24			throws_ok { $n->open( tag => 'isis' ) } qr/xml_file/, "open without xml_file";
25	dpavlin	62	throws_ok { $n->open( tag => 'isis', xml_file => '/foo/bar/baz' ) } qr/file.*doesn't exist/, "open with invalid xml_file";
26	dpavlin	13	ok( $n->open(
27	dpavlin	12	tag => 'isis',
28	dpavlin	64	xml_file => "$abs_path/data/normalize.xml",
29	dpavlin	13	), "open");
30	dpavlin	12
31	dpavlin	13	my $rec = {
32	dpavlin	64	'675' => [
33			{
34			'a' => '159.9'
35			}
36			],
37			'210' => [
38			{
39			'c' => 'New York University press',
40			'a' => 'New York',
41			'd' => 'cop. 1988'
42			}
43			],
44			'700' => [
45			{
46			'a' => 'Haynal',
47			'b' => 'André'
48			}
49			],
50			'801' => [
51			'FFZG'
52			],
53			'991' => [
54			'8302'
55			],
56			'000' => [
57			1
58			],
59			'702' => [
60			{
61			'a' => 'Holder',
62			'b' => 'Elizabeth'
63			}
64			],
65			'215' => [
66			{
67			'c' => 'ilustr',
68			'a' => 'xix, 202 str',
69			'd' => '23cm'
70			}
71			],
72			'990' => [
73			'2140',
74			'88',
75			'HAY'
76			],
77			'200' => [
78			{
79			'e' => 'from Freud and Ferenczi to Michael balint',
80			'a' => 'Controversies in psychoanalytic method',
81			'g' => 'translated by Elizabeth Holder on the basisi of a first draft by Archie Hooton ; with a preface by Daniel N. Stern',
82			'f' => 'by André E. Haynal'
83			}
84			],
85			'610' => [
86			'povijest psihoanalize'
87			],
88			'994' => [
89			{
90			'c' => '',
91			'a' => 'PS',
92			'b' => 'MG'
93			}
94			],
95			'320' => [
96			'Kazalo'
97			],
98			'101' => [
99			'ENG'
100			],
101			'686' => [
102			'2140'
103			],
104			'300' => [
105			'Prijevod djela: '
106			]
107	dpavlin	13	};
108	dpavlin	12
109	dpavlin	64	foreach my $fld (keys %$rec) {
110			my $r = 0;
111			foreach my $item ($rec->{$fld}) {
112			if (ref($item) eq 'HASH') {
113			foreach my $sf (keys %$item) {
114			my $found = 0;
115			ok($n->get_data(\$rec, $fld, $sf, $r, \$found), "v${fld}^${sf}");
116			ok($found, "found");
117			}
118			my $found = 0;
119			ok(! $n->get_data(\$rec, $fld, 'x', $r, \$found), "no v${fld}^x");
120			ok(! $found, "not found");
121			} else {
122			my $found = 0;
123			ok($n->get_data(\$rec, $fld, '', $r, \$found), "v${fld}");
124			ok($found, "found");
125			}
126			}
127			my $found = 0;
128			ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld}");
129			ok(! $found, "not found");
130			}
131
132	dpavlin	13	ok(my @ds = $n->data_structure( $rec ), "data_structure");
133
134	dpavlin	64	#diag Dumper($rec, \@ds);