5 use Test::More tests => 4;
14 use_ok('C4::Reserves');
17 # Setup Test------------------------
19 diag("\nCreating biblio instance for testing.");
20 my $bib = MARC::Record->new();
21 my $title = 'Silence in the library';
23 MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
24 MARC::Field->new('245', ' ', ' ', a => $title),
26 my ($bibnum, $bibitemnum);
27 ($bibnum, $title, $bibitemnum) = AddBiblio($bib, '');
28 # Helper item for that biblio.
29 diag("Creating item instance for testing.");
30 my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
32 # Modify item; setting barcode.
33 my $testbarcode = '97531';
34 ModItem({ barcode => $testbarcode }, $bibnum, $itemnumber);
38 cardnumber => 'CARDNUMBER42',
39 firstname => 'my firstname',
40 surname => 'my surname',
44 my $borrowernumber = AddMember(%data);
45 my $borrower = GetMember( borrowernumber => $borrowernumber );
46 my $biblionumber = $bibnum;
47 my $barcode = $testbarcode;
55 my $checkitem = undef;
58 my @branches = GetBranchesLoop();
59 my $branch = $branches[0][0]{value};
61 AddReserve($branch, $borrowernumber, $biblionumber,
62 $constraint, $bibitems, $priority, $resdate, $expdate, $notes,
63 $title, $checkitem, $found);
65 my ($status, $reserve, $all_reserves) = CheckReserves($itemnumber, $barcode);
67 is($status, "Reserved", "CheckReserves Test 1");
69 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
70 is($status, "Reserved", "CheckReserves Test 2");
72 ($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode);
73 is($status, "Reserved", "CheckReserves Test 3");
76 # Teardown Test---------------------
78 diag("Deleting item testing instance.");
79 my $dbh = C4::Context->dbh;
80 DelItem($dbh, $bibnum, $itemnumber);
82 # Delete helper Biblio.
83 diag("Deleting biblio testing instance.");
87 diag("Deleting borrower.");
88 DelMember($borrowernumber);