Line # Revision Author
1 19 dpavlin #!/usr/bin/perl -w
2
3 use strict;
4 use blib;
5
6 69 dpavlin use Test::More tests => 181;
7 38 dpavlin use File::Spec;
8 19 dpavlin
9 45 dpavlin BEGIN {
10 use_ok( 'Biblio::Isis' );
11 eval "use Data::Dump";
12
13 if (! $@) {
14 *Dumper = *Data::Dump::dump;
15 } else {
16 use Data::Dumper;
17 }
18 }
19
20
21 58 dpavlin my $debug = length( shift(@ARGV) || '' );
22 19 dpavlin my $isis;
23
24 38 dpavlin my $path_winisis = File::Spec->catfile('data', 'winisis', 'BIBL');
25 my $path_isismarc = File::Spec->catfile('data', 'isismarc', 'BIBL');
26
27 19 dpavlin sub test_data {
28
29 21 dpavlin my $args = {@_};
30
31 36 dpavlin isa_ok ($isis, 'Biblio::Isis');
32 19 dpavlin
33 32 dpavlin cmp_ok($isis->count, '==', 5, "count is 5");
34 19 dpavlin
35 # test .CNT data
36
37 SKIP: {
38 skip "no CNT file for this database", 5 unless $isis->{cnt_file};
39
40 28 dpavlin ok(my $isis_cnt = $isis->read_cnt, "read_cnt");
41 19 dpavlin
42 28 dpavlin cmp_ok(scalar keys %{$isis_cnt}, '==', 2, "returns 2 elements");
43
44 19 dpavlin my $cnt = {
45 '1' => {
46 'N' => 15,
47 'K' => 5,
48 'FMAXPOS' => 8,
49 'POSRX' => 1,
50 'ABNORMAL' => 1,
51 'ORDN' => 5,
52 'LIV' => 0,
53 'ORDF' => 5,
54 'NMAXPOS' => 1
55 },
56 '2' => {
57 'N' => 15,
58 'K' => 5,
59 'FMAXPOS' => 4,
60 'POSRX' => 1,
61 'ABNORMAL' => 0,
62 'ORDN' => 5,
63 'LIV' => 0,
64 'ORDF' => 5,
65 'NMAXPOS' => 1
66 }
67 };
68
69 foreach my $c (keys %{$cnt}) {
70 foreach my $kn (keys %{$cnt->{$c}}) {
71 28 dpavlin cmp_ok($isis_cnt->{$c}->{$kn}, '==', $cnt->{$c}->{$kn}, "cnt $c $kn same");
72 19 dpavlin }
73 }
74 }
75
76 21 dpavlin # test fetch
77
78 my $data = [ {
79 '801' => [ '^aFFZG' ],
80 '702' => [ '^aHolder^bElizabeth' ],
81 '990' => [ '2140', '88', 'HAY' ],
82 '675' => [ '^a159.9' ],
83 '210' => [ '^aNew York^cNew York University press^dcop. 1988' ],
84 }, {
85 '210' => [ '^aNew York^cUniversity press^d1989' ],
86 '700' => [ '^aFrosh^bStephen' ],
87 '990' => [ '2140', '89', 'FRO' ],
88 '200' => [ '^aPsychoanalysis and psychology^eminding the gap^fStephen Frosh' ],
89 '215' => [ '^aIX, 275 str.^d23 cm' ],
90 }, {
91 '210' => [ '^aLondon^cFree Associoation Books^d1992' ],
92 '700' => [ '^aTurkle^bShirlie' ],
93 '990' => [ '2140', '92', 'LAC' ],
94 '200' => [ '^aPsychoanalitic politics^eJacques Lacan and Freud\'s French Revolution^fSherry Turkle' ],
95 '686' => [ '^a2140', '^a2140' ],
96
97 }, {
98 '700' => [ '^aGross^bRichard' ],
99 '200' => [ '^aKey studies in psychology^fRichard D. Gross' ],
100 '210' => [ '^aLondon^cHodder & Stoughton^d1994' ],
101 '10' => [ '^a0-340-59691-0' ],
102 }, {
103 # identifier test
104 '200' => [ '1#^aPsychology^fCamille B. Wortman, Elizabeth F. Loftus, Mary E. Marshal' ],
105 49 dpavlin 225 => ["1#^aMcGraw-Hill series in Psychology"],
106 205 => ["^a4th ed"],
107 21 dpavlin } ];
108
109 32 dpavlin foreach my $mfn (1 .. $isis->count) {
110 45 dpavlin
111 21 dpavlin my $rec;
112 ok($rec = $isis->fetch($mfn), "fetch $mfn");
113
114 54 dpavlin diag "<<<<< rec = ",Dumper( $rec ), "\n>>>>> data = ", Dumper( $data->[$mfn-1] ) if ($debug);
115 46 dpavlin
116 21 dpavlin foreach my $f (keys %{$data->[$mfn-1]}) {
117 my $i = 0;
118 foreach my $v (@{$data->[$mfn-1]->{$f}}) {
119 $v =~ s/^[01# ][01# ]// if ($args->{no_ident});
120 49 dpavlin diag "compare '", $rec->{$f}->[$i], "' eq '$v'" if ($debug);
121 cmp_ok($rec->{$f}->[$i], 'eq', $v, "MFN $mfn field: $f offset: $i");
122 21 dpavlin $i++;
123 }
124 }
125 54 dpavlin
126 cmp_ok($isis->mfn, '==', $mfn, 'mfn');
127
128 21 dpavlin }
129
130 22 dpavlin # test to_ascii
131
132 SKIP: {
133 eval "use Digest::MD5 qw(md5_hex)";
134
135 skip "no Digest::MD5 module", 5 if ($@);
136
137 32 dpavlin foreach my $mfn (1 .. $isis->count) {
138 22 dpavlin my $md5 = md5_hex($isis->to_ascii($mfn));
139 25 dpavlin cmp_ok($md5, 'eq', $args->{md5_ascii}[$mfn - 1], "md5 $mfn");
140 22 dpavlin }
141 }
142
143 19 dpavlin }
144
145 36 dpavlin $isis = Biblio::Isis->new (
146 38 dpavlin isisdb => $path_winisis,
147 25 dpavlin include_deleted => 1,
148 54 dpavlin debug => $debug > 1 ? ($debug - 1) : 0,
149 19 dpavlin );
150
151 51 dpavlin diag "new Biblio::Isis = ", Dumper($isis) if ($debug);
152 19 dpavlin
153 22 dpavlin test_data(
154 no_ident => 1,
155 md5_ascii => [ qw(
156 a369eff702307ba12eb81656ee0587fe
157 4fb38537a94f3f5954e40d9536b942b0
158 25 dpavlin 579a7c6901c654bdeac10547a98e5b71
159 22 dpavlin 7d2adf1675c83283aa9b82bf343e3d85
160 49 dpavlin 4cc1f798bbcf36862f7aa78c3410801a
161 22 dpavlin ) ],
162 );
163 19 dpavlin
164 36 dpavlin $isis = Biblio::Isis->new (
165 38 dpavlin isisdb => $path_isismarc,
166 25 dpavlin include_deleted => 1,
167 19 dpavlin );
168
169 22 dpavlin test_data(
170 md5_ascii => [ qw(
171 f5587d9bcaa54257a98fe27d3c17a0b6
172 3be9a049f686f2a36af93a856dcae0f2
173 3961be5e3ba8fb274c89c08d18df4bcc
174 5f73ec00d08af044a2c4105f7d889e24
175 843b9ebccf16a498fba623c78f21b6c0
176 ) ],
177 );
178 25 dpavlin
179 # check logically deleted
180
181 36 dpavlin $isis = Biblio::Isis->new (
182 38 dpavlin isisdb => $path_winisis,
183 25 dpavlin include_deleted => 1,
184 );
185
186 ok($isis->fetch(3), "deleted found");
187 cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
188 54 dpavlin ok($isis->{record}, "record exists");
189 25 dpavlin
190 55 dpavlin diag "record = ",Dumper($isis->{record}) if ($debug);
191 54 dpavlin
192 36 dpavlin $isis = Biblio::Isis->new (
193 38 dpavlin isisdb => $path_winisis,
194 33 dpavlin debug => $debug,
195 64 dpavlin hash_filter => sub {
196 my ($l,$nr) = @_;
197 ok(grep(/$nr/, keys %{ $isis->{record} }), "hash_filter $nr in record");
198 ok(grep(/\Q$l\E/, @{ $isis->{record}->{$nr} }), "hash_filter line $l found");
199 return($l);
200 },
201 25 dpavlin );
202
203 ok(! $isis->fetch(3), "deleted not found");
204 cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
205 54 dpavlin ok(! $isis->{record}, 'no record');
206 25 dpavlin
207 54 dpavlin $isis->{record} = {
208 900 => [ '^a900a^b900b^c900c' ],
209 901 => [
210 '^a901a-1^b901b-1^c901c-1',
211 '^a901a-2^b901b-2',
212 '^a901a-3',
213 ],
214 902 => [
215 '^aa1^aa2^aa3^bb1^aa4^bb2^cc1^aa5',
216 ],
217 };
218 $isis->{current_mfn} = 42;
219
220 55 dpavlin ok(my $hash = $isis->to_hash( $isis->mfn ), 'to_hash');
221 diag "to_hash = ",Dumper( $hash ) if ($debug);
222 is_deeply( $hash, {
223 "000" => [42],
224 900 => [{ a => "900a", b => "900b", c => "900c" }],
225 901 => [
226 { a => "901a-1", b => "901b-1", c => "901c-1" },
227 { a => "901a-2", b => "901b-2" },
228 { a => "901a-3" },
229 ],
230 902 => [
231 { a => ["a1", "a2", "a3", "a4", "a5"], b => ["b1", "b2"], c => "c1" },
232 ],
233 }, 'hash is_deeply');
234
235 ok(my $ascii = $isis->to_ascii( $isis->mfn ), 'to_ascii');
236 diag "to_ascii = \n", $ascii if ($debug);
237 cmp_ok($ascii, 'eq', <<'__END_OF_ASCII__', 'to_ascii output');
238 0 42
239 900 ^a900a^b900b^c900c
240 901 ^a901a-1^b901b-1^c901c-1
241 901 ^a901a-2^b901b-2
242 901 ^a901a-3
243 902 ^aa1^aa2^aa3^bb1^aa4^bb2^cc1^aa5
244 __END_OF_ASCII__
245
246 56 dpavlin ok(my $hash2 = $isis->to_hash({ mfn => $isis->mfn }), 'to_hash(mfn)');
247 is_deeply( $hash2, $hash, 'same hash' );
248 57 dpavlin
249 66 dpavlin # test to_hash( include_subfields )
250 57 dpavlin ok($hash = $isis->to_hash({ mfn => $isis->mfn, include_subfields => 1 }), 'to_hash(mfn,include_subfields)');
251 diag "to_hash = ",Dumper( $hash ) if ($debug);
252 is_deeply( $hash, {
253 "000" => [42],
254 900 => [
255 { a => "900a", b => "900b", c => "900c", subfields => ["a", 0, "b", 0, "c", 0] },
256 ],
257 901 => [
258 { a => "901a-1", b => "901b-1", c => "901c-1", subfields => ["a", 0, "b", 0, "c", 0] },
259 { a => "901a-2", b => "901b-2", subfields => ["a", 0, "b", 0] },
260 { a => "901a-3", subfields => ["a", 0] },
261 ],
262 902 => [
263 { a => ["a1", "a2", "a3", "a4", "a5"], b => ["b1", "b2"], c => "c1",
264 subfields => ["a", 0, "a", 1, "a", 2, "b", 0, "a", 3, "b", 1, "c", 0, "a", 4],
265 },
266 ],
267 }, 'hash is_deeply');
268
269 66 dpavlin # test to_hash( join_subfields_with )
270 58 dpavlin ok($hash = $isis->to_hash({ mfn => $isis->mfn, join_subfields_with => ' ; ' }), 'to_hash(mfn,join_subfields_with)');
271 diag "to_hash = ",Dumper( $hash ) if ($debug);
272 is_deeply( $hash, {
273 "000" => [42],
274 900 => [{ a => "900a", b => "900b", c => "900c" }],
275 901 => [
276 { a => "901a-1", b => "901b-1", c => "901c-1" },
277 { a => "901a-2", b => "901b-2" },
278 { a => "901a-3" },
279 ],
280 902 => [{ a => "a1 ; a2 ; a3 ; a4 ; a5", b => "b1 ; b2", c => "c1" }],
281 }, 'hash is_deeply');
282 61 dpavlin
283 69 dpavlin my $isis2;
284 ok($isis2 = Biblio::Isis->new (
285 isisdb => $path_winisis,
286 join_subfields_with => ' ; ',
287 ),"new( join_subfields_with )");
288 ok($isis2->{record} = $isis->{record}, "copy record");
289 ok($isis2->{current_mfn} = $isis->{current_mfn}, "copy current_mfn");
290
291 ok($hash = $isis2->to_hash( $isis->mfn ), 'to_hash(mfn)');
292 diag "to_hash = ",Dumper( $hash ) if ($debug);
293 is_deeply( $hash, {
294 "000" => [42],
295 900 => [{ a => "900a", b => "900b", c => "900c" }],
296 901 => [
297 { a => "901a-1", b => "901b-1", c => "901c-1" },
298 { a => "901a-2", b => "901b-2" },
299 { a => "901a-3" },
300 ],
301 902 => [{ a => "a1 ; a2 ; a3 ; a4 ; a5", b => "b1 ; b2", c => "c1" }],
302 }, 'hash is_deeply');
303
304 66 dpavlin # test to_hash( hash_filter )
305 ok($hash = $isis->to_hash({ mfn => $isis->mfn, hash_filter => sub {
306 my ($l,$f) = @_;
307 if ($f == 900) {
308 $l =~ s/0/o/g;
309 } elsif ($f == 901) {
310 $l =~ s/1/i/g;
311 } elsif ($f == 902) {
312 $l =~ s/2/s/g;
313 }
314 return $l;
315 }}), 'to_hash(mfn,hash_filter)');
316 diag "to_hash = ",Dumper( $hash ) if ($debug);
317 is_deeply( $hash, {
318 "000" => [42],
319 900 => [{ a => "9ooa", b => "9oob", c => "9ooc" }],
320 901 => [
321 { a => "90ia-i", b => "90ib-i", c => "90ic-i" },
322 { a => "90ia-2", b => "90ib-2" },
323 { a => "90ia-3" },
324 ],
325 902 => [{ a => ["a1", "as", "a3", "a4", "a5"], b => ["b1", "bs"], c => "c1" }],
326 }, 'hash is_deeply');
327