t/db_dependent/Circulation/GetIssues.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 10;
   6 use Test::MockModule;
   7 use C4::Biblio;
   8 use C4::Items;
   9 use C4::Members;
  10 use C4::Circulation;
  11 use Koha::Library;
  12 use Koha::Libraries;
  13 use Koha::Patron::Categories;
  14 use MARC::Record;
  15
  16 my $dbh = C4::Context->dbh;
  17 $dbh->{AutoCommit} = 0;
  18 $dbh->{RaiseError} = 1;
  19
  20 $dbh->do(q|DELETE FROM issues|);
  21
  22 my $branchcode;
  23 my $branch_created;
  24 my @libraries = Koha::Libraries->search;
  25 if (@libraries) {
  26     $branchcode = $libraries[0]->branchcode;
  27 } else {
  28     $branchcode = 'B';
  29     Koha::Library->new({ branchcode => $branchcode, branchname => 'Branch' })->store;
  30     $branch_created = 1;
  31 }
  32
  33 my %item_branch_infos = (
  34     homebranch => $branchcode,
  35     holdingbranch => $branchcode,
  36 );
  37
  38 my ($biblionumber1) = AddBiblio(MARC::Record->new, '');
  39 my $itemnumber1 = AddItem({ barcode => '0101', %item_branch_infos }, $biblionumber1);
  40 my $itemnumber2 = AddItem({ barcode => '0102', %item_branch_infos }, $biblionumber1);
  41
  42 my ($biblionumber2) = AddBiblio(MARC::Record->new, '');
  43 my $itemnumber3 = AddItem({ barcode => '0203', %item_branch_infos }, $biblionumber2);
  44
  45 my $categorycode;
  46 my $category_created;
  47 my @categories = Koha::Patron::Categories->search_limited;
  48 if (@categories) {
  49     $categorycode = $categories[0]->categorycode
  50 } else {
  51     $categorycode = 'C';
  52     C4::Context->dbh->do(
  53         "INSERT INTO categories(categorycode) VALUES(?)", undef, $categorycode);
  54     $category_created = 1;
  55 }
  56
  57 my $borrowernumber = AddMember(categorycode => $categorycode, branchcode => $branchcode);
  58 my $borrower = GetMember(borrowernumber => $borrowernumber);
  59
  60 # Need to mock userenv for AddIssue
  61 my $module = new Test::MockModule('C4::Context');
  62 $module->mock('userenv', sub { { branch => $branchcode } });
  63 AddIssue($borrower, '0101');
  64 AddIssue($borrower, '0203');
  65
  66 # Begin tests...
  67 my $issues;
  68 $issues = C4::Circulation::GetIssues({biblionumber => $biblionumber1});
  69 is(scalar @$issues, 1, "Biblio $biblionumber1 has 1 item issued");
  70 is($issues->[0]->{itemnumber}, $itemnumber1, "First item of biblio $biblionumber1 is issued");
  71
  72 $issues = C4::Circulation::GetIssues({biblionumber => $biblionumber2});
  73 is(scalar @$issues, 1, "Biblio $biblionumber2 has 1 item issued");
  74 is($issues->[0]->{itemnumber}, $itemnumber3, "First item of biblio $biblionumber2 is issued");
  75
  76 $issues = C4::Circulation::GetIssues({borrowernumber => $borrowernumber});
  77 is(scalar @$issues, 2, "Borrower $borrowernumber checked out 2 items");
  78
  79 $issues = C4::Circulation::GetIssues({borrowernumber => $borrowernumber, biblionumber => $biblionumber1});
  80 is(scalar @$issues, 1, "One of those is an item from biblio $biblionumber1");
  81
  82 $issues = C4::Circulation::GetIssues({borrowernumber => $borrowernumber, biblionumber => $biblionumber2});
  83 is(scalar @$issues, 1, "The other is an item from biblio $biblionumber2");
  84
  85 $issues = C4::Circulation::GetIssues({itemnumber => $itemnumber2});
  86 is(scalar @$issues, 0, "No one has issued the second item of biblio $biblionumber2");
  87
  88 my $onsite_checkouts = GetPendingOnSiteCheckouts;
  89 is( scalar @$onsite_checkouts, 0, "No pending on-site checkouts" );
  90
  91 my $itemnumber4 = AddItem({ barcode => '0104', %item_branch_infos }, $biblionumber1);
  92 AddIssue( $borrower, '0104', undef, undef, undef, undef, { onsite_checkout => 1 } );
  93 $onsite_checkouts = GetPendingOnSiteCheckouts;
  94 is( scalar @$onsite_checkouts, 1, "There is 1 pending on-site checkout" );