gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Test Improvements : Adding Reserves.t

This commit is contained in:
Henri-Damien LAURENT 2009-12-23 13:12:42 +01:00
parent e75d26e794
commit 67bc72d7bb
1 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
t/db_dependent/Reserves.t Executable file
View File

@ -0,0 +1,62 @@
#!/usr/bin/perl
use strict;
use warnings;
use C4::Branch;
use Test::More tests => 4;
BEGIN {
use FindBin;
use lib $FindBin::Bin;
use_ok('C4::Reserves');
}
my $dbh = C4::Context->dbh;
my $query = qq/SELECT borrowernumber
FROM borrowers
LIMIT 1/;
my $sth = $dbh->prepare($query);
$sth->execute;
my $borrower = $sth->fetchrow_hashref;
$query = qq/SELECT biblionumber, title, itemnumber, barcode
FROM biblio
LEFT JOIN items USING (biblionumber)
WHERE barcode <> ""
AND barcode IS NOT NULL
LIMIT 1/;
$sth = $dbh->prepare($query);
$sth->execute;
my $biblio = $sth->fetchrow_hashref;
my $borrowernumber = $borrower->{'borrowernumber'};
my $biblionumber = $biblio->{'biblionumber'};
my $itemnumber = $biblio->{'itemnumber'};
my $barcode = $biblio->{'barcode'};
my $constraint = 'a';
my $bibitems = '';
my $priority = '1';
my $notes = '';
my $title = $biblio->{'title'};
my $checkitem = undef;
my $found = undef;
my @branches = GetBranchesLoop();
my $branch = $branches[0][0]{value};
AddReserve($branch, $borrowernumber, $biblionumber,
$constraint, $bibitems, $priority, $notes,
$title, $checkitem, $found);
my ($status, $reserve) = CheckReserves($itemnumber, $barcode);
ok($status eq "Reserved", "CheckReserves Test 1");
($status, $reserve) = CheckReserves($itemnumber);
ok($status eq "Reserved", "CheckReserves Test 2");
($status, $reserve) = CheckReserves(undef, $barcode);
ok($status eq "Reserved", "CheckReserves Test 3");