trunk/t/3-normalize-marc.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 7;

BEGIN {
        use_ok( 'WebPAC::Test' );
        use_ok( 'WebPAC::Normalize' );
        use_ok( 'WebPAC::Normalize::MARC' );
}

my $rec = {
        '225' => [{
                'a' => 'a-1-1',
                'i' => 'i-1-1',
                'v' => 'v-1-1',
                'w' => 'w-1-1',
                'h' => 'h-1-1',
                'x' => 'x-1-1',
        },{
                'a' => 'a-2-1',
                'v' => 'v-2-1',
                'i' => 'i-2-1',
        },{
                'a' => 'a-3-1',
                'i' => 'i-3-1',
                'v' => 'v-3-1',
        },{
                'a' => 'a-4-1',
                'v' => 'v-4-1',
                'i' => 'i-4-1',
                'w' => 'w-4-1',
        },{
                'a' => 'a-5-1',
                'v' => 'v-5-1',
                'i' => 'i-5-1',
        },{
                'a' => 'a-6-1',
                'i' => 'i-6-1',
                'w' => 'w-6-1',
        },{
                'a' => 'a-7-1',
        }],
};

ok( _set_ds( $rec ), '_set_ds' );

ok( marc_template(
        from => 225, to => 440,
        subfields_rename => [
                'a' => 'a',
                'x' => 'x',
                'v' => 'v',
                'h' => 'n',
                'i' => 'p',
                'w' => 'v',
        ],
        isis_template => [
                'a ; |v. |i',
                'a. |i ; |w',
        ],
        marc_template => [
                'a',
                'a, |x ; |v. |n, |p ; |v',
                'a ; |v. |p ; |v',
        ],
), 'marc_template' );

ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
diag dump( $marc ) if $debug;

is_deeply( $marc,
        [
                [440, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1", ],
                [440, " ", " ", "a", "a-2-1", "v", "v-2-1", "p", "i-2-1"],
                [440, " ", " ", "a", "a-3-1", "v", "v-3-1", "p", "i-3-1"],
                [440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],
                [440, " ", " ", "a", "a-5-1", "v", "v-5-1", "p", "i-5-1"],
                [440, " ", " ", "a", "a-6-1", "p", "i-6-1", "v", "w-6-1"],
                [440, " ", " ", "a", "a-7-1"],
        ],
'is_deeply');
1	dpavlin	1021	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6	dpavlin	1026	use Test::More tests => 7;
7	dpavlin	1021
8			BEGIN {
9			use_ok( 'WebPAC::Test' );
10			use_ok( 'WebPAC::Normalize' );
11			use_ok( 'WebPAC::Normalize::MARC' );
12			}
13
14			my $rec = {
15			'225' => [{
16			'a' => 'a-1-1',
17			'i' => 'i-1-1',
18			'v' => 'v-1-1',
19			'w' => 'w-1-1',
20			'h' => 'h-1-1',
21			'x' => 'x-1-1',
22			},{
23			'a' => 'a-2-1',
24			'v' => 'v-2-1',
25			'i' => 'i-2-1',
26			},{
27			'a' => 'a-3-1',
28			'i' => 'i-3-1',
29			'v' => 'v-3-1',
30			},{
31			'a' => 'a-4-1',
32			'v' => 'v-4-1',
33			'i' => 'i-4-1',
34			'w' => 'w-4-1',
35			},{
36	dpavlin	1026	'a' => 'a-5-1',
37			'v' => 'v-5-1',
38			'i' => 'i-5-1',
39	dpavlin	1021	},{
40	dpavlin	1026	'a' => 'a-6-1',
41			'i' => 'i-6-1',
42			'w' => 'w-6-1',
43			},{
44			'a' => 'a-7-1',
45	dpavlin	1021	}],
46			};
47
48			ok( _set_ds( $rec ), '_set_ds' );
49
50			ok( marc_template(
51			from => 225, to => 440,
52			subfields_rename => [
53			'a' => 'a',
54			'x' => 'x',
55			'v' => 'v',
56			'h' => 'n',
57			'i' => 'p',
58			'w' => 'v',
59			],
60			isis_template => [
61			'a ; \|v. \|i',
62			'a. \|i ; \|w',
63			],
64			marc_template => [
65			'a',
66			'a, \|x ; \|v. \|n, \|p ; \|v',
67			'a ; \|v. \|p ; \|v',
68			],
69			), 'marc_template' );
70
71			ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
72			diag dump( $marc ) if $debug;
73
74			is_deeply( $marc,
75			[
76			[440, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1", ],
77	dpavlin	1026	[440, " ", " ", "a", "a-2-1", "v", "v-2-1", "p", "i-2-1"],
78			[440, " ", " ", "a", "a-3-1", "v", "v-3-1", "p", "i-3-1"],
79	dpavlin	1021	[440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],
80	dpavlin	1026	[440, " ", " ", "a", "a-5-1", "v", "v-5-1", "p", "i-5-1"],
81			[440, " ", " ", "a", "a-6-1", "p", "i-6-1", "v", "w-6-1"],
82			[440, " ", " ", "a", "a-7-1"],
83	dpavlin	1021	],
84			'is_deeply');