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',
        },{
                'a' => 'a-8-1',
                'v' => 'v-8-1',
        },{
                'v' => 'v-9-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 ;|v',
                'a.|p',
                'a, |x ; |v. |n, |p ; |v',
                'a ; |v. |p ; |v',
                'v',
        ],
), 'marc_template' );

ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
diag " _get_marc_fields = ",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, " ", " ", "v", "v-9-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"],
        [440, " ", " ", "a", "a-8-1 ;", "v", "v-8-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	1029	},{
46			'a' => 'a-8-1',
47			'v' => 'v-8-1',
48			},{
49			'v' => 'v-9-1',
50	dpavlin	1021	}],
51			};
52
53			ok( _set_ds( $rec ), '_set_ds' );
54
55			ok( marc_template(
56			from => 225, to => 440,
57			subfields_rename => [
58			'a' => 'a',
59			'x' => 'x',
60			'v' => 'v',
61			'h' => 'n',
62			'i' => 'p',
63			'w' => 'v',
64			],
65			isis_template => [
66			'a ; \|v. \|i',
67			'a. \|i ; \|w',
68			],
69			marc_template => [
70			'a',
71	dpavlin	1029	'a ;\|v',
72			'a.\|p',
73	dpavlin	1021	'a, \|x ; \|v. \|n, \|p ; \|v',
74			'a ; \|v. \|p ; \|v',
75	dpavlin	1029	'v',
76	dpavlin	1021	],
77			), 'marc_template' );
78
79			ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
80	dpavlin	1031	diag " _get_marc_fields = ",dump( $marc ) if $debug;
81	dpavlin	1021
82	dpavlin	1031	is_deeply( $marc, [
83			[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"],
84			[440, " ", " ", "v", "v-9-1"],
85			[440, " ", " ", "a", "a-2-1 ; ", "v", "v-2-1. ", "p", "i-2-1"],
86			[440, " ", " ", "a", "a-3-1 ; ", "v", "v-3-1. ", "p", "i-3-1"],
87			[440, " ", " ", "a", "a-4-1 ; ", "v", "v-4-1. ", "p", "i-4-1 ; ", "v", "w-4-1"],
88			[440, " ", " ", "a", "a-5-1 ; ", "v", "v-5-1. ", "p", "i-5-1"],
89			[440, " ", " ", "a", "a-6-1. ", "p", "i-6-1 ; ", "v", "w-6-1"],
90			[440, " ", " ", "a", "a-7-1"],
91			[440, " ", " ", "a", "a-8-1 ;", "v", "v-8-1"],
92			], 'is_deeply');