t/db_dependent/Circulation/GetIssues.t

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