t/db_dependent/Circulation/ReturnClaims.t

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   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.
   9 #
  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.
  14 #
  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>.
  17
  18 use Modern::Perl;
  19
  20 use Test::More tests => 2;
  21 use Test::MockModule;
  22 use Test::Warn;
  23
  24 use t::lib::Mocks;
  25 use t::lib::TestBuilder;
  26
  27 use C4::Circulation;
  28
  29 # Mock userenv, used by AddIssue
  30 my $branch;
  31 my $manager_id;
  32 my $context = Test::MockModule->new('C4::Context');
  33 $context->mock(
  34     'userenv',
  35     sub {
  36         return {
  37             branch    => $branch,
  38             number    => $manager_id,
  39             firstname => "Adam",
  40             surname   => "Smaith"
  41         };
  42     }
  43 );
  44
  45 my $schema = Koha::Database->schema;
  46 $schema->storage->txn_begin;
  47
  48 my $builder = t::lib::TestBuilder->new();
  49 Koha::IssuingRules->search->delete;
  50 my $rule = Koha::IssuingRule->new(
  51     {
  52         categorycode => '*',
  53         itemtype     => '*',
  54         branchcode   => '*',
  55         issuelength  => 1,
  56     }
  57 );
  58 $rule->store();
  59
  60 $branch = $builder->build( { source => 'Branch' } )->{branchcode};
  61
  62 subtest 'Test Koha::Checkout::claim_returned' => sub {
  63     plan tests => 6;
  64
  65     t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 );
  66     my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
  67     my $item   = $builder->build_object(
  68         {
  69             class => 'Koha::Items',
  70             value => {
  71                 biblionumber => $biblio->biblionumber,
  72                 notforloan   => 0,
  73                 itemlost     => 0,
  74                 withdrawn    => 0,
  75             }
  76         }
  77     );
  78     my $patron   = $builder->build_object( { class => 'Koha::Patrons' } );
  79     my $checkout = AddIssue( $patron->unblessed, $item->barcode );
  80
  81     my $claim = $checkout->claim_returned(
  82         {
  83             created_by => $patron->id,
  84             notes      => "Test note",
  85         }
  86     );
  87
  88     is( $claim->issue_id, $checkout->id, "Claim issue id matches" );
  89     is( $claim->itemnumber, $item->id, "Claim itemnumber matches" );
  90     is( $claim->borrowernumber, $patron->id, "Claim borrowernumber matches" );
  91     is( $claim->notes, "Test note", "Claim notes match" );
  92     is( $claim->created_by, $patron->id, "Claim created_by matches" );
  93     ok( $claim->created_on, "Claim created_on is set" );
  94 };
  95
  96 subtest 'Test Koha::Patronn::return_claims' => sub {
  97     plan tests => 7;
  98
  99     t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 );
 100     my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
 101     my $item   = $builder->build_object(
 102         {
 103             class => 'Koha::Items',
 104             value => {
 105                 biblionumber => $biblio->biblionumber,
 106                 notforloan   => 0,
 107                 itemlost     => 0,
 108                 withdrawn    => 0,
 109             }
 110         }
 111     );
 112     my $patron   = $builder->build_object( { class => 'Koha::Patrons' } );
 113     my $checkout = AddIssue( $patron->unblessed, $item->barcode );
 114
 115     $checkout->claim_returned(
 116         {
 117             created_by => $patron->id,
 118             notes      => "Test note",
 119         }
 120     );
 121
 122     my $claims = $patron->return_claims;
 123
 124     is( $claims->count, 1, "Got back correct number of claims" );
 125
 126     my $claim = $claims->next;
 127
 128     is( $claim->issue_id, $checkout->id, "Claim issue id matches" );
 129     is( $claim->itemnumber, $item->id, "Claim itemnumber matches" );
 130     is( $claim->borrowernumber, $patron->id, "Claim borrowernumber matches" );
 131     is( $claim->notes, "Test note", "Claim notes match" );
 132     is( $claim->created_by, $patron->id, "Claim created_by matches" );
 133     ok( $claim->created_on, "Claim created_on is set" );
 134 };
 135
 136 $schema->storage->txn_rollback;