3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use Test
::More tests
=> 12;
24 use Koha
::Acquisition
::Orders
;
26 use t
::lib
::TestBuilder
;
30 use_ok
('Koha::Biblio');
31 use_ok
('Koha::Biblios');
34 my $schema = Koha
::Database
->new->schema;
35 my $builder = t
::lib
::TestBuilder
->new;
37 subtest
'metadata() tests' => sub {
41 $schema->storage->txn_begin;
43 my $title = 'Oranges and Peaches';
45 my $record = MARC
::Record
->new();
46 my $field = MARC
::Field
->new('245','','','a' => $title);
47 $record->append_fields( $field );
48 my ($biblionumber) = C4
::Biblio
::AddBiblio
($record, '');
50 my $biblio = Koha
::Biblios
->find( $biblionumber );
51 is
( ref $biblio, 'Koha::Biblio', 'Found a Koha::Biblio object' );
53 my $metadata = $biblio->metadata;
54 is
( ref $metadata, 'Koha::Biblio::Metadata', 'Method metadata() returned a Koha::Biblio::Metadata object' );
56 my $record2 = $metadata->record;
57 is
( ref $record2, 'MARC::Record', 'Method record() returned a MARC::Record object' );
59 is
( $record2->field('245')->subfield("a"), $title, 'Title in 245$a matches title from original record object' );
61 $schema->storage->txn_rollback;
64 subtest
'hidden_in_opac() tests' => sub {
68 $schema->storage->txn_begin;
70 my $biblio = $builder->build_sample_biblio();
72 ok
( !$biblio->hidden_in_opac({ rules
=> { withdrawn
=> [ 2 ] } }), 'Biblio not hidden if there is no item attached' );
74 my $item_1 = $builder->build_sample_item({ biblionumber
=> $biblio->biblionumber });
75 my $item_2 = $builder->build_sample_item({ biblionumber
=> $biblio->biblionumber });
77 $item_1->withdrawn( 1 )->store->discard_changes;
78 $item_2->withdrawn( 1 )->store->discard_changes;
80 ok
( !$biblio->hidden_in_opac({ rules
=> { withdrawn
=> [ 2 ] } }), 'Biblio not hidden' );
82 $item_2->withdrawn( 2 )->store->discard_changes;
83 $biblio->discard_changes; # refresh
85 ok
( !$biblio->hidden_in_opac({ rules
=> { withdrawn
=> [ 2 ] } }), 'Biblio not hidden' );
87 $item_1->withdrawn( 2 )->store->discard_changes;
88 $biblio->discard_changes; # refresh
90 ok
( $biblio->hidden_in_opac({ rules
=> { withdrawn
=> [ 2 ] } }), 'Biblio hidden' );
92 $schema->storage->txn_rollback;
95 subtest
'items() tests' => sub {
99 $schema->storage->txn_begin;
101 my $biblio = $builder->build_sample_biblio();
103 is
( $biblio->items->count, 0, 'No items, count is 0' );
105 my $item_1 = $builder->build_sample_item({ biblionumber
=> $biblio->biblionumber });
106 my $item_2 = $builder->build_sample_item({ biblionumber
=> $biblio->biblionumber });
108 my $items = $biblio->items;
109 is
( ref($items), 'Koha::Items', 'Returns a Koha::Items resultset' );
110 is
( $items->count, 2, 'Two items in resultset' );
112 my @items = $biblio->items->as_list;
113 is
( scalar @items, 2, 'Same result, but in list context' );
115 $schema->storage->txn_rollback;
119 subtest
'get_coins and get_openurl' => sub {
123 $schema->storage->txn_begin;
125 my $builder = t
::lib
::TestBuilder
->new;
126 my $biblio = $builder->build_sample_biblio({
133 'ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&rft.genre=book&rft.btitle=Title%201&rft.au=Author%201',
134 'GetCOinsBiblio returned right metadata'
137 t
::lib
::Mocks
::mock_preference
("OpenURLResolverURL", "https://koha.example.com/");
139 $biblio->get_openurl,
140 'https://koha.example.com/?ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&rft.genre=book&rft.btitle=Title%201&rft.au=Author%201',
141 'Koha::Biblio->get_openurl returned right URL'
144 t
::lib
::Mocks
::mock_preference
("OpenURLResolverURL", "https://koha.example.com/?client_id=ci1");
146 $biblio->get_openurl,
147 'https://koha.example.com/?client_id=ci1&ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&rft.genre=book&rft.btitle=Title%201&rft.au=Author%201',
148 'Koha::Biblio->get_openurl returned right URL'
151 $schema->storage->txn_rollback;
154 subtest
'is_serial() tests' => sub {
158 $schema->storage->txn_begin;
160 my $biblio = $builder->build_sample_biblio();
162 $biblio->serial( 1 )->store->discard_changes;
163 ok
( $biblio->is_serial, 'Bibliographic record is serial' );
165 $biblio->serial( 0 )->store->discard_changes;
166 ok
( !$biblio->is_serial, 'Bibliographic record is not serial' );
168 my $record = $biblio->metadata->record;
169 $record->leader('00142nas a22 7a 4500');
170 ModBiblio
($record, $biblio->biblionumber );
171 $biblio = Koha
::Biblios
->find($biblio->biblionumber);
173 ok
( $biblio->is_serial, 'Bibliographic record is serial' );
175 $schema->storage->txn_rollback;
178 subtest
'pickup_locations' => sub {
181 $schema->storage->txn_begin;
183 my $dbh = C4
::Context
->dbh;
186 Koha
::Holds
->search->delete;
187 Koha
::Patrons
->search->delete;
188 Koha
::Items
->search->delete;
189 Koha
::Libraries
->search->delete;
190 Koha
::CirculationRules
->search->delete;
191 $dbh->do('DELETE FROM issues');
192 Koha
::CirculationRules
->set_rules(
194 categorycode
=> undef,
198 reservesallowed
=> 25,
203 my $root1 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { ft_local_hold_group
=> 1 } } );
204 my $root2 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { ft_local_hold_group
=> 1 } } );
205 my $root3 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { ft_local_hold_group
=> 1 } } );
207 my $library1 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 1 } } );
208 my $library2 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 1 } } );
209 my $library3 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 0 } } );
210 my $library4 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 1 } } );
211 my $library5 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 1 } } );
212 my $library6 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 1 } } );
213 my $library7 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 1 } } );
214 my $library8 = $builder->build_object( { class => 'Koha::Libraries', value
=> { pickup_location
=> 0 } } );
216 Koha
::CirculationRules
->set_rules(
218 branchcode
=> $library1->branchcode,
222 hold_fulfillment_policy
=> 'any',
223 returnbranch
=> 'any'
228 Koha
::CirculationRules
->set_rules(
230 branchcode
=> $library2->branchcode,
234 hold_fulfillment_policy
=> 'holdgroup',
235 returnbranch
=> 'any'
240 Koha
::CirculationRules
->set_rules(
242 branchcode
=> $library3->branchcode,
246 hold_fulfillment_policy
=> 'patrongroup',
247 returnbranch
=> 'any'
252 Koha
::CirculationRules
->set_rules(
254 branchcode
=> $library4->branchcode,
258 hold_fulfillment_policy
=> 'holdingbranch',
259 returnbranch
=> 'any'
264 Koha
::CirculationRules
->set_rules(
266 branchcode
=> $library5->branchcode,
270 hold_fulfillment_policy
=> 'homebranch',
271 returnbranch
=> 'any'
276 Koha
::CirculationRules
->set_rules(
278 branchcode
=> $library6->branchcode,
282 hold_fulfillment_policy
=> 'holdgroup',
283 returnbranch
=> 'any'
288 Koha
::CirculationRules
->set_rules(
290 branchcode
=> $library7->branchcode,
294 hold_fulfillment_policy
=> 'holdingbranch',
295 returnbranch
=> 'any'
301 Koha
::CirculationRules
->set_rules(
303 branchcode
=> $library8->branchcode,
307 hold_fulfillment_policy
=> 'patrongroup',
308 returnbranch
=> 'any'
313 my $group1_1 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root1->id, branchcode
=> $library1->branchcode } } );
314 my $group1_2 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root1->id, branchcode
=> $library2->branchcode } } );
316 my $group2_3 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root2->id, branchcode
=> $library3->branchcode } } );
317 my $group2_4 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root2->id, branchcode
=> $library4->branchcode } } );
319 my $group3_5 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root3->id, branchcode
=> $library5->branchcode } } );
320 my $group3_6 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root3->id, branchcode
=> $library6->branchcode } } );
321 my $group3_7 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root3->id, branchcode
=> $library7->branchcode } } );
322 my $group3_8 = $builder->build_object( { class => 'Koha::Library::Groups', value
=> { parent_id
=> $root3->id, branchcode
=> $library8->branchcode } } );
324 my $biblio1 = $builder->build_object( { class => 'Koha::Biblios', value
=> {title
=> '1'} } );
325 my $biblioitem1 = $builder->build_object( { class => 'Koha::Biblioitems', value
=> { biblionumber
=> $biblio1->biblionumber } } );
326 my $biblio2 = $builder->build_object( { class => 'Koha::Biblios', value
=> {title
=> '2'} } );
327 my $biblioitem2 = $builder->build_object( { class => 'Koha::Biblioitems', value
=> { biblionumber
=> $biblio2->biblionumber } } );
329 my $item1_1 = Koha
::Item
->new({
330 biblionumber
=> $biblio1->biblionumber,
331 biblioitemnumber
=> $biblioitem1->biblioitemnumber,
332 homebranch
=> $library1->branchcode,
333 holdingbranch
=> $library2->branchcode,
335 barcode
=> "item11barcode",
338 my $item1_3 = Koha
::Item
->new({
339 biblionumber
=> $biblio1->biblionumber,
340 biblioitemnumber
=> $biblioitem1->biblioitemnumber,
341 homebranch
=> $library3->branchcode,
342 holdingbranch
=> $library4->branchcode,
344 barcode
=> "item13barcode",
347 my $item1_7 = Koha
::Item
->new({
348 biblionumber
=> $biblio1->biblionumber,
349 biblioitemnumber
=> $biblioitem1->biblioitemnumber,
350 homebranch
=> $library7->branchcode,
351 holdingbranch
=> $library4->branchcode,
353 barcode
=> "item17barcode",
356 my $item2_2 = Koha
::Item
->new({
357 biblionumber
=> $biblio2->biblionumber,
358 biblioitemnumber
=> $biblioitem2->biblioitemnumber,
359 homebranch
=> $library2->branchcode,
360 holdingbranch
=> $library1->branchcode,
362 barcode
=> "item22barcode",
365 my $item2_4 = Koha
::Item
->new({
366 biblionumber
=> $biblio2->biblionumber,
367 biblioitemnumber
=> $biblioitem2->biblioitemnumber,
368 homebranch
=> $library4->branchcode,
369 holdingbranch
=> $library3->branchcode,
371 barcode
=> "item23barcode",
374 my $item2_6 = Koha
::Item
->new({
375 biblionumber
=> $biblio2->biblionumber,
376 biblioitemnumber
=> $biblioitem2->biblioitemnumber,
377 homebranch
=> $library6->branchcode,
378 holdingbranch
=> $library4->branchcode,
380 barcode
=> "item26barcode",
383 my $patron1 = $builder->build_object( { class => 'Koha::Patrons', value
=> { firstname
=>'1', branchcode
=> $library1->branchcode } } );
384 my $patron8 = $builder->build_object( { class => 'Koha::Patrons', value
=> { firstname
=>'8', branchcode
=> $library8->branchcode } } );
387 "ItemHomeLibrary-1-1" => 6,
388 "ItemHomeLibrary-1-8" => 1,
389 "ItemHomeLibrary-2-1" => 2,
390 "ItemHomeLibrary-2-8" => 0,
391 "PatronLibrary-1-1" => 6,
392 "PatronLibrary-1-8" => 3,
393 "PatronLibrary-2-1" => 0,
394 "PatronLibrary-2-8" => 3,
398 my ( $cbranch, $biblio, $patron, $results ) = @_;
399 t
::lib
::Mocks
::mock_preference
('ReservesControlBranch', $cbranch);
401 my @pl = $biblio->pickup_locations( { patron
=> $patron} );
403 foreach my $pickup_location (@pl) {
404 is
( ref($pickup_location), 'Koha::Library', 'Object type is correct' );
408 scalar(@pl) == $results->{ $cbranch . '-'
409 . $biblio->title . '-'
410 . $patron->firstname },
411 'ReservesControlBranch: '
418 . $results->{ $cbranch . '-'
419 . $biblio->title . '-'
420 . $patron->firstname }
426 foreach my $cbranch ('ItemHomeLibrary','PatronLibrary') {
427 foreach my $biblio ($biblio1, $biblio2) {
428 foreach my $patron ($patron1, $patron8) {
429 _doTest
($cbranch, $biblio, $patron, $results);
434 $schema->storage->txn_rollback;
437 subtest
'to_api() tests' => sub {
439 $schema->storage->txn_begin;
441 my $biblio = $builder->build_sample_biblio();
442 my $item = $builder->build_sample_item({ biblionumber
=> $biblio->biblionumber });
444 my $biblioitem_api = $biblio->biblioitem->to_api;
445 my $biblio_api = $biblio->to_api;
447 plan tests
=> (scalar keys %{ $biblioitem_api }) + 1;
449 foreach my $key ( keys %{ $biblioitem_api } ) {
450 is
( $biblio_api->{$key}, $biblioitem_api->{$key}, "$key is added to the biblio object" );
453 $biblio_api = $biblio->to_api({ embed
=> { items
=> {} } });
454 is_deeply
( $biblio_api->{items
}, [ $item->to_api ], 'Item correctly embedded' );
456 $schema->storage->txn_rollback;
459 subtest
'suggestions() tests' => sub {
463 $schema->storage->txn_begin;
465 my $biblio = $builder->build_sample_biblio();
467 is
( ref($biblio->suggestions), 'Koha::Suggestions', 'Return type is correct' );
470 $biblio->suggestions->unblessed,
472 '->suggestions returns an empty Koha::Suggestions resultset'
475 my $suggestion = $builder->build_object(
477 class => 'Koha::Suggestions',
478 value
=> { biblionumber
=> $biblio->biblionumber }
482 my $suggestions = $biblio->suggestions->unblessed;
485 $biblio->suggestions->unblessed,
486 [ $suggestion->unblessed ],
487 '->suggestions returns the related Koha::Suggestion objects'
490 $schema->storage->txn_rollback;
493 subtest
'orders() and active_orders() tests' => sub {
497 $schema->storage->txn_begin;
499 my $biblio = $builder->build_sample_biblio();
501 my $orders = $biblio->orders;
502 my $active_orders = $biblio->active_orders;
504 is
( ref($orders), 'Koha::Acquisition::Orders', 'Result type is correct' );
505 is
( $biblio->orders->count, $biblio->active_orders->count, '->orders->count returns the count for the resultset' );
507 # Add a couple orders
509 $builder->build_object(
511 class => 'Koha::Acquisition::Orders',
513 biblionumber
=> $biblio->biblionumber,
514 datecancellationprinted
=> '2019-12-31'
520 $builder->build_object(
522 class => 'Koha::Acquisition::Orders',
524 biblionumber
=> $biblio->biblionumber,
525 datecancellationprinted
=> undef
530 $orders = $biblio->orders;
531 $active_orders = $biblio->active_orders;
533 is
( ref($orders), 'Koha::Acquisition::Orders', 'Result type is correct' );
534 is
( ref($active_orders), 'Koha::Acquisition::Orders', 'Result type is correct' );
535 is
( $orders->count, $active_orders->count + 2, '->active_orders->count returns the rigt count' );
537 $schema->storage->txn_rollback;
540 subtest
'subscriptions() tests' => sub {
544 $schema->storage->txn_begin;
546 my $biblio = $builder->build_sample_biblio;
548 my $subscriptions = $biblio->subscriptions;
549 is
( ref($subscriptions), 'Koha::Subscriptions',
550 'Koha::Biblio->subscriptions should return a Koha::Subscriptions object'
552 is
( $subscriptions->count, 0, 'Koha::Biblio->subscriptions should return the correct number of subscriptions');
554 # Add two subscriptions
556 $builder->build_object(
558 class => 'Koha::Subscriptions',
559 value
=> { biblionumber
=> $biblio->biblionumber }
564 $subscriptions = $biblio->subscriptions;
565 is
( ref($subscriptions), 'Koha::Subscriptions',
566 'Koha::Biblio->subscriptions should return a Koha::Subscriptions object'
568 is
( $subscriptions->count, 2, 'Koha::Biblio->subscriptions should return the correct number of subscriptions');
570 $schema->storage->txn_rollback;