t/db_dependent/Members/GetAllIssues.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 16;
   6 use Test::MockModule;
   7
   8 use C4::Biblio;
   9 use C4::Items;
  10 use C4::Members;
  11 use C4::Branch;
  12 use C4::Category;
  13 use C4::Circulation;
  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 $dbh->do(q|DELETE FROM borrowers|);
  22 $dbh->do(q|DELETE FROM items|);
  23 $dbh->do(q|DELETE FROM branches|);
  24 $dbh->do(q|DELETE FROM biblio|);
  25 $dbh->do(q|DELETE FROM categories|);
  26
  27 my $branchcode = 'B';
  28 ModBranch( { add => 1, branchcode => $branchcode, branchname => 'Branch' } );
  29
  30 my $categorycode = 'C';
  31 $dbh->do( "INSERT INTO categories(categorycode) VALUES(?)",
  32     undef, $categorycode );
  33
  34 my %item_branch_infos = (
  35     homebranch    => $branchcode,
  36     holdingbranch => $branchcode,
  37 );
  38
  39 my ($biblionumber1) = AddBiblio( MARC::Record->new, '' );
  40 my $itemnumber1 =
  41   AddItem( { barcode => '0101', %item_branch_infos }, $biblionumber1 );
  42 my $itemnumber2 =
  43   AddItem( { barcode => '0102', %item_branch_infos }, $biblionumber1 );
  44
  45 my ($biblionumber2) = AddBiblio( MARC::Record->new, '' );
  46 my $itemnumber3 =
  47   AddItem( { barcode => '0203', %item_branch_infos }, $biblionumber2 );
  48
  49 my $borrowernumber1 =
  50   AddMember( categorycode => $categorycode, branchcode => $branchcode );
  51 my $borrowernumber2 =
  52   AddMember( categorycode => $categorycode, branchcode => $branchcode );
  53 my $borrower1 = GetMember( borrowernumber => $borrowernumber1 );
  54 my $borrower2 = GetMember( borrowernumber => $borrowernumber2 );
  55
  56 my $module = new Test::MockModule('C4::Context');
  57 $module->mock( 'userenv', sub { { branch => $branchcode } } );
  58
  59 my $issues = C4::Members::GetAllIssues();
  60 is( $issues, undef, 'GetAllIssues without borrower number returns undef' );
  61
  62 $issues = C4::Members::GetAllIssues($borrowernumber1);
  63 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
  64 $issues = C4::Members::GetAllIssues($borrowernumber2);
  65 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
  66
  67 AddIssue( $borrower1, '0101' );
  68 $issues = C4::Members::GetAllIssues($borrowernumber1);
  69 my $issues_with_order =
  70   C4::Members::GetAllIssues( $borrowernumber1, 'date_due desc' );
  71 is_deeply( $issues, $issues_with_order,
  72 'The value by default for the argument order in GellAllIssues is date_due_desc'
  73 );
  74 is( @$issues, 1, 'GetAllIssues returns the correct number of elements' );
  75 is( $issues->[0]->{itemnumber}, $itemnumber1, '' );
  76 $issues = C4::Members::GetAllIssues($borrowernumber2);
  77 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
  78
  79 AddIssue( $borrower1, '0102' );
  80 $issues = C4::Members::GetAllIssues($borrowernumber1);
  81 is( @$issues, 2, 'GetAllIssues returns the correct number of elements' );
  82 is( $issues->[0]->{itemnumber}, $itemnumber1, '' );
  83 is( $issues->[1]->{itemnumber}, $itemnumber2, '' );
  84 $issues = C4::Members::GetAllIssues($borrowernumber2);
  85 is( @$issues, 0, 'GetAllIssues returns the correct number of elements' );
  86
  87 AddIssue( $borrower2, '0203' );
  88 $issues = C4::Members::GetAllIssues($borrowernumber1);
  89 is( @$issues, 2, 'GetAllIssues returns the correct number of elements' );
  90 is( $issues->[0]->{itemnumber}, $itemnumber1, '' );
  91 is( $issues->[1]->{itemnumber}, $itemnumber2, '' );
  92 $issues = C4::Members::GetAllIssues($borrowernumber2);
  93 is( @$issues, 1, 'GetAllIssues returns the correct number of elements' );
  94 is( $issues->[0]->{itemnumber}, $itemnumber3, '' );
  95
  96 $dbh->rollback();