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 File
::Basename qw
/basename/;
22 use Koha
::Illrequestattributes
;
23 use Koha
::Illrequest
::Config
;
26 use t
::lib
::TestBuilder
;
31 use Test
::More tests
=> 11;
33 my $schema = Koha
::Database
->new->schema;
34 my $builder = t
::lib
::TestBuilder
->new;
35 use_ok
('Koha::Illrequest');
36 use_ok
('Koha::Illrequests');
38 subtest
'Basic object tests' => sub {
42 $schema->storage->txn_begin;
44 Koha
::Illrequests
->search->delete;
45 my $illrq = $builder->build({ source
=> 'Illrequest' });
46 my $illrq_obj = Koha
::Illrequests
->find($illrq->{illrequest_id
});
48 isa_ok
($illrq_obj, 'Koha::Illrequest',
49 "Correctly create and load an illrequest object.");
50 isa_ok
($illrq_obj->_config, 'Koha::Illrequest::Config',
51 "Created a config object as part of Illrequest creation.");
53 is
($illrq_obj->illrequest_id, $illrq->{illrequest_id
},
54 "Illrequest_id getter works.");
55 is
($illrq_obj->borrowernumber, $illrq->{borrowernumber
},
56 "Borrowernumber getter works.");
57 is
($illrq_obj->biblio_id, $illrq->{biblio_id
},
58 "Biblio_Id getter works.");
59 is
($illrq_obj->branchcode, $illrq->{branchcode
},
60 "Branchcode getter works.");
61 is
($illrq_obj->status, $illrq->{status
},
62 "Status getter works.");
63 is
($illrq_obj->placed, $illrq->{placed
},
64 "Placed getter works.");
65 is
($illrq_obj->replied, $illrq->{replied
},
66 "Replied getter works.");
67 is
($illrq_obj->updated, $illrq->{updated
},
68 "Updated getter works.");
69 is
($illrq_obj->completed, $illrq->{completed
},
70 "Completed getter works.");
71 is
($illrq_obj->medium, $illrq->{medium
},
72 "Medium getter works.");
73 is
($illrq_obj->accessurl, $illrq->{accessurl
},
74 "Accessurl getter works.");
75 is
($illrq_obj->cost, $illrq->{cost
},
76 "Cost getter works.");
77 is
($illrq_obj->notesopac, $illrq->{notesopac
},
78 "Notesopac getter works.");
79 is
($illrq_obj->notesstaff, $illrq->{notesstaff
},
80 "Notesstaff getter works.");
81 is
($illrq_obj->orderid, $illrq->{orderid
},
82 "Orderid getter works.");
83 is
($illrq_obj->backend, $illrq->{backend
},
84 "Backend getter works.");
86 isnt
($illrq_obj->status, 'COMP',
87 "ILL is not currently marked complete.");
88 $illrq_obj->mark_completed;
89 is
($illrq_obj->status, 'COMP',
90 "ILL is now marked complete.");
94 is
(Koha
::Illrequests
->search->count, 0,
95 "No illrequest found after delete.");
97 $schema->storage->txn_rollback;
100 subtest
'Working with related objects' => sub {
104 $schema->storage->txn_begin;
106 my $patron = $builder->build({ source
=> 'Borrower' });
107 my $illrq = $builder->build({
108 source
=> 'Illrequest',
109 value
=> { borrowernumber
=> $patron->{borrowernumber
} }
111 my $illrq_obj = Koha
::Illrequests
->find($illrq->{illrequest_id
});
113 isa_ok
($illrq_obj->patron, 'Koha::Patron',
114 "OK accessing related patron.");
117 source
=> 'Illrequestattribute',
118 value
=> { illrequest_id
=> $illrq_obj->illrequest_id, type
=> 'X' }
121 source
=> 'Illrequestattribute',
122 value
=> { illrequest_id
=> $illrq_obj->illrequest_id, type
=> 'Y' }
125 source
=> 'Illrequestattribute',
126 value
=> { illrequest_id
=> $illrq_obj->illrequest_id, type
=> 'Z' }
129 is
($illrq_obj->illrequestattributes->count, Koha
::Illrequestattributes
->search->count,
130 "Fetching expected number of Illrequestattributes for our request.");
132 my $illrq1 = $builder->build({ source
=> 'Illrequest' });
134 source
=> 'Illrequestattribute',
135 value
=> { illrequest_id
=> $illrq1->{illrequest_id
}, type
=> 'X' }
138 is
($illrq_obj->illrequestattributes->count + 1, Koha
::Illrequestattributes
->search->count,
139 "Fetching expected number of Illrequestattributes for our request.");
142 is
(Koha
::Illrequestattributes
->search->count, 1,
143 "Correct number of illrequestattributes after delete.");
145 isa_ok
(Koha
::Patrons
->find($patron->{borrowernumber
}), 'Koha::Patron',
146 "Borrower was not deleted after illrq delete.");
148 $schema->storage->txn_rollback;
151 subtest
'Status Graph tests' => sub {
155 $schema->storage->txn_begin;
157 my $illrq = $builder->build({source
=> 'Illrequest'});
158 my $illrq_obj = Koha
::Illrequests
->find($illrq->{illrequest_id
});
160 # _core_status_graph tests: it's just a constant, so here we just make
161 # sure it returns a hashref.
162 is
(ref $illrq_obj->_core_status_graph, "HASH",
163 "_core_status_graph returns a hash.");
165 # _status_graph_union: let's try different merge operations.
168 $illrq_obj->_status_graph_union($illrq_obj->_core_status_graph, {}),
169 $illrq_obj->_core_status_graph,
170 "core_status_graph + null = core_status_graph"
175 $illrq_obj->_status_graph_union({}, $illrq_obj->_core_status_graph),
176 $illrq_obj->_core_status_graph,
177 "null + core_status_graph = core_status_graph"
180 # Correct merge behaviour
182 $illrq_obj->_status_graph_union({
190 prev_actions
=> [ 'REQ' ],
192 next_actions
=> [ 'REQ' ],
197 prev_actions
=> [ 'QER' ],
199 next_actions
=> [ 'QER' ],
202 prev_actions
=> [ 'REQ' ],
204 next_actions
=> [ 'REQ' ],
207 "REQ atom + linking QER = cyclical status graph"
210 $schema->storage->txn_rollback;
213 subtest
'Backend testing (mocks)' => sub {
217 $schema->storage->txn_begin;
219 # testing load_backend & available_backends requires that we have at least
220 # the Dummy plugin installed. load_backend & available_backends don't
221 # currently have tests as a result.
223 t
::lib
::Mocks
->mock_config('interlibrary_loans', { backend_dir
=> 'a_dir' } );
224 my $backend = Test
::MockObject
->new;
225 $backend->set_isa('Koha::Illbackends::Mock');
226 $backend->set_always('name', 'Mock');
228 my $patron = $builder->build({ source
=> 'Borrower' });
229 my $illrq = $builder->build_object({
230 class => 'Koha::Illrequests',
231 value
=> { borrowernumber
=> $patron->{borrowernumber
} }
234 $illrq->_backend($backend);
236 isa_ok
($illrq->_backend, 'Koha::Illbackends::Mock',
237 "OK accessing mocked backend.");
239 # _backend_capability tests:
240 # We need to test whether this optional feature of a mocked backend
241 # behaves as expected.
242 # 3 scenarios: feature not implemented, feature implemented, but requested
243 # capability is not provided by backend, & feature is implemented &
244 # capability exists. This method can be used to implement custom backend
245 # functionality, such as unmediated in the BLDSS backend (also see
247 $backend->set_always('capabilities', undef);
248 is
($illrq->_backend_capability('Test'), 0,
249 "0 returned on Mock not implementing capabilities.");
251 $backend->set_always('capabilities', 0);
252 is
($illrq->_backend_capability('Test'), 0,
253 "0 returned on Mock not implementing Test capability.");
255 $backend->set_always('capabilities', sub { return 'bar'; } );
256 is
($illrq->_backend_capability('Test'), 'bar',
257 "'bar' returned on Mock implementing Test capability.");
259 # metadata test: we need to be sure that we return the arbitrary values
264 my ( $self, $rq ) = @_;
266 ID
=> $rq->illrequest_id,
267 Title
=> $rq->patron->borrowernumber
275 ID
=> $illrq->illrequest_id,
276 Title
=> $illrq->patron->borrowernumber
283 # No backend graph extension
284 $backend->set_always('status_graph', {});
285 is_deeply
($illrq->capabilities('COMP'),
287 prev_actions
=> [ 'REQ' ],
290 ui_method_name
=> 'Mark completed',
291 method
=> 'mark_completed',
293 ui_method_icon
=> 'fa-check',
295 "Dummy status graph for COMP.");
296 is
($illrq->capabilities('UNKNOWN'), undef,
297 "Dummy status graph for UNKNOWN.");
298 is_deeply
($illrq->capabilities(),
299 $illrq->_core_status_graph,
300 "Dummy full status graph.");
301 # Simple backend graph extension
302 $backend->set_always('status_graph',
305 prev_actions
=> [ 'REQ' ],
307 next_actions
=> [ 'REQ' ],
310 is_deeply
($illrq->capabilities('QER'),
312 prev_actions
=> [ 'REQ' ],
314 next_actions
=> [ 'REQ' ],
316 "Simple status graph for QER.");
317 is
($illrq->capabilities('UNKNOWN'), undef,
318 "Simple status graph for UNKNOWN.");
319 is_deeply
($illrq->capabilities(),
320 $illrq->_status_graph_union(
321 $illrq->_core_status_graph,
324 prev_actions
=> [ 'REQ' ],
326 next_actions
=> [ 'REQ' ],
330 "Simple full status graph.");
334 # No backend graph extension
335 $backend->set_always('status_graph', {});
336 is
($illrq->custom_capability('unknown', {}), 0,
337 "Unknown candidate.");
339 # Simple backend graph extension
340 $backend->set_always('status_graph',
343 prev_actions
=> [ 'REQ' ],
345 method
=> 'identity',
346 next_actions
=> [ 'REQ' ],
349 $backend->mock('identity',
350 sub { my ( $self, $params ) = @_; return $params->{other
}; });
351 is
($illrq->custom_capability('identity', { test
=> 1, method
=> 'blah' })->{test
}, 1,
352 "Resolve identity custom_capability");
354 $schema->storage->txn_rollback;
358 subtest
'Backend core methods' => sub {
362 $schema->storage->txn_begin;
364 # Build infrastructure
365 my $backend = Test
::MockObject
->new;
366 $backend->set_isa('Koha::Illbackends::Mock');
367 $backend->set_always('name', 'Mock');
369 my $config = Test
::MockObject
->new;
370 $config->set_always('backend_dir', "/tmp");
371 $config->set_always('getLimitRules',
372 { default => { count
=> 0, method
=> 'active' } });
374 my $illrq = $builder->build_object({
375 class => 'Koha::Illrequests',
376 value
=> { backend
=> undef }
378 $illrq->_config($config);
380 # Test error conditions (no backend)
381 throws_ok
{ $illrq->load_backend; }
382 'Koha::Exceptions::Ill::InvalidBackendId',
383 'Exception raised correctly';
385 throws_ok
{ $illrq->load_backend(''); }
386 'Koha::Exceptions::Ill::InvalidBackendId',
387 'Exception raised correctly';
389 # Now load the mocked backend
390 $illrq->_backend($backend);
393 is_deeply
($illrq->expandTemplate({ test
=> 1, method
=> "bar" }),
397 template
=> "/tmp/Mock/intra-includes/bar.inc",
398 opac_template
=> "/tmp/Mock/opac-includes/bar.inc",
403 # we are testing simple cases.
404 $backend->set_series('create',
405 { stage
=> 'bar', method
=> 'create' },
406 { stage
=> 'commit', method
=> 'create' },
407 { stage
=> 'commit', method
=> 'create' });
408 # Test Copyright Clearance
409 t
::lib
::Mocks
::mock_preference
("ILLModuleCopyrightClearance", "Test Copyright Clearance.");
410 is_deeply
($illrq->backend_create({test
=> 1}),
416 stage
=> 'copyrightclearance',
421 "Backend create: copyright clearance.");
422 t
::lib
::Mocks
::mock_preference
("ILLModuleCopyrightClearance", "");
424 is_deeply
($illrq->backend_create({test
=> 1}),
426 stage
=> 'bar', method
=> 'create',
427 template
=> "/tmp/Mock/intra-includes/create.inc",
428 opac_template
=> "/tmp/Mock/opac-includes/create.inc",
430 "Backend create: arbitrary stage.");
432 is_deeply
($illrq->backend_create({test
=> 1}),
434 stage
=> 'commit', method
=> 'create', permitted
=> 0,
435 template
=> "/tmp/Mock/intra-includes/create.inc",
436 opac_template
=> "/tmp/Mock/opac-includes/create.inc",
438 "Backend create: arbitrary stage, not permitted.");
439 is
($illrq->status, "QUEUED", "Backend create: queued if restricted.");
440 $config->set_always('getLimitRules', {});
441 $illrq->status('NEW');
442 is_deeply
($illrq->backend_create({test
=> 1}),
444 stage
=> 'commit', method
=> 'create', permitted
=> 1,
445 template
=> "/tmp/Mock/intra-includes/create.inc",
446 opac_template
=> "/tmp/Mock/opac-includes/create.inc",
448 "Backend create: arbitrary stage, permitted.");
449 is
($illrq->status, "NEW", "Backend create: not-queued.");
452 $backend->set_series('renew', { stage
=> 'bar', method
=> 'renew' });
453 is_deeply
($illrq->backend_renew({test
=> 1}),
455 stage
=> 'bar', method
=> 'renew',
456 template
=> "/tmp/Mock/intra-includes/renew.inc",
457 opac_template
=> "/tmp/Mock/opac-includes/renew.inc",
459 "Backend renew: arbitrary stage.");
462 $backend->set_series('cancel', { stage
=> 'bar', method
=> 'cancel' });
463 is_deeply
($illrq->backend_cancel({test
=> 1}),
465 stage
=> 'bar', method
=> 'cancel',
466 template
=> "/tmp/Mock/intra-includes/cancel.inc",
467 opac_template
=> "/tmp/Mock/opac-includes/cancel.inc",
469 "Backend cancel: arbitrary stage.");
471 # backend_update_status
472 $backend->set_series('update_status', { stage
=> 'bar', method
=> 'update_status' });
473 is_deeply
($illrq->backend_update_status({test
=> 1}),
475 stage
=> 'bar', method
=> 'update_status',
476 template
=> "/tmp/Mock/intra-includes/update_status.inc",
477 opac_template
=> "/tmp/Mock/opac-includes/update_status.inc",
479 "Backend update_status: arbitrary stage.");
482 $backend->set_series('confirm', { stage
=> 'bar', method
=> 'confirm' });
483 is_deeply
($illrq->backend_confirm({test
=> 1}),
485 stage
=> 'bar', method
=> 'confirm',
486 template
=> "/tmp/Mock/intra-includes/confirm.inc",
487 opac_template
=> "/tmp/Mock/opac-includes/confirm.inc",
489 "Backend confirm: arbitrary stage.");
491 $config->set_always('partner_code', "ILLTSTLIB");
492 $backend->set_always('metadata', { Test
=> "Foobar" });
493 my $illbrn = $builder->build({
495 value
=> { branchemail
=> "", branchreplyto
=> "" }
497 my $partner1 = $builder->build({
498 source
=> 'Borrower',
499 value
=> { categorycode
=> "ILLTSTLIB" },
501 my $partner2 = $builder->build({
502 source
=> 'Borrower',
503 value
=> { categorycode
=> "ILLTSTLIB" },
505 my $gen_conf = $illrq->generic_confirm({
506 current_branchcode
=> $illbrn->{branchcode
}
508 isnt
(index($gen_conf->{value
}->{draft
}->{body
}, $backend->metadata->{Test
}), -1,
509 "Generic confirm: draft contains metadata."
511 is
($gen_conf->{value
}->{partners
}->next->borrowernumber, $partner1->{borrowernumber
},
512 "Generic cofnirm: partner 1 is correct."
514 is
($gen_conf->{value
}->{partners
}->next->borrowernumber, $partner2->{borrowernumber
},
515 "Generic confirm: partner 2 is correct."
518 dies_ok
{ $illrq->generic_confirm({
519 current_branchcode
=> $illbrn->{branchcode
},
522 "Generic confirm: missing to dies OK.";
524 dies_ok
{ $illrq->generic_confirm({
525 current_branchcode
=> $illbrn->{branchcode
},
526 partners
=> $partner1->{email
},
529 "Generic confirm: missing from dies OK.";
531 $schema->storage->txn_rollback;
535 subtest
'Helpers' => sub {
539 $schema->storage->txn_begin;
541 # Build infrastructure
542 my $backend = Test
::MockObject
->new;
543 $backend->set_isa('Koha::Illbackends::Mock');
544 $backend->set_always('name', 'Mock');
546 my $config = Test
::MockObject
->new;
547 $config->set_always('backend_dir', "/tmp");
549 my $patron = $builder->build({
550 source
=> 'Borrower',
551 value
=> { categorycode
=> "A" }
553 my $illrq = $builder->build({
554 source
=> 'Illrequest',
555 value
=> { branchcode
=> "CPL", borrowernumber
=> $patron->{borrowernumber
} }
557 my $illrq_obj = Koha
::Illrequests
->find($illrq->{illrequest_id
});
558 $illrq_obj->_config($config);
559 $illrq_obj->_backend($backend);
562 $config->set_series('getPrefixes',
563 { CPL
=> "TEST", TSL
=> "BAR", default => "DEFAULT" },
564 { A
=> "ATEST", C
=> "CBAR", default => "DEFAULT" });
565 is
($illrq_obj->getPrefix({ brw_cat
=> "C", branch
=> "CPL" }), "CBAR",
566 "getPrefix: brw_cat");
567 $config->set_series('getPrefixes',
568 { CPL
=> "TEST", TSL
=> "BAR", default => "DEFAULT" },
569 { A
=> "ATEST", C
=> "CBAR", default => "DEFAULT" });
570 is
($illrq_obj->getPrefix({ brw_cat
=> "UNKNOWN", branch
=> "CPL" }), "TEST",
571 "getPrefix: branch");
572 $config->set_series('getPrefixes',
573 { CPL
=> "TEST", TSL
=> "BAR", default => "DEFAULT" },
574 { A
=> "ATEST", C
=> "CBAR", default => "DEFAULT" });
575 is
($illrq_obj->getPrefix({ brw_cat
=> "UNKNOWN", branch
=> "UNKNOWN" }), "DEFAULT",
576 "getPrefix: default");
577 $config->set_always('getPrefixes', {});
578 is
($illrq_obj->getPrefix({ brw_cat
=> "UNKNOWN", branch
=> "UNKNOWN" }), "",
579 "getPrefix: the empty prefix");
582 $config->set_series('getPrefixes',
583 { CPL
=> "TEST", TSL
=> "BAR", default => "DEFAULT" },
584 { A
=> "ATEST", C
=> "CBAR", default => "DEFAULT" });
585 is
($illrq_obj->id_prefix, "ATEST-", "id_prefix: brw_cat");
586 $config->set_series('getPrefixes',
587 { CPL
=> "TEST", TSL
=> "BAR", default => "DEFAULT" },
588 { AB
=> "ATEST", CD
=> "CBAR", default => "DEFAULT" });
589 is
($illrq_obj->id_prefix, "TEST-", "id_prefix: branch");
590 $config->set_series('getPrefixes',
591 { CPLT
=> "TEST", TSLT
=> "BAR", default => "DEFAULT" },
592 { AB
=> "ATEST", CD
=> "CBAR", default => "DEFAULT" });
593 is
($illrq_obj->id_prefix, "DEFAULT-", "id_prefix: default");
595 # requires_moderation
596 $illrq_obj->status('NEW')->store;
597 is
($illrq_obj->requires_moderation, undef, "requires_moderation: No.");
598 $illrq_obj->status('CANCREQ')->store;
599 is
($illrq_obj->requires_moderation, 'CANCREQ', "requires_moderation: Yes.");
601 $schema->storage->txn_rollback;
605 subtest
'Censorship' => sub {
609 $schema->storage->txn_begin;
611 # Build infrastructure
612 my $backend = Test
::MockObject
->new;
613 $backend->set_isa('Koha::Illbackends::Mock');
614 $backend->set_always('name', 'Mock');
616 my $config = Test
::MockObject
->new;
617 $config->set_always('backend_dir', "/tmp");
619 my $illrq = $builder->build({source
=> 'Illrequest'});
620 my $illrq_obj = Koha
::Illrequests
->find($illrq->{illrequest_id
});
621 $illrq_obj->_config($config);
622 $illrq_obj->_backend($backend);
624 $config->set_always('censorship', { censor_notes_staff
=> 1, censor_reply_date
=> 0 });
626 my $censor_out = $illrq_obj->_censor({ foo
=> 'bar', baz
=> 564 });
627 is_deeply
($censor_out, { foo
=> 'bar', baz
=> 564, display_reply_date
=> 1 },
628 "_censor: not OPAC, reply_date = 1");
630 $censor_out = $illrq_obj->_censor({ foo
=> 'bar', baz
=> 564, opac
=> 1 });
631 is_deeply
($censor_out, {
632 foo
=> 'bar', baz
=> 564, censor_notes_staff
=> 1,
633 display_reply_date
=> 1, opac
=> 1
634 }, "_censor: notes_staff = 0, reply_date = 0");
636 $schema->storage->txn_rollback;
639 subtest
'Checking Limits' => sub {
643 $schema->storage->txn_begin;
645 # Build infrastructure
646 my $backend = Test
::MockObject
->new;
647 $backend->set_isa('Koha::Illbackends::Mock');
648 $backend->set_always('name', 'Mock');
650 my $config = Test
::MockObject
->new;
651 $config->set_always('backend_dir', "/tmp");
653 my $illrq = $builder->build({source
=> 'Illrequest'});
654 my $illrq_obj = Koha
::Illrequests
->find($illrq->{illrequest_id
});
655 $illrq_obj->_config($config);
656 $illrq_obj->_backend($backend);
659 $config->set_series('getLimitRules',
660 { CPL
=> { count
=> 1, method
=> 'test' } },
661 { default => { count
=> 0, method
=> 'active' } });
662 is_deeply
($illrq_obj->getLimits({ type
=> 'branch', value
=> "CPL" }),
663 { count
=> 1, method
=> 'test' },
664 "getLimits: by value.");
665 is_deeply
($illrq_obj->getLimits({ type
=> 'branch' }),
666 { count
=> 0, method
=> 'active' },
667 "getLimits: by default.");
668 is_deeply
($illrq_obj->getLimits({ type
=> 'branch', value
=> "CPL" }),
669 { count
=> -1, method
=> 'active' },
670 "getLimits: by hard-coded.");
673 is
($illrq_obj->_limit_counter('annual', { branchcode
=> $illrq_obj->branchcode }),
674 1, "_limit_counter: Initial branch annual count.");
675 is
($illrq_obj->_limit_counter('active', { branchcode
=> $illrq_obj->branchcode }),
676 1, "_limit_counter: Initial branch active count.");
677 is
($illrq_obj->_limit_counter('annual', { borrowernumber
=> $illrq_obj->borrowernumber }),
678 1, "_limit_counter: Initial patron annual count.");
679 is
($illrq_obj->_limit_counter('active', { borrowernumber
=> $illrq_obj->borrowernumber }),
680 1, "_limit_counter: Initial patron active count.");
682 source
=> 'Illrequest',
684 branchcode
=> $illrq_obj->branchcode,
685 borrowernumber
=> $illrq_obj->borrowernumber,
688 is
($illrq_obj->_limit_counter('annual', { branchcode
=> $illrq_obj->branchcode }),
689 2, "_limit_counter: Add a qualifying request for branch annual count.");
690 is
($illrq_obj->_limit_counter('active', { branchcode
=> $illrq_obj->branchcode }),
691 2, "_limit_counter: Add a qualifying request for branch active count.");
692 is
($illrq_obj->_limit_counter('annual', { borrowernumber
=> $illrq_obj->borrowernumber }),
693 2, "_limit_counter: Add a qualifying request for patron annual count.");
694 is
($illrq_obj->_limit_counter('active', { borrowernumber
=> $illrq_obj->borrowernumber }),
695 2, "_limit_counter: Add a qualifying request for patron active count.");
697 source
=> 'Illrequest',
699 branchcode
=> $illrq_obj->branchcode,
700 borrowernumber
=> $illrq_obj->borrowernumber,
701 placed
=> "2005-05-31",
704 is
($illrq_obj->_limit_counter('annual', { branchcode
=> $illrq_obj->branchcode }),
705 2, "_limit_counter: Add an out-of-date branch request.");
706 is
($illrq_obj->_limit_counter('active', { branchcode
=> $illrq_obj->branchcode }),
707 3, "_limit_counter: Add a qualifying request for branch active count.");
708 is
($illrq_obj->_limit_counter('annual', { borrowernumber
=> $illrq_obj->borrowernumber }),
709 2, "_limit_counter: Add an out-of-date patron request.");
710 is
($illrq_obj->_limit_counter('active', { borrowernumber
=> $illrq_obj->borrowernumber }),
711 3, "_limit_counter: Add a qualifying request for patron active count.");
713 source
=> 'Illrequest',
715 branchcode
=> $illrq_obj->branchcode,
716 borrowernumber
=> $illrq_obj->borrowernumber,
720 is
($illrq_obj->_limit_counter('annual', { branchcode
=> $illrq_obj->branchcode }),
721 3, "_limit_counter: Add a qualifying request for branch annual count.");
722 is
($illrq_obj->_limit_counter('active', { branchcode
=> $illrq_obj->branchcode }),
723 3, "_limit_counter: Add a completed request for branch active count.");
724 is
($illrq_obj->_limit_counter('annual', { borrowernumber
=> $illrq_obj->borrowernumber }),
725 3, "_limit_counter: Add a qualifying request for patron annual count.");
726 is
($illrq_obj->_limit_counter('active', { borrowernumber
=> $illrq_obj->borrowernumber }),
727 3, "_limit_counter: Add a completed request for patron active count.");
731 # We've tested _limit_counter, so all we need to test here is whether the
732 # current counts of 3 for each work as they should against different
733 # configuration declarations.
736 $config->set_always('getLimitRules', undef);
737 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
738 librarycode
=> $illrq_obj->branchcode}),
739 1, "check_limits: no configuration => no limits.");
742 $config->set_always('getLimitRules',
743 { $illrq_obj->branchcode => { count
=> 1, method
=> 'active' } });
744 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
745 librarycode
=> $illrq_obj->branchcode}),
746 0, "check_limits: branch active limit exceeded.");
747 $config->set_always('getLimitRules',
748 { $illrq_obj->branchcode => { count
=> 1, method
=> 'annual' } });
749 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
750 librarycode
=> $illrq_obj->branchcode}),
751 0, "check_limits: branch annual limit exceeded.");
752 $config->set_always('getLimitRules',
753 { $illrq_obj->branchcode => { count
=> 4, method
=> 'active' } });
754 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
755 librarycode
=> $illrq_obj->branchcode}),
756 1, "check_limits: branch active limit OK.");
757 $config->set_always('getLimitRules',
758 { $illrq_obj->branchcode => { count
=> 4, method
=> 'annual' } });
759 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
760 librarycode
=> $illrq_obj->branchcode}),
761 1, "check_limits: branch annual limit OK.");
764 $config->set_always('getLimitRules',
765 { $illrq_obj->patron->categorycode => { count
=> 1, method
=> 'active' } });
766 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
767 librarycode
=> $illrq_obj->branchcode}),
768 0, "check_limits: patron category active limit exceeded.");
769 $config->set_always('getLimitRules',
770 { $illrq_obj->patron->categorycode => { count
=> 1, method
=> 'annual' } });
771 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
772 librarycode
=> $illrq_obj->branchcode}),
773 0, "check_limits: patron category annual limit exceeded.");
774 $config->set_always('getLimitRules',
775 { $illrq_obj->patron->categorycode => { count
=> 4, method
=> 'active' } });
776 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
777 librarycode
=> $illrq_obj->branchcode}),
778 1, "check_limits: patron category active limit OK.");
779 $config->set_always('getLimitRules',
780 { $illrq_obj->patron->categorycode => { count
=> 4, method
=> 'annual' } });
781 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
782 librarycode
=> $illrq_obj->branchcode}),
783 1, "check_limits: patron category annual limit OK.");
785 # One rule cancels the other
786 $config->set_series('getLimitRules',
787 # Branch rules allow request
788 { $illrq_obj->branchcode => { count
=> 4, method
=> 'active' } },
789 # Patron rule forbids it
790 { $illrq_obj->patron->categorycode => { count
=> 1, method
=> 'annual' } });
791 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
792 librarycode
=> $illrq_obj->branchcode}),
793 0, "check_limits: patron category veto overrides branch OK.");
794 $config->set_series('getLimitRules',
795 # Branch rules allow request
796 { $illrq_obj->branchcode => { count
=> 1, method
=> 'active' } },
797 # Patron rule forbids it
798 { $illrq_obj->patron->categorycode => { count
=> 4, method
=> 'annual' } });
799 is
($illrq_obj->check_limits({patron
=> $illrq_obj->patron,
800 librarycode
=> $illrq_obj->branchcode}),
801 0, "check_limits: branch veto overrides patron category OK.");
803 $schema->storage->txn_rollback;
806 subtest
'TO_JSON() tests' => sub {
810 my $illreqmodule = Test
::MockModule
->new('Koha::Illrequest');
812 # Mock ->capabilities
813 $illreqmodule->mock( 'capabilities', sub { return 'capable'; } );
816 $illreqmodule->mock( 'metadata', sub { return 'metawhat?'; } );
818 $schema->storage->txn_begin;
820 my $library = $builder->build_object( { class => 'Koha::Libraries' } );
821 my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
822 my $illreq = $builder->build_object(
824 class => 'Koha::Illrequests',
826 branchcode
=> $library->branchcode,
827 borrowernumber
=> $patron->borrowernumber
831 my $illreq_json = $illreq->TO_JSON;
832 is
( $illreq_json->{patron
},
833 undef, '%embed not passed, no \'patron\' attribute' );
834 is
( $illreq_json->{metadata
},
835 undef, '%embed not passed, no \'metadata\' attribute' );
836 is
( $illreq_json->{capabilities
},
837 undef, '%embed not passed, no \'capabilities\' attribute' );
838 is
( $illreq_json->{branch
},
839 undef, '%embed not passed, no \'branch\' attribute' );
841 $illreq_json = $illreq->TO_JSON(
842 { patron
=> 1, metadata
=> 1, capabilities
=> 1, branch
=> 1 } );
843 is
( $illreq_json->{patron
}->{firstname
},
845 '%embed passed, \'patron\' attribute correct (firstname)' );
846 is
( $illreq_json->{patron
}->{surname
},
848 '%embed passed, \'patron\' attribute correct (surname)' );
849 is
( $illreq_json->{patron
}->{cardnumber
},
851 '%embed passed, \'patron\' attribute correct (cardnumber)' );
852 is
( $illreq_json->{metadata
},
853 'metawhat?', '%embed passed, \'metadata\' attribute correct' );
854 is
( $illreq_json->{capabilities
},
855 'capable', '%embed passed, \'capabilities\' attribute correct' );
856 is
( $illreq_json->{branch
}->{branchcode
},
857 $library->branchcode, '%embed not passed, no \'branch\' attribute' );
859 $schema->storage->txn_rollback;