View | Details | Raw Unified | Return to bug 13851
Collapse All | Expand All

(-)a/t/db_dependent/Holds.t (-2 / +18 lines)
Lines 6-18 use t::lib::Mocks; Link Here
6
use C4::Context;
6
use C4::Context;
7
use C4::Branch;
7
use C4::Branch;
8
8
9
use Test::More tests => 41;
9
use Test::More tests => 49;
10
use MARC::Record;
10
use MARC::Record;
11
use C4::Biblio;
11
use C4::Biblio;
12
use C4::Items;
12
use C4::Items;
13
use C4::Members;
13
use C4::Members;
14
use C4::Calendar;
14
use C4::Calendar;
15
15
16
use Koha::Holds;
17
16
use Koha::DateUtils qw( dt_from_string output_pref );
18
use Koha::DateUtils qw( dt_from_string output_pref );
17
19
18
BEGIN {
20
BEGIN {
Lines 30-35 $dbh->{RaiseError} = 1; Link Here
30
my $borrowers_count = 5;
32
my $borrowers_count = 5;
31
33
32
$dbh->do('DELETE FROM itemtypes');
34
$dbh->do('DELETE FROM itemtypes');
35
$dbh->do('DELETE FROM reserves');
33
my $insert_sth = $dbh->prepare('INSERT INTO itemtypes (itemtype) VALUES (?)');
36
my $insert_sth = $dbh->prepare('INSERT INTO itemtypes (itemtype) VALUES (?)');
34
$insert_sth->execute('CAN');
37
$insert_sth->execute('CAN');
35
$insert_sth->execute('CANNOT');
38
$insert_sth->execute('CANNOT');
Lines 88-93 is( $borrowernumber, $borrowernumbers[0], "GetReservesFromItemnumber should retu Link Here
88
is( $branchcode, 'CPL', "GetReservesFromItemnumber should return a valid branchcode");
91
is( $branchcode, 'CPL', "GetReservesFromItemnumber should return a valid branchcode");
89
ok($reserve_id, "Test GetReservesFromItemnumber()");
92
ok($reserve_id, "Test GetReservesFromItemnumber()");
90
93
94
my $hold = Koha::Holds->find( $reserve_id );
95
ok( $hold, "Koha::Holds found the hold" );
96
my $hold_biblio = $hold->biblio();
97
ok( $hold_biblio, "Got biblio using biblio() method" );
98
ok( $hold_biblio == $hold->biblio(), "biblio method returns stashed biblio" );
99
my $hold_item = $hold->item();
100
ok( $hold_item, "Got item using item() method" );
101
ok( $hold_item == $hold->item(), "item method returns stashed item" );
102
my $hold_branch = $hold->branch();
103
ok( $hold_branch, "Got branch using branch() method" );
104
ok( $hold_branch == $hold->branch(), "branch method returns stashed branch" );
105
my $hold_found = $hold->found();
106
$hold->set({ found => 'W'})->store();
107
is( Koha::Holds->waiting()->count(), 1, "Koha::Holds->waiting returns waiting holds" );
91
108
92
my ( $reserve ) = GetReservesFromBorrowernumber($borrowernumbers[0]);
109
my ( $reserve ) = GetReservesFromBorrowernumber($borrowernumbers[0]);
93
ok( $reserve->{'borrowernumber'} eq $borrowernumbers[0], "Test GetReservesFromBorrowernumber()");
110
ok( $reserve->{'borrowernumber'} eq $borrowernumbers[0], "Test GetReservesFromBorrowernumber()");
94
- 

Return to bug 13851