trunk/t/3-normalize-marc.t

#!/usr/bin/perl -w

use strict;
use lib 'lib';

use Test::More tests => 330;

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

_debug( $debug - 1 ) if $debug > 1;

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',
        },{
                'v' => '0',
        }],
};

sub test_marc_template {
        my $rec = shift;

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

        ok( marc_indicators( 440, '0', '1' ), 'marc_indicators' );

        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::MARC::_get_marc_fields(), "_get_marc_fields");
        diag " _get_marc_fields = ",dump( $marc ) if $debug;

        ok( marc_indicators( 440, 'x', 'y' ), 'marc_indicators' );

        return $marc;
}

my $marc_out = [
        [440, "0", "1", "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, "0", "1", "a", "a-2-1 ; ", "v", "v-2-1. ", "p", "i-2-1"],
        [440, "0", "1", "a", "a-3-1 ; ", "v", "v-3-1. ", "p", "i-3-1"],
        [440, "0", "1", "a", "a-4-1 ; ", "v", "v-4-1. ", "p", "i-4-1 ; ", "v", "w-4-1"],
        [440, "0", "1", "a", "a-5-1 ; ", "v", "v-5-1. ", "p", "i-5-1"],
        [440, "0", "1", "a", "a-6-1. ", "p", "i-6-1 ; ", "v", "w-6-1"],
        [440, "0", "1", "a", "a-7-1"],
        [440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"],
        [440, "0", "1", "v", "v-9-1"],
        [440, 0, 1, "v", 0],
];

is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');

my $max_occ = $#{ $rec->{225} };

foreach my $from ( 0 .. $max_occ - 1 ) {
        foreach my $to ( $from + 1 .. $max_occ ) {
                my @orig_rec = @{ $rec->{225} };
                my $new_rec = {
                        225 => [ splice( @orig_rec, $from, $to ) ],
                };
                diag "$from-$to new_rec = ",dump( $new_rec ) if $debug;

                my @expect = @$marc_out;
                my $expect_marc = [ splice( @expect, $from, $to ) ];
                diag "$from-$to expect_marc = ",dump( $expect_marc ) if $debug;

                is_deeply( test_marc_template($new_rec), $expect_marc, "$from-$to is_deeply");

        }
}

sub test_marc_clone {
        my ( $rec, $expect ) = @_;

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

        ok( ! marc_clone, 'marc_clone' );

        ok(my $marc = WebPAC::Normalize::MARC::_get_marc_fields(), "_get_marc_fields");
#       diag "rec = ",dump( $rec );
#       diag "marc = ",dump( $marc );
#       diag "expect = ",dump( $marc );

        is_deeply( $marc, $expect, 'marc_clone same' );

}

my $rec = {
  "000"  => [2, 2],
  "001"  => ["ocm00734950 "],
  "003"  => ["OCoLC"],
  "005"  => ["19830824185243.0"],
  "008"  => ["731105s1962    nyua     a    00000 eng  "],
  "010"  => [
              { a => "   62015770 ", i1 => " ", i2 => " ", subfields => ["a", 0] },
            ],
  "040"  => [
              {
                a => "DLC",
                c => "BOS",
                d => "TML",
                i1 => " ",
                i2 => " ",
                subfields => ["a", 0, "c", 0, "d", 0, "d", 1, "d", 2],
              },
            ],
  "041"  => [{ a => "engfre", i1 => 1, i2 => " ", subfields => ["a", 0] }],
  "049"  => [{ a => "TMLM", i1 => " ", i2 => " ", subfields => ["a", 0] }],
  "050"  => [
              {
                a => "RC340",
                b => ".P513 1806a",
                i1 => 0,
                i2 => " ",
                subfields => ["a", 0, "b", 0],
              },
            ],
  "096"  => [
              { a => "WM 11 P653t 1962", i1 => " ", i2 => " ", subfields => ["a", 0] },
            ],
  100    => [
              {
                a => "Pinel, Philippe,",
                d => "1745-1826.",
                i1 => 1,
                i2 => 0,
                subfields => ["a", 0, "d", 0],
              },
            ],
  245    => [
              {
                1 => 2,
                a => "A treatise on insanity /",
                c => "translated from the French by D. D. Davis, with an introd. by Paul F. Cranefield.",
                subfields => [1, 0, "a", 0, "c", 0],
              },
            ],
  260    => [
              {
                a => "New York :",
                b => "Published under the auspices of the Library of the New York Academy of Medicine by Hafner Pub. Co.,",
                c => "1962.",
                i1 => 0,
                i2 => " ",
                subfields => ["a", 0, "b", 0, "c", 0],
              },
            ],
  300    => [
              {
                a => "lv, 288 p. :",
                b => "ill. ;",
                c => "21 cm.",
                i1 => " ",
                i2 => " ",
                subfields => ["a", 0, "b", 0, "c", 0],
              },
            ],
  440    => [
              {
                a => "History of medicine ;",
                i1 => " ",
                i2 => 0,
                subfields => ["a", 0, "v", 0],
                v => "no. 14",
              },
            ],
  500    => [
              {
                a => "\"Facsimile of the London 1806 edition.\"",
                i1 => " ",
                i2 => " ",
                subfields => ["a", 0],
              },
              {
                a => "Translation of: Traite medico-philosophique sur l'alienation mentale.",
                i1 => " ",
                i2 => " ",
                subfields => ["a", 0],
              },
            ],
  590    => [
              {
                a => "L21942,WM ,purc,  10.00,rtr,1-78",
                i1 => " ",
                i2 => " ",
                subfields => ["a", 0],
              },
            ],
  650    => [
              { " " => 2, a => "Psychiatry", subfields => [" ", 0, "a", 0] },
              { " " => 2, a => "Mental Disorders", subfields => [" ", 0, "a", 0] },
            ],
  852    => [
              {
                8 => ".1",
                9 => "`;11623`07/02/1991 08:09````````````````B^61^R04CZ4^^^^1^101^1^1000^^`1^11623^54969,29361^^`2^0^0^2^0^1^0^4`",
                b => "LU GENCOL",
                d => "TWO WEEKS",
                h => "WM 11 P653t 1962",
                i => 43,
                i1 => " ",
                i2 => " ",
                o => "available",
                p => "R04CZ4",
                subfields => [8, 0, "b", 0, "h", 0, "t", 0, "p", 0, "i", 0, "d", 0, "o", 0, 9, 0],
                t => 1,
              },
            ],
  911    => [{ a => 61, i1 => " ", i2 => " ", subfields => ["a", 0] }],
  979    => [
              {
                a => "USERS",
                b => 19831011,
                c => "TAPE",
                d => "ARCH",
                i1 => " ",
                i2 => " ",
                subfields => ["a", 0, "b", 0, "c", 0, "d", 0],
              },
            ],
  leader => ["01237cam  2200301Ii 4500"],
};

test_marc_clone( $rec, [
   [900, " ", " ", "a", "900a", "b", "900b"],
   [901, " ", " ", "c", "901c"],
] );

1	#!/usr/bin/perl -w
2
3	use strict;
4	use lib 'lib';
5
6	use Test::More tests => 330;
7
8	BEGIN {
9	use_ok( 'WebPAC::Test' );
10	use_ok( 'WebPAC::Normalize' );
11	use_ok( 'WebPAC::Normalize::MARC' );
12	}
13
14	_debug( $debug - 1 ) if $debug > 1;
15
16	my $rec = {
17	'225' => [{
18	'a' => 'a-1-1',
19	'i' => 'i-1-1',
20	'v' => 'v-1-1',
21	'w' => 'w-1-1',
22	'h' => 'h-1-1',
23	'x' => 'x-1-1',
24	},{
25	'a' => 'a-2-1',
26	'v' => 'v-2-1',
27	'i' => 'i-2-1',
28	},{
29	'a' => 'a-3-1',
30	'i' => 'i-3-1',
31	'v' => 'v-3-1',
32	},{
33	'a' => 'a-4-1',
34	'v' => 'v-4-1',
35	'i' => 'i-4-1',
36	'w' => 'w-4-1',
37	},{
38	'a' => 'a-5-1',
39	'v' => 'v-5-1',
40	'i' => 'i-5-1',
41	},{
42	'a' => 'a-6-1',
43	'i' => 'i-6-1',
44	'w' => 'w-6-1',
45	},{
46	'a' => 'a-7-1',
47	},{
48	'a' => 'a-8-1',
49	'v' => 'v-8-1',
50	},{
51	'v' => 'v-9-1',
52	},{
53	'v' => '0',
54	}],
55	};
56
57	sub test_marc_template {
58	my $rec = shift;
59
60	ok( _clean_ds(), '_clean_ds' );
61	ok( _set_ds( $rec ), '_set_ds' );
62
63	ok( marc_indicators( 440, '0', '1' ), 'marc_indicators' );
64
65	ok( marc_template(
66	from => 225, to => 440,
67	subfields_rename => [
68	'a' => 'a',
69	'x' => 'x',
70	'v' => 'v',
71	'h' => 'n',
72	'i' => 'p',
73	'w' => 'v',
74	],
75	isis_template => [
76	'a ; \|v. \|i',
77	'a. \|i ; \|w',
78	],
79	marc_template => [
80	'a',
81	'a ;\|v',
82	'a.\|p',
83	'a, \|x ; \|v. \|n, \|p ; \|v',
84	'a ; \|v. \|p ; \|v',
85	'v',
86	],
87	), 'marc_template' );
88
89	ok(my $marc = WebPAC::Normalize::MARC::_get_marc_fields(), "_get_marc_fields");
90	diag " _get_marc_fields = ",dump( $marc ) if $debug;
91
92	ok( marc_indicators( 440, 'x', 'y' ), 'marc_indicators' );
93
94	return $marc;
95	}
96
97	my $marc_out = [
98	[440, "0", "1", "a", "a-1-1, ", "x", "x-1-1 ; ", "v", "v-1-1. ", "n", "h-1-1, ", "p", "i-1-1 ; ", "v", "w-1-1"],
99	[440, "0", "1", "a", "a-2-1 ; ", "v", "v-2-1. ", "p", "i-2-1"],
100	[440, "0", "1", "a", "a-3-1 ; ", "v", "v-3-1. ", "p", "i-3-1"],
101	[440, "0", "1", "a", "a-4-1 ; ", "v", "v-4-1. ", "p", "i-4-1 ; ", "v", "w-4-1"],
102	[440, "0", "1", "a", "a-5-1 ; ", "v", "v-5-1. ", "p", "i-5-1"],
103	[440, "0", "1", "a", "a-6-1. ", "p", "i-6-1 ; ", "v", "w-6-1"],
104	[440, "0", "1", "a", "a-7-1"],
105	[440, "0", "1", "a", "a-8-1 ;", "v", "v-8-1"],
106	[440, "0", "1", "v", "v-9-1"],
107	[440, 0, 1, "v", 0],
108	];
109
110	is_deeply( test_marc_template($rec), $marc_out , 'is_deeply');
111
112	my $max_occ = $#{ $rec->{225} };
113
114	foreach my $from ( 0 .. $max_occ - 1 ) {
115	foreach my $to ( $from + 1 .. $max_occ ) {
116	my @orig_rec = @{ $rec->{225} };
117	my $new_rec = {
118	225 => [ splice( @orig_rec, $from, $to ) ],
119	};
120	diag "$from-$to new_rec = ",dump( $new_rec ) if $debug;
121
122	my @expect = @$marc_out;
123	my $expect_marc = [ splice( @expect, $from, $to ) ];
124	diag "$from-$to expect_marc = ",dump( $expect_marc ) if $debug;
125
126	is_deeply( test_marc_template($new_rec), $expect_marc, "$from-$to is_deeply");
127
128	}
129	}
130
131	sub test_marc_clone {
132	my ( $rec, $expect ) = @_;
133
134	ok( _clean_ds(), '_clean_ds' );
135	ok( _set_ds( $rec ), '_set_ds' );
136
137	ok( ! marc_clone, 'marc_clone' );
138
139	ok(my $marc = WebPAC::Normalize::MARC::_get_marc_fields(), "_get_marc_fields");
140	# diag "rec = ",dump( $rec );
141	# diag "marc = ",dump( $marc );
142	# diag "expect = ",dump( $marc );
143
144	is_deeply( $marc, $expect, 'marc_clone same' );
145
146	}
147
148	my $rec = {
149	"000" => [2, 2],
150	"001" => ["ocm00734950 "],
151	"003" => ["OCoLC"],
152	"005" => ["19830824185243.0"],
153	"008" => ["731105s1962 nyua a 00000 eng "],
154	"010" => [
155	{ a => " 62015770 ", i1 => " ", i2 => " ", subfields => ["a", 0] },
156	],
157	"040" => [
158	{
159	a => "DLC",
160	c => "BOS",
161	d => "TML",
162	i1 => " ",
163	i2 => " ",
164	subfields => ["a", 0, "c", 0, "d", 0, "d", 1, "d", 2],
165	},
166	],
167	"041" => [{ a => "engfre", i1 => 1, i2 => " ", subfields => ["a", 0] }],
168	"049" => [{ a => "TMLM", i1 => " ", i2 => " ", subfields => ["a", 0] }],
169	"050" => [
170	{
171	a => "RC340",
172	b => ".P513 1806a",
173	i1 => 0,
174	i2 => " ",
175	subfields => ["a", 0, "b", 0],
176	},
177	],
178	"096" => [
179	{ a => "WM 11 P653t 1962", i1 => " ", i2 => " ", subfields => ["a", 0] },
180	],
181	100 => [
182	{
183	a => "Pinel, Philippe,",
184	d => "1745-1826.",
185	i1 => 1,
186	i2 => 0,
187	subfields => ["a", 0, "d", 0],
188	},
189	],
190	245 => [
191	{
192	1 => 2,
193	a => "A treatise on insanity /",
194	c => "translated from the French by D. D. Davis, with an introd. by Paul F. Cranefield.",
195	subfields => [1, 0, "a", 0, "c", 0],
196	},
197	],
198	260 => [
199	{
200	a => "New York :",
201	b => "Published under the auspices of the Library of the New York Academy of Medicine by Hafner Pub. Co.,",
202	c => "1962.",
203	i1 => 0,
204	i2 => " ",
205	subfields => ["a", 0, "b", 0, "c", 0],
206	},
207	],
208	300 => [
209	{
210	a => "lv, 288 p. :",
211	b => "ill. ;",
212	c => "21 cm.",
213	i1 => " ",
214	i2 => " ",
215	subfields => ["a", 0, "b", 0, "c", 0],
216	},
217	],
218	440 => [
219	{
220	a => "History of medicine ;",
221	i1 => " ",
222	i2 => 0,
223	subfields => ["a", 0, "v", 0],
224	v => "no. 14",
225	},
226	],
227	500 => [
228	{
229	a => "\"Facsimile of the London 1806 edition.\"",
230	i1 => " ",
231	i2 => " ",
232	subfields => ["a", 0],
233	},
234	{
235	a => "Translation of: Traite medico-philosophique sur l'alienation mentale.",
236	i1 => " ",
237	i2 => " ",
238	subfields => ["a", 0],
239	},
240	],
241	590 => [
242	{
243	a => "L21942,WM ,purc, 10.00,rtr,1-78",
244	i1 => " ",
245	i2 => " ",
246	subfields => ["a", 0],
247	},
248	],
249	650 => [
250	{ " " => 2, a => "Psychiatry", subfields => [" ", 0, "a", 0] },
251	{ " " => 2, a => "Mental Disorders", subfields => [" ", 0, "a", 0] },
252	],
253	852 => [
254	{
255	8 => ".1",
256	9 => "`;11623`07/02/1991 08:09````````````````B^61^R04CZ4^^^^1^101^1^1000^^`1^11623^54969,29361^^`2^0^0^2^0^1^0^4`",
257	b => "LU GENCOL",
258	d => "TWO WEEKS",
259	h => "WM 11 P653t 1962",
260	i => 43,
261	i1 => " ",
262	i2 => " ",
263	o => "available",
264	p => "R04CZ4",
265	subfields => [8, 0, "b", 0, "h", 0, "t", 0, "p", 0, "i", 0, "d", 0, "o", 0, 9, 0],
266	t => 1,
267	},
268	],
269	911 => [{ a => 61, i1 => " ", i2 => " ", subfields => ["a", 0] }],
270	979 => [
271	{
272	a => "USERS",
273	b => 19831011,
274	c => "TAPE",
275	d => "ARCH",
276	i1 => " ",
277	i2 => " ",
278	subfields => ["a", 0, "b", 0, "c", 0, "d", 0],
279	},
280	],
281	leader => ["01237cam 2200301Ii 4500"],
282	};
283
284	test_marc_clone( $rec, [
285	[900, " ", " ", "a", "900a", "b", "900b"],
286	[901, " ", " ", "c", "901c"],
287	] );
288