7 use Test
::More tests
=> 10;
9 use t
::lib
::TestBuilder
;
12 use_ok
('C4::Reserves');
15 my $schema = Koha
::Database
->schema;
16 $schema->storage->txn_begin;
17 my $dbh = C4
::Context
->dbh;
19 my $builder = t
::lib
::TestBuilder
->new;
21 my $library1 = $builder->build({
24 my $library2 = $builder->build({
27 my $library3 = $builder->build({
31 my $bib_title = "Test Title";
33 my $borrower = $builder->build({
37 branchcode
=> $library1->{branchcode
},
41 # Test hold_fulfillment_policy
42 my ( $itemtype ) = @
{ $dbh->selectrow_arrayref("SELECT itemtype FROM itemtypes LIMIT 1") };
43 my $borrowernumber = $borrower->{borrowernumber
};
44 my $library_A = $library1->{branchcode
};
45 my $library_B = $library2->{branchcode
};
46 my $library_C = $library3->{branchcode
};
47 $dbh->do("DELETE FROM transport_cost");
48 $dbh->do("DELETE FROM tmp_holdsqueue");
49 $dbh->do("DELETE FROM hold_fill_targets");
50 $dbh->do("DELETE FROM default_branch_circ_rules");
51 $dbh->do("DELETE FROM default_branch_item_rules");
52 $dbh->do("DELETE FROM default_circ_rules");
53 $dbh->do("DELETE FROM branch_item_rules");
55 $dbh->do("INSERT INTO biblio (frameworkcode, author, title, datecreated) VALUES ('', 'Koha test', '$bib_title', '2011-02-01')");
57 my $biblionumber = $dbh->selectrow_array("SELECT biblionumber FROM biblio WHERE title = '$bib_title'")
58 or BAIL_OUT
("Cannot find newly created biblio record");
60 $dbh->do("INSERT INTO biblioitems (biblionumber, marcxml, itemtype) VALUES ($biblionumber, '', '$itemtype')");
62 my $biblioitemnumber =
63 $dbh->selectrow_array("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber = $biblionumber")
64 or BAIL_OUT
("Cannot find newly created biblioitems record");
67 INSERT INTO items (biblionumber, biblioitemnumber, homebranch, holdingbranch, notforloan, damaged, itemlost, withdrawn, onloan, itype)
68 VALUES ($biblionumber, $biblioitemnumber, '$library_A', '$library_B', 0, 0, 0, 0, NULL, '$itemtype')
72 $dbh->selectrow_array("SELECT itemnumber FROM items WHERE biblionumber = $biblionumber")
73 or BAIL_OUT
("Cannot find newly created item");
75 # With hold_fulfillment_policy = homebranch, hold should only be picked up if pickup branch = homebranch
76 $dbh->do("DELETE FROM default_circ_rules");
77 $dbh->do("INSERT INTO default_circ_rules ( holdallowed, hold_fulfillment_policy ) VALUES ( 2, 'homebranch' )");
79 # Home branch matches pickup branch
80 my $reserve_id = AddReserve
( $library_A, $borrowernumber, $biblionumber, '', 1 );
81 my ( $status ) = CheckReserves
($itemnumber);
82 is
( $status, 'Reserved', "Hold where pickup branch matches home branch targeted" );
83 CancelReserve
( { reserve_id
=> $reserve_id } );
85 # Holding branch matches pickup branch
86 $reserve_id = AddReserve
( $library_B, $borrowernumber, $biblionumber, '', 1 );
87 ( $status ) = CheckReserves
($itemnumber);
88 is
($status, q{}, "Hold where pickup ne home, pickup eq home not targeted" );
89 CancelReserve
( { reserve_id
=> $reserve_id } );
91 # Neither branch matches pickup branch
92 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
93 ( $status ) = CheckReserves
($itemnumber);
94 is
( $status, q{}, "Hold where pickup ne home, pickup ne holding not targeted" );
95 CancelReserve
( { reserve_id
=> $reserve_id } );
97 # With hold_fulfillment_policy = holdingbranch, hold should only be picked up if pickup branch = holdingbranch
98 $dbh->do("DELETE FROM default_circ_rules");
99 $dbh->do("INSERT INTO default_circ_rules ( holdallowed, hold_fulfillment_policy ) VALUES ( 2, 'holdingbranch' )");
101 # Home branch matches pickup branch
102 $reserve_id = AddReserve
( $library_A, $borrowernumber, $biblionumber, '', 1 );
103 ( $status ) = CheckReserves
($itemnumber);
104 is
( $status, q{}, "Hold where pickup eq home, pickup ne holding not targeted" );
105 CancelReserve
( { reserve_id
=> $reserve_id } );
107 # Holding branch matches pickup branch
108 $reserve_id = AddReserve
( $library_B, $borrowernumber, $biblionumber, '', 1 );
109 ( $status ) = CheckReserves
($itemnumber);
110 is
( $status, 'Reserved', "Hold where pickup ne home, pickup eq holding targeted" );
111 CancelReserve
( { reserve_id
=> $reserve_id } );
113 # Neither branch matches pickup branch
114 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
115 ( $status ) = CheckReserves
($itemnumber);
116 is
( $status, q{}, "Hold where pickup ne home, pickup ne holding not targeted" );
117 CancelReserve
( { reserve_id
=> $reserve_id } );
119 # With hold_fulfillment_policy = any, hold should be pikcup up reguardless of matching home or holding branch
120 $dbh->do("DELETE FROM default_circ_rules");
121 $dbh->do("INSERT INTO default_circ_rules ( holdallowed, hold_fulfillment_policy ) VALUES ( 2, 'any' )");
123 # Home branch matches pickup branch
124 $reserve_id = AddReserve
( $library_A, $borrowernumber, $biblionumber, '', 1 );
125 ( $status ) = CheckReserves
($itemnumber);
126 is
( $status, 'Reserved', "Hold where pickup eq home, pickup ne holding targeted" );
127 CancelReserve
( { reserve_id
=> $reserve_id } );
129 # Holding branch matches pickup branch
130 $reserve_id = AddReserve
( $library_B, $borrowernumber, $biblionumber, '', 1 );
131 ( $status ) = CheckReserves
($itemnumber);
132 is
( $status, 'Reserved', "Hold where pickup ne home, pickup eq holding targeted" );
133 CancelReserve
( { reserve_id
=> $reserve_id } );
135 # Neither branch matches pickup branch
136 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
137 ( $status ) = CheckReserves
($itemnumber);
138 is
( $status, 'Reserved', "Hold where pickup ne home, pickup ne holding targeted" );
139 CancelReserve
( { reserve_id
=> $reserve_id } );