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 |
- |
|
|