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 => 16;
23 use t::lib::TestBuilder;
33 my $schema = Koha::Database->schema;
34 my $dbh = C4::Context->dbh;
35 $schema->storage->txn_begin;
37 my $builder = t::lib::TestBuilder->new;
39 $dbh->do(q|DELETE FROM issues|);
40 $dbh->do(q|DELETE FROM borrowers|);
41 $dbh->do(q|DELETE FROM items|);
42 $dbh->do(q|DELETE FROM branches|);
43 $dbh->do(q|DELETE FROM biblio|);
44 $dbh->do(q|DELETE FROM categories|);
46 my $branchcode = $builder->build( { source => 'Branch' } )->{branchcode};
47 my $categorycode = $builder->build( { source => 'Category' } )->{categorycode};
48 my $itemtype = $builder->build( { source => 'Itemtype' } )->{itemtype};
51 homebranch => $branchcode,
52 holdingbranch => $branchcode,
56 my ($biblionumber1) = AddBiblio( MARC::Record->new, '' );
58 # FIXME These tests will fail if the barcode exists in DB
59 my $itemnumber1 = $builder->build_sample_item({ biblionumber => $biblionumber1, barcode => '0101', %item_infos })->itemnumber;
60 my $itemnumber2 = $builder->build_sample_item({ biblionumber => $biblionumber1, barcode => '0102', %item_infos })->itemnumber;
62 my ($biblionumber2) = AddBiblio( MARC::Record->new, '' );
63 my $itemnumber3 = $builder->build_sample_item({ biblionumber => $biblionumber2, barcode => '0202', %item_infos })->itemnumber;
66 Koha::Patron->new({ categorycode => $categorycode, branchcode => $branchcode })->store->borrowernumber;
68 Koha::Patron->new({ categorycode => $categorycode, branchcode => $branchcode })->store->borrowernumber;
69 my $borrower1 = Koha::Patrons->find( $borrowernumber1 )->unblessed;
70 my $borrower2 = Koha::Patrons->find( $borrowernumber2 )->unblessed;
72 my $module = new Test::MockModule('C4::Context');
73 $module->mock( 'userenv', sub { { branch => $branchcode } } );
75 my $issues = C4::Members::GetAllIssues();
76 is( $issues, undef, 'GetAllIssues without borrower number returns undef' );
78 $issues = C4::Members::GetAllIssues($borrowernumber1);
79 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
80 $issues = C4::Members::GetAllIssues($borrowernumber2);
81 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
83 AddIssue( $borrower1, '0101' );
84 $issues = C4::Members::GetAllIssues($borrowernumber1);
85 my $issues_with_order =
86 C4::Members::GetAllIssues( $borrowernumber1, 'date_due desc' );
87 is_deeply( $issues, $issues_with_order,
88 'The value by default for the argument order in GellAllIssues is date_due_desc'
90 is( @$issues, 1, 'GetAllIssues returns the correct number of elements' );
91 is( $issues->[0]->{itemnumber}, $itemnumber1, '' );
92 $issues = C4::Members::GetAllIssues($borrowernumber2);
93 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
95 AddIssue( $borrower1, '0102' );
96 $issues = C4::Members::GetAllIssues($borrowernumber1);
97 is( @$issues, 2, 'GetAllIssues returns the correct number of elements' );
98 is( $issues->[0]->{itemnumber}, $itemnumber1, '' );
99 is( $issues->[1]->{itemnumber}, $itemnumber2, '' );
100 $issues = C4::Members::GetAllIssues($borrowernumber2);
101 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
103 AddIssue( $borrower2, '0202' );
104 $issues = C4::Members::GetAllIssues($borrowernumber1);
105 is( @$issues, 2, 'GetAllIssues returns the correct number of elements' );
106 is( $issues->[0]->{itemnumber}, $itemnumber1, '' );
107 is( $issues->[1]->{itemnumber}, $itemnumber2, '' );
108 $issues = C4::Members::GetAllIssues($borrowernumber2);
109 is( @$issues, 1, 'GetAllIssues returns the correct number of elements' );
110 is( $issues->[0]->{itemnumber}, $itemnumber3, '' );
112 $schema->storage->txn_begin;