trunk/t/3-normalize-set.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 23;
use Test::Exception;
use Cwd qw/abs_path/;
use blib;
use File::Slurp;

use Data::Dumper;

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

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";

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: ' ],
 '999' => [ { 'z' => '900' } ],
};


my $lookup = {
        '00900' => [
                'lookup vrijednost 1',
                'lookup vrijednost 2',
        ],
};

print Dumper($rec);

sub test {
        print Dumper( @_ ), ("-" x 78), "\n";
        ok( defined(@_) );
}

sub test_s {
        my $t = shift || die;
        $t =~ s/[\n\r\s]+/ /gs;
        ok(my $v = eval "$t", "eval: $t");
        ok(! $@, "eval error: $@");
}

{
        no strict 'subs';
        use WebPAC::Normalize::Set;

        set_rec( $rec );

        test( join(",", rec2('200','a') ) );
        test( join(",", rec2('200','a'), rec2('200','b') ) );
        test( join(" * ",rec1('200'), rec1('201') ) );
        test( rec1('200') );
        test( regex( 's/0/o/g', rec1('200') ) );
        test( grep { /\*/ } regex( 's/0/o/g', rec1('200') ) );
        test( rec('999') );
        test( rec('999','z') );
        test(
                join_with(" i ",
                        lookup( 
                                regex( 's/^/00/',
                                        rec2('999','z')
                                )
                        ) 
                )
        );

        test_s(qq{
                tag('Title',
                        rec('200','a')
                );
        });
        test_s(qq{
                tag('Who',
                        join_with(" ",
                                rec('702','a'),
                                rec('702','b')
                        )
                );
        });

        test_s(qq{
                display('Publisher',
                        rec('210','c')
                )
        });
        
        test_s(qq{
                search('Year',
                        regex( 's/[^\\d]+//',
                                rec('210','d')
                        )
                )
        });

        ok(my $ds = get_ds(), "get_ds");
        diag "ds = ", Dumper($ds);

        clean_ds();

        my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" );
        $n .= "\n1;\n";
        #diag "normalize code:\n$n\n";
        test_s( $n );

        ok($ds = get_ds(), "get_ds");
        diag "ds = ", Dumper($ds);
}

1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use Test::More tests => 23;
6	use Test::Exception;
7	use Cwd qw/abs_path/;
8	use blib;
9	use File::Slurp;
10
11	use Data::Dumper;
12
13	BEGIN {
14	use_ok( 'WebPAC::Normalize::Set' );
15	}
16
17	ok(my $abs_path = abs_path($0), "abs_path");
18	$abs_path =~ s#/[^/]*$#/../#;
19	#diag "abs_path: $abs_path";
20
21	#throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup";
22
23	my $rec = {
24	'675' => [ {
25	'a' => '159.9'
26	} ],
27	'210' => [ {
28	'c' => 'New York University press',
29	'a' => 'New York',
30	'd' => 'cop. 1988'
31	} ],
32	'700' => [ {
33	'a' => 'Haynal',
34	'b' => 'André'
35	} ],
36	'801' => [ 'FFZG' ],
37	'991' => [ '8302' ],
38	'000' => [ 1 ],
39	'702' => [ {
40	'a' => 'Holder',
41	'b' => 'Elizabeth'
42	} ],
43	'215' => [ {
44	'c' => 'ilustr',
45	'a' => 'xix, 202 str',
46	'd' => '23cm'
47	} ],
48	'990' => [
49	'2140',
50	'88',
51	'HAY'
52	],
53	'200' => [ {
54	'e' => 'from Freud and Ferenczi to Michael balint',
55	'a' => 'Controversies in psychoanalytic method',
56	'g' => 'translated by Elizabeth Holder on the basisi of a first draft by Archie Hooton ; with a preface by Daniel N. Stern',
57	'f' => 'by André E. Haynal'
58	} ],
59	'610' => [ 'povijest psihoanalize' ],
60	'994' => [ {
61	'c' => '',
62	'a' => 'PS',
63	'b' => 'MG'
64	} ],
65	'320' => [ 'Kazalo' ],
66	'101' => [ 'ENG' ],
67	'686' => [ '2140' ],
68	'300' => [ 'Prijevod djela: ' ],
69	'999' => [ { 'z' => '900' } ],
70	};
71
72
73	my $lookup = {
74	'00900' => [
75	'lookup vrijednost 1',
76	'lookup vrijednost 2',
77	],
78	};
79
80	print Dumper($rec);
81
82	sub test {
83	print Dumper( @_ ), ("-" x 78), "\n";
84	ok( defined(@_) );
85	}
86
87	sub test_s {
88	my $t = shift \|\| die;
89	$t =~ s/[\n\r\s]+/ /gs;
90	ok(my $v = eval "$t", "eval: $t");
91	ok(! $@, "eval error: $@");
92	}
93
94	{
95	no strict 'subs';
96	use WebPAC::Normalize::Set;
97
98	set_rec( $rec );
99
100	test( join(",", rec2('200','a') ) );
101	test( join(",", rec2('200','a'), rec2('200','b') ) );
102	test( join(" * ",rec1('200'), rec1('201') ) );
103	test( rec1('200') );
104	test( regex( 's/0/o/g', rec1('200') ) );
105	test( grep { /\*/ } regex( 's/0/o/g', rec1('200') ) );
106	test( rec('999') );
107	test( rec('999','z') );
108	test(
109	join_with(" i ",
110	lookup(
111	regex( 's/^/00/',
112	rec2('999','z')
113	)
114	)
115	)
116	);
117
118	test_s(qq{
119	tag('Title',
120	rec('200','a')
121	);
122	});
123	test_s(qq{
124	tag('Who',
125	join_with(" ",
126	rec('702','a'),
127	rec('702','b')
128	)
129	);
130	});
131
132	test_s(qq{
133	display('Publisher',
134	rec('210','c')
135	)
136	});
137
138	test_s(qq{
139	search('Year',
140	regex( 's/[^\\d]+//',
141	rec('210','d')
142	)
143	)
144	});
145
146	ok(my $ds = get_ds(), "get_ds");
147	diag "ds = ", Dumper($ds);
148
149	clean_ds();
150
151	my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" );
152	$n .= "\n1;\n";
153	#diag "normalize code:\n$n\n";
154	test_s( $n );
155
156	ok($ds = get_ds(), "get_ds");
157	diag "ds = ", Dumper($ds);
158	}
159