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	dpavlin	460	#!/usr/bin/perl -w
2
3			use strict;
4
5	dpavlin	461	use Test::More tests => 23;
6	dpavlin	460	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	dpavlin	461	$t =~ s/[\n\r\s]+/ /gs;
90	dpavlin	460	ok(my $v = eval "$t", "eval: $t");
91	dpavlin	461	ok(! $@, "eval error: $@");
92	dpavlin	460	}
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	dpavlin	461	clean_ds();
150
151			my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" );
152			$n .= "\n1;\n";
153	dpavlin	460	#diag "normalize code:\n$n\n";
154	dpavlin	461	test_s( $n );
155
156			ok($ds = get_ds(), "get_ds");
157			diag "ds = ", Dumper($ds);
158	dpavlin	460	}
159