3 # Copyright 2015 Koha Development team
5 # This file is part of Koha
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use Test
::More tests
=> 7;
27 use Koha
::DateUtils
qw( dt_from_string );
29 use t
::lib
::TestBuilder
;
31 my $schema = Koha
::Database
->new->schema;
32 $schema->storage->txn_begin;
34 my $builder = t
::lib
::TestBuilder
->new;
35 my $library = $builder->build( { source
=> 'Branch' } );
36 my $patron = $builder->build( { source
=> 'Borrower', value
=> { branchcode
=> $library->{branchcode
} } } );
37 my $item_1 = $builder->build( { source
=> 'Item' } );
38 my $item_2 = $builder->build( { source
=> 'Item' } );
39 my $nb_of_checkouts = Koha
::Checkouts
->search->count;
40 my $new_checkout_1 = Koha
::Checkout
->new(
41 { borrowernumber
=> $patron->{borrowernumber
},
42 itemnumber
=> $item_1->{itemnumber
},
43 branchcode
=> $library->{branchcode
},
46 my $new_checkout_2 = Koha
::Checkout
->new(
47 { borrowernumber
=> $patron->{borrowernumber
},
48 itemnumber
=> $item_2->{itemnumber
},
49 branchcode
=> $library->{branchcode
},
53 like
( $new_checkout_1->issue_id, qr
|^\d
+$|, 'Adding a new checkout should have set the issue_id' );
54 is
( Koha
::Checkouts
->search->count, $nb_of_checkouts + 2, 'The 2 checkouts should have been added' );
56 my $retrieved_checkout_1 = Koha
::Checkouts
->find( $new_checkout_1->issue_id );
57 is
( $retrieved_checkout_1->itemnumber, $new_checkout_1->itemnumber, 'Find a checkout by id should return the correct checkout' );
59 subtest
'is_overdue' => sub {
61 my $ten_days_ago = dt_from_string
->add( days
=> -10 );
62 my $ten_days_later = dt_from_string
->add( days
=> 10 );
63 my $yesterday = dt_from_string
->add( days
=> -1 );
64 my $tomorrow = dt_from_string
->add( days
=> 1 );
66 $retrieved_checkout_1->date_due($ten_days_ago)->store;
67 is
( $retrieved_checkout_1->is_overdue,
68 1, 'The item should have been returned 10 days ago' );
70 $retrieved_checkout_1->date_due($ten_days_later)->store;
71 is
( $retrieved_checkout_1->is_overdue, 0, 'The item is due in 10 days' );
73 $retrieved_checkout_1->date_due($tomorrow)->store;
74 is
( $retrieved_checkout_1->is_overdue($ten_days_later),
75 1, 'The item should have been returned yesterday' );
77 $retrieved_checkout_1->date_due($yesterday)->store;
78 is
( $retrieved_checkout_1->is_overdue($ten_days_ago),
79 0, 'Ten days ago the item due yesterday was not late' );
81 $retrieved_checkout_1->date_due($tomorrow)->store;
82 is
( $retrieved_checkout_1->is_overdue($ten_days_later),
83 1, 'In Ten days, the item due tomorrow will be late' );
85 $retrieved_checkout_1->date_due($yesterday)->store;
86 is
( $retrieved_checkout_1->is_overdue($ten_days_ago),
87 0, 'In Ten days, the item due yesterday will still be late' );
90 subtest
'item' => sub {
92 my $item = $retrieved_checkout_1->item;
93 is
( ref( $item ), 'Koha::Item', 'Koha::Checkout->item should return a Koha::Item' );
94 is
( $item->itemnumber, $item_1->{itemnumber
}, 'Koha::Checkout->item should return the correct item' );
97 subtest
'patron' => sub {
99 my $patron = $builder->build_object({class=>'Koha::Patrons', value
=> {branchcode
=> $library->{branchcode
}}});
101 my $item = $builder->build_object( { class=> 'Koha::Items' } );
102 my $checkout = Koha
::Checkout
->new(
103 { borrowernumber
=> $patron->borrowernumber,
104 itemnumber
=> $item->itemnumber,
105 branchcode
=> $library->{branchcode
},
109 my $p = $checkout->patron;
110 is
( ref($p), 'Koha::Patron',
111 'Koha::Checkout->patron should return a Koha::Patron' );
112 is
( $p->borrowernumber, $patron->borrowernumber,
113 'Koha::Checkout->patron should return the correct patron' );
115 # Testing Koha::Old::Checkout->patron now
116 my $issue_id = $checkout->issue_id;
117 C4
::Circulation
::MarkIssueReturned
( $p->borrowernumber, $checkout->itemnumber );
119 my $old_issue = Koha
::Old
::Checkouts
->find($issue_id);
120 is
( $old_issue->patron, undef,
121 'Koha::Checkout->patron should return undef if the patron record has been deleted'
125 $retrieved_checkout_1->delete;
126 is
( Koha
::Checkouts
->search->count, $nb_of_checkouts + 1, 'Delete should have deleted the checkout' );
128 $schema->storage->txn_rollback;