t/db_dependent/Reserves.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use C4::Branch;
   6
   7 use Test::More tests => 4;
   8
   9 BEGIN {
  10         use FindBin;
  11         use lib $FindBin::Bin;
  12         use_ok('C4::Reserves');
  13 }
  14
  15 my $dbh = C4::Context->dbh;
  16 my $query = qq/SELECT borrowernumber
  17     FROM   borrowers
  18     LIMIT  1/;
  19 my $sth = $dbh->prepare($query);
  20 $sth->execute;
  21 my $borrower = $sth->fetchrow_hashref;
  22
  23 $query = qq/SELECT biblionumber, title, itemnumber, barcode
  24     FROM biblio
  25     LEFT JOIN items USING (biblionumber)
  26     WHERE barcode <> ""
  27     AND barcode IS NOT NULL
  28     LIMIT  1/;
  29 $sth = $dbh->prepare($query);
  30 $sth->execute;
  31 my $biblio = $sth->fetchrow_hashref;
  32
  33
  34 my $borrowernumber = $borrower->{'borrowernumber'};
  35 my $biblionumber   = $biblio->{'biblionumber'};
  36 my $itemnumber     = $biblio->{'itemnumber'};
  37 my $barcode        = $biblio->{'barcode'};
  38
  39 my $constraint     = 'a';
  40 my $bibitems       = '';
  41 my $priority       = '1';
  42 my $notes          = '';
  43 my $title          = $biblio->{'title'};
  44 my $checkitem      = undef;
  45 my $found          = undef;
  46
  47 my @branches = GetBranchesLoop();
  48 my $branch = $branches[0][0]{value};
  49
  50 AddReserve($branch,    $borrowernumber, $biblionumber,
  51         $constraint, $bibitems,  $priority,       $notes,
  52         $title,      $checkitem, $found);
  53
  54 my ($status, $reserve, $all_reserves) = CheckReserves($itemnumber, $barcode);
  55 ok($status eq "Reserved", "CheckReserves Test 1");
  56
  57 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
  58 ok($status eq "Reserved", "CheckReserves Test 2");
  59
  60 ($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode);
  61 ok($status eq "Reserved", "CheckReserves Test 3");
  62