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