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 my $backend = Test::MockObject->new;
224 $backend->set_isa('Koha::Illbackends::Mock');
225 $backend->set_always('name', 'Mock');
227 my $patron = $builder->build({ source => 'Borrower' });
228 my $illrq = $builder->build({
229 source => 'Illrequest',
230 value => { borrowernumber => $patron->{borrowernumber} }
232 my $illrq_obj = Koha::Illrequests->find($illrq->{illrequest_id});
234 $illrq_obj->_backend($backend);
236 isa_ok($illrq_obj->_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_obj->_backend_capability('Test'), 0,
249 "0 returned on Mock not implementing capabilities.");
251 $backend->set_always('capabilities', 0);
252 is($illrq_obj->_backend_capability('Test'), 0,
253 "0 returned on Mock not implementing Test capability.");
255 $backend->set_always('capabilities', sub { return 'bar'; } );
256 is($illrq_obj->_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
273 $illrq_obj->metadata,
275 ID => $illrq_obj->illrequest_id,
276 Title => $illrq_obj->patron->borrowernumber
283 # No backend graph extension
284 $backend->set_always('status_graph', {});
285 is_deeply($illrq_obj->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_obj->capabilities('UNKNOWN'), undef,
297 "Dummy status graph for UNKNOWN.");
298 is_deeply($illrq_obj->capabilities(),
299 $illrq_obj->_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_obj->capabilities('QER'),
312 prev_actions => [ 'REQ' ],
314 next_actions => [ 'REQ' ],
316 "Simple status graph for QER.");
317 is($illrq_obj->capabilities('UNKNOWN'), undef,
318 "Simple status graph for UNKNOWN.");
319 is_deeply($illrq_obj->capabilities(),
320 $illrq_obj->_status_graph_union(
321 $illrq_obj->_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_obj->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_obj->custom_capability('identity', { test => 1 })->{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({source => 'Illrequest'});
375 my $illrq_obj = Koha::Illrequests->find($illrq->{illrequest_id});
376 $illrq_obj->_config($config);
377 $illrq_obj->_backend($backend);
380 is_deeply($illrq_obj->expandTemplate({ test => 1, method => "bar" }),
384 template => "/tmp/Mock/intra-includes/bar.inc",
385 opac_template => "/tmp/Mock/opac-includes/bar.inc",
390 # we are testing simple cases.
391 $backend->set_series('create',
392 { stage => 'bar', method => 'create' },
393 { stage => 'commit', method => 'create' },
394 { stage => 'commit', method => 'create' });
395 # Test Copyright Clearance
396 t::lib::Mocks::mock_preference("ILLModuleCopyrightClearance", "Test Copyright Clearance.");
397 is_deeply($illrq_obj->backend_create({test => 1}),
403 stage => 'copyrightclearance',
408 "Backend create: copyright clearance.");
409 t::lib::Mocks::mock_preference("ILLModuleCopyrightClearance", "");
411 is_deeply($illrq_obj->backend_create({test => 1}),
413 stage => 'bar', method => 'create',
414 template => "/tmp/Mock/intra-includes/create.inc",
415 opac_template => "/tmp/Mock/opac-includes/create.inc",
417 "Backend create: arbitrary stage.");
419 is_deeply($illrq_obj->backend_create({test => 1}),
421 stage => 'commit', method => 'create', permitted => 0,
422 template => "/tmp/Mock/intra-includes/create.inc",
423 opac_template => "/tmp/Mock/opac-includes/create.inc",
425 "Backend create: arbitrary stage, not permitted.");
426 is($illrq_obj->status, "QUEUED", "Backend create: queued if restricted.");
427 $config->set_always('getLimitRules', {});
428 $illrq_obj->status('NEW');
429 is_deeply($illrq_obj->backend_create({test => 1}),
431 stage => 'commit', method => 'create', permitted => 1,
432 template => "/tmp/Mock/intra-includes/create.inc",
433 opac_template => "/tmp/Mock/opac-includes/create.inc",
435 "Backend create: arbitrary stage, permitted.");
436 is($illrq_obj->status, "NEW", "Backend create: not-queued.");
439 $backend->set_series('renew', { stage => 'bar', method => 'renew' });
440 is_deeply($illrq_obj->backend_renew({test => 1}),
442 stage => 'bar', method => 'renew',
443 template => "/tmp/Mock/intra-includes/renew.inc",
444 opac_template => "/tmp/Mock/opac-includes/renew.inc",
446 "Backend renew: arbitrary stage.");
449 $backend->set_series('cancel', { stage => 'bar', method => 'cancel' });
450 is_deeply($illrq_obj->backend_cancel({test => 1}),
452 stage => 'bar', method => 'cancel',
453 template => "/tmp/Mock/intra-includes/cancel.inc",
454 opac_template => "/tmp/Mock/opac-includes/cancel.inc",
456 "Backend cancel: arbitrary stage.");
458 # backend_update_status
459 $backend->set_series('update_status', { stage => 'bar', method => 'update_status' });
460 is_deeply($illrq_obj->backend_update_status({test => 1}),
462 stage => 'bar', method => 'update_status',
463 template => "/tmp/Mock/intra-includes/update_status.inc",
464 opac_template => "/tmp/Mock/opac-includes/update_status.inc",
466 "Backend update_status: arbitrary stage.");
469 $backend->set_series('confirm', { stage => 'bar', method => 'confirm' });
470 is_deeply($illrq_obj->backend_confirm({test => 1}),
472 stage => 'bar', method => 'confirm',
473 template => "/tmp/Mock/intra-includes/confirm.inc",
474 opac_template => "/tmp/Mock/opac-includes/confirm.inc",
476 "Backend confirm: arbitrary stage.");
478 $config->set_always('partner_code', "ILLTSTLIB");
479 $backend->set_always('metadata', { Test => "Foobar" });
480 my $illbrn = $builder->build({
482 value => { branchemail => "", branchreplyto => "" }
484 my $partner1 = $builder->build({
485 source => 'Borrower',
486 value => { categorycode => "ILLTSTLIB" },
488 my $partner2 = $builder->build({
489 source => 'Borrower',
490 value => { categorycode => "ILLTSTLIB" },
492 my $gen_conf = $illrq_obj->generic_confirm({
493 current_branchcode => $illbrn->{branchcode}
495 isnt(index($gen_conf->{value}->{draft}->{body}, $backend->metadata->{Test}), -1,
496 "Generic confirm: draft contains metadata."
498 is($gen_conf->{value}->{partners}->next->borrowernumber, $partner1->{borrowernumber},
499 "Generic cofnirm: partner 1 is correct."
501 is($gen_conf->{value}->{partners}->next->borrowernumber, $partner2->{borrowernumber},
502 "Generic confirm: partner 2 is correct."
505 dies_ok { $illrq_obj->generic_confirm({
506 current_branchcode => $illbrn->{branchcode},
509 "Generic confirm: missing to dies OK.";
511 dies_ok { $illrq_obj->generic_confirm({
512 current_branchcode => $illbrn->{branchcode},
513 partners => $partner1->{email},
516 "Generic confirm: missing from dies OK.";
518 $schema->storage->txn_rollback;
522 subtest 'Helpers' => sub {
526 $schema->storage->txn_begin;
528 # Build infrastructure
529 my $backend = Test::MockObject->new;
530 $backend->set_isa('Koha::Illbackends::Mock');
531 $backend->set_always('name', 'Mock');
533 my $config = Test::MockObject->new;
534 $config->set_always('backend_dir', "/tmp");
536 my $patron = $builder->build({
537 source => 'Borrower',
538 value => { categorycode => "A" }
540 my $illrq = $builder->build({
541 source => 'Illrequest',
542 value => { branchcode => "CPL", borrowernumber => $patron->{borrowernumber} }
544 my $illrq_obj = Koha::Illrequests->find($illrq->{illrequest_id});
545 $illrq_obj->_config($config);
546 $illrq_obj->_backend($backend);
549 $config->set_series('getPrefixes',
550 { CPL => "TEST", TSL => "BAR", default => "DEFAULT" },
551 { A => "ATEST", C => "CBAR", default => "DEFAULT" });
552 is($illrq_obj->getPrefix({ brw_cat => "C", branch => "CPL" }), "CBAR",
553 "getPrefix: brw_cat");
554 $config->set_series('getPrefixes',
555 { CPL => "TEST", TSL => "BAR", default => "DEFAULT" },
556 { A => "ATEST", C => "CBAR", default => "DEFAULT" });
557 is($illrq_obj->getPrefix({ brw_cat => "UNKNOWN", branch => "CPL" }), "TEST",
558 "getPrefix: branch");
559 $config->set_series('getPrefixes',
560 { CPL => "TEST", TSL => "BAR", default => "DEFAULT" },
561 { A => "ATEST", C => "CBAR", default => "DEFAULT" });
562 is($illrq_obj->getPrefix({ brw_cat => "UNKNOWN", branch => "UNKNOWN" }), "DEFAULT",
563 "getPrefix: default");
564 $config->set_always('getPrefixes', {});
565 is($illrq_obj->getPrefix({ brw_cat => "UNKNOWN", branch => "UNKNOWN" }), "",
566 "getPrefix: the empty prefix");
569 $config->set_series('getPrefixes',
570 { CPL => "TEST", TSL => "BAR", default => "DEFAULT" },
571 { A => "ATEST", C => "CBAR", default => "DEFAULT" });
572 is($illrq_obj->id_prefix, "ATEST-", "id_prefix: brw_cat");
573 $config->set_series('getPrefixes',
574 { CPL => "TEST", TSL => "BAR", default => "DEFAULT" },
575 { AB => "ATEST", CD => "CBAR", default => "DEFAULT" });
576 is($illrq_obj->id_prefix, "TEST-", "id_prefix: branch");
577 $config->set_series('getPrefixes',
578 { CPLT => "TEST", TSLT => "BAR", default => "DEFAULT" },
579 { AB => "ATEST", CD => "CBAR", default => "DEFAULT" });
580 is($illrq_obj->id_prefix, "DEFAULT-", "id_prefix: default");
582 # requires_moderation
583 $illrq_obj->status('NEW')->store;
584 is($illrq_obj->requires_moderation, undef, "requires_moderation: No.");
585 $illrq_obj->status('CANCREQ')->store;
586 is($illrq_obj->requires_moderation, 'CANCREQ', "requires_moderation: Yes.");
588 $schema->storage->txn_rollback;
592 subtest 'Censorship' => sub {
596 $schema->storage->txn_begin;
598 # Build infrastructure
599 my $backend = Test::MockObject->new;
600 $backend->set_isa('Koha::Illbackends::Mock');
601 $backend->set_always('name', 'Mock');
603 my $config = Test::MockObject->new;
604 $config->set_always('backend_dir', "/tmp");
606 my $illrq = $builder->build({source => 'Illrequest'});
607 my $illrq_obj = Koha::Illrequests->find($illrq->{illrequest_id});
608 $illrq_obj->_config($config);
609 $illrq_obj->_backend($backend);
611 $config->set_always('censorship', { censor_notes_staff => 1, censor_reply_date => 0 });
613 my $censor_out = $illrq_obj->_censor({ foo => 'bar', baz => 564 });
614 is_deeply($censor_out, { foo => 'bar', baz => 564, display_reply_date => 1 },
615 "_censor: not OPAC, reply_date = 1");
617 $censor_out = $illrq_obj->_censor({ foo => 'bar', baz => 564, opac => 1 });
618 is_deeply($censor_out, {
619 foo => 'bar', baz => 564, censor_notes_staff => 1,
620 display_reply_date => 1, opac => 1
621 }, "_censor: notes_staff = 0, reply_date = 0");
623 $schema->storage->txn_rollback;
626 subtest 'Checking Limits' => sub {
630 $schema->storage->txn_begin;
632 # Build infrastructure
633 my $backend = Test::MockObject->new;
634 $backend->set_isa('Koha::Illbackends::Mock');
635 $backend->set_always('name', 'Mock');
637 my $config = Test::MockObject->new;
638 $config->set_always('backend_dir', "/tmp");
640 my $illrq = $builder->build({source => 'Illrequest'});
641 my $illrq_obj = Koha::Illrequests->find($illrq->{illrequest_id});
642 $illrq_obj->_config($config);
643 $illrq_obj->_backend($backend);
646 $config->set_series('getLimitRules',
647 { CPL => { count => 1, method => 'test' } },
648 { default => { count => 0, method => 'active' } });
649 is_deeply($illrq_obj->getLimits({ type => 'branch', value => "CPL" }),
650 { count => 1, method => 'test' },
651 "getLimits: by value.");
652 is_deeply($illrq_obj->getLimits({ type => 'branch' }),
653 { count => 0, method => 'active' },
654 "getLimits: by default.");
655 is_deeply($illrq_obj->getLimits({ type => 'branch', value => "CPL" }),
656 { count => -1, method => 'active' },
657 "getLimits: by hard-coded.");
660 is($illrq_obj->_limit_counter('annual', { branchcode => $illrq_obj->branchcode }),
661 1, "_limit_counter: Initial branch annual count.");
662 is($illrq_obj->_limit_counter('active', { branchcode => $illrq_obj->branchcode }),
663 1, "_limit_counter: Initial branch active count.");
664 is($illrq_obj->_limit_counter('annual', { borrowernumber => $illrq_obj->borrowernumber }),
665 1, "_limit_counter: Initial patron annual count.");
666 is($illrq_obj->_limit_counter('active', { borrowernumber => $illrq_obj->borrowernumber }),
667 1, "_limit_counter: Initial patron active count.");
669 source => 'Illrequest',
671 branchcode => $illrq_obj->branchcode,
672 borrowernumber => $illrq_obj->borrowernumber,
675 is($illrq_obj->_limit_counter('annual', { branchcode => $illrq_obj->branchcode }),
676 2, "_limit_counter: Add a qualifying request for branch annual count.");
677 is($illrq_obj->_limit_counter('active', { branchcode => $illrq_obj->branchcode }),
678 2, "_limit_counter: Add a qualifying request for branch active count.");
679 is($illrq_obj->_limit_counter('annual', { borrowernumber => $illrq_obj->borrowernumber }),
680 2, "_limit_counter: Add a qualifying request for patron annual count.");
681 is($illrq_obj->_limit_counter('active', { borrowernumber => $illrq_obj->borrowernumber }),
682 2, "_limit_counter: Add a qualifying request for patron active count.");
684 source => 'Illrequest',
686 branchcode => $illrq_obj->branchcode,
687 borrowernumber => $illrq_obj->borrowernumber,
688 placed => "2005-05-31",
691 is($illrq_obj->_limit_counter('annual', { branchcode => $illrq_obj->branchcode }),
692 2, "_limit_counter: Add an out-of-date branch request.");
693 is($illrq_obj->_limit_counter('active', { branchcode => $illrq_obj->branchcode }),
694 3, "_limit_counter: Add a qualifying request for branch active count.");
695 is($illrq_obj->_limit_counter('annual', { borrowernumber => $illrq_obj->borrowernumber }),
696 2, "_limit_counter: Add an out-of-date patron request.");
697 is($illrq_obj->_limit_counter('active', { borrowernumber => $illrq_obj->borrowernumber }),
698 3, "_limit_counter: Add a qualifying request for patron active count.");
700 source => 'Illrequest',
702 branchcode => $illrq_obj->branchcode,
703 borrowernumber => $illrq_obj->borrowernumber,
707 is($illrq_obj->_limit_counter('annual', { branchcode => $illrq_obj->branchcode }),
708 3, "_limit_counter: Add a qualifying request for branch annual count.");
709 is($illrq_obj->_limit_counter('active', { branchcode => $illrq_obj->branchcode }),
710 3, "_limit_counter: Add a completed request for branch active count.");
711 is($illrq_obj->_limit_counter('annual', { borrowernumber => $illrq_obj->borrowernumber }),
712 3, "_limit_counter: Add a qualifying request for patron annual count.");
713 is($illrq_obj->_limit_counter('active', { borrowernumber => $illrq_obj->borrowernumber }),
714 3, "_limit_counter: Add a completed request for patron active count.");
718 # We've tested _limit_counter, so all we need to test here is whether the
719 # current counts of 3 for each work as they should against different
720 # configuration declarations.
723 $config->set_always('getLimitRules', undef);
724 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
725 librarycode => $illrq_obj->branchcode}),
726 1, "check_limits: no configuration => no limits.");
729 $config->set_always('getLimitRules',
730 { $illrq_obj->branchcode => { count => 1, method => 'active' } });
731 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
732 librarycode => $illrq_obj->branchcode}),
733 0, "check_limits: branch active limit exceeded.");
734 $config->set_always('getLimitRules',
735 { $illrq_obj->branchcode => { count => 1, method => 'annual' } });
736 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
737 librarycode => $illrq_obj->branchcode}),
738 0, "check_limits: branch annual limit exceeded.");
739 $config->set_always('getLimitRules',
740 { $illrq_obj->branchcode => { count => 4, method => 'active' } });
741 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
742 librarycode => $illrq_obj->branchcode}),
743 1, "check_limits: branch active limit OK.");
744 $config->set_always('getLimitRules',
745 { $illrq_obj->branchcode => { count => 4, method => 'annual' } });
746 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
747 librarycode => $illrq_obj->branchcode}),
748 1, "check_limits: branch annual limit OK.");
751 $config->set_always('getLimitRules',
752 { $illrq_obj->patron->categorycode => { count => 1, method => 'active' } });
753 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
754 librarycode => $illrq_obj->branchcode}),
755 0, "check_limits: patron category active limit exceeded.");
756 $config->set_always('getLimitRules',
757 { $illrq_obj->patron->categorycode => { count => 1, method => 'annual' } });
758 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
759 librarycode => $illrq_obj->branchcode}),
760 0, "check_limits: patron category annual limit exceeded.");
761 $config->set_always('getLimitRules',
762 { $illrq_obj->patron->categorycode => { count => 4, method => 'active' } });
763 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
764 librarycode => $illrq_obj->branchcode}),
765 1, "check_limits: patron category active limit OK.");
766 $config->set_always('getLimitRules',
767 { $illrq_obj->patron->categorycode => { count => 4, method => 'annual' } });
768 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
769 librarycode => $illrq_obj->branchcode}),
770 1, "check_limits: patron category annual limit OK.");
772 # One rule cancels the other
773 $config->set_series('getLimitRules',
774 # Branch rules allow request
775 { $illrq_obj->branchcode => { count => 4, method => 'active' } },
776 # Patron rule forbids it
777 { $illrq_obj->patron->categorycode => { count => 1, method => 'annual' } });
778 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
779 librarycode => $illrq_obj->branchcode}),
780 0, "check_limits: patron category veto overrides branch OK.");
781 $config->set_series('getLimitRules',
782 # Branch rules allow request
783 { $illrq_obj->branchcode => { count => 1, method => 'active' } },
784 # Patron rule forbids it
785 { $illrq_obj->patron->categorycode => { count => 4, method => 'annual' } });
786 is($illrq_obj->check_limits({patron => $illrq_obj->patron,
787 librarycode => $illrq_obj->branchcode}),
788 0, "check_limits: branch veto overrides patron category OK.");
790 $schema->storage->txn_rollback;
793 subtest 'TO_JSON() tests' => sub {
797 my $illreqmodule = Test::MockModule->new('Koha::Illrequest');
799 # Mock ->capabilities
800 $illreqmodule->mock( 'capabilities', sub { return 'capable'; } );
803 $illreqmodule->mock( 'metadata', sub { return 'metawhat?'; } );
805 $schema->storage->txn_begin;
807 my $library = $builder->build_object( { class => 'Koha::Libraries' } );
808 my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
809 my $illreq = $builder->build_object(
811 class => 'Koha::Illrequests',
813 branchcode => $library->branchcode,
814 borrowernumber => $patron->borrowernumber
818 my $illreq_json = $illreq->TO_JSON;
819 is( $illreq_json->{patron},
820 undef, '%embed not passed, no \'patron\' attribute' );
821 is( $illreq_json->{metadata},
822 undef, '%embed not passed, no \'metadata\' attribute' );
823 is( $illreq_json->{capabilities},
824 undef, '%embed not passed, no \'capabilities\' attribute' );
825 is( $illreq_json->{branch},
826 undef, '%embed not passed, no \'branch\' attribute' );
828 $illreq_json = $illreq->TO_JSON(
829 { patron => 1, metadata => 1, capabilities => 1, branch => 1 } );
830 is( $illreq_json->{patron}->{firstname},
832 '%embed passed, \'patron\' attribute correct (firstname)' );
833 is( $illreq_json->{patron}->{surname},
835 '%embed passed, \'patron\' attribute correct (surname)' );
836 is( $illreq_json->{patron}->{cardnumber},
838 '%embed passed, \'patron\' attribute correct (cardnumber)' );
839 is( $illreq_json->{metadata},
840 'metawhat?', '%embed passed, \'metadata\' attribute correct' );
841 is( $illreq_json->{capabilities},
842 'capable', '%embed passed, \'capabilities\' attribute correct' );
843 is( $illreq_json->{branch}->{branchcode},
844 $library->branchcode, '%embed not passed, no \'branch\' attribute' );
846 $schema->storage->txn_rollback;