Lines 40-46
use C4::Biblio qw( AddBiblio ); # We shouldn't use it
Link Here
|
40 |
|
40 |
|
41 |
use Koha::CirculationRules; |
41 |
use Koha::CirculationRules; |
42 |
|
42 |
|
43 |
use Test::More tests => 20; |
43 |
use Test::More tests => 22; |
44 |
use MARC::Record; |
44 |
use MARC::Record; |
45 |
use MARC::Field; |
45 |
use MARC::Field; |
46 |
|
46 |
|
Lines 77-82
our $sample_data = {
Link Here
|
77 |
issuelength => '5', |
77 |
issuelength => '5', |
78 |
lengthunit => 'days', |
78 |
lengthunit => 'days', |
79 |
renewalperiod => '5', |
79 |
renewalperiod => '5', |
|
|
80 |
reservesallowed => '5', |
81 |
onshelfholds => '1', |
82 |
opacitemholds => 'Y', |
80 |
}, |
83 |
}, |
81 |
}; |
84 |
}; |
82 |
our ( $borrowernumber, $start, $prev_time, $cleanup_needed ); |
85 |
our ( $borrowernumber, $start, $prev_time, $cleanup_needed ); |
Lines 85-91
$dbh->do(q|INSERT INTO itemtypes(itemtype) VALUES (?)|, undef, $sample_data->{it
Link Here
|
85 |
|
88 |
|
86 |
SKIP: { |
89 |
SKIP: { |
87 |
eval { require Selenium::Remote::Driver; }; |
90 |
eval { require Selenium::Remote::Driver; }; |
88 |
skip "Selenium::Remote::Driver is needed for selenium tests.", 20 if $@; |
91 |
skip "Selenium::Remote::Driver is needed for selenium tests.", 22 if $@; |
89 |
|
92 |
|
90 |
$cleanup_needed = 1; |
93 |
$cleanup_needed = 1; |
91 |
|
94 |
|
Lines 155-166
SKIP: {
Link Here
|
155 |
categorycode => $issuing_rules->{categorycode}, |
158 |
categorycode => $issuing_rules->{categorycode}, |
156 |
itemtype => $issuing_rules->{itemtype}, |
159 |
itemtype => $issuing_rules->{itemtype}, |
157 |
branchcode => $issuing_rules->{branchcode}, |
160 |
branchcode => $issuing_rules->{branchcode}, |
158 |
rules => { |
161 |
rules => { |
159 |
maxissueqty => $issuing_rules->{maxissueqty}, |
162 |
maxissueqty => $issuing_rules->{maxissueqty}, |
160 |
issuelength => $issuing_rules->{issuelength}, |
163 |
issuelength => $issuing_rules->{issuelength}, |
161 |
lengthunit => $issuing_rules->{lengthunit}, |
164 |
lengthunit => $issuing_rules->{lengthunit}, |
162 |
renewalperiod => $issuing_rules->{renewalperiod}, |
165 |
renewalperiod => $issuing_rules->{renewalperiod}, |
163 |
} |
166 |
reservesallowed => $issuing_rules->{reservesallowed}, |
|
|
167 |
onshelfholds => $issuing_rules->{onshelfholds}, |
168 |
opacitemholds => $issuing_rules->{opacitemholds}, |
169 |
|
170 |
} |
164 |
} |
171 |
} |
165 |
); |
172 |
); |
166 |
|
173 |
|
Lines 227-232
SKIP: {
Link Here
|
227 |
|
234 |
|
228 |
time_diff("checkin"); |
235 |
time_diff("checkin"); |
229 |
|
236 |
|
|
|
237 |
#Place holds |
238 |
$driver->get($base_url."/reserve/request.pl?borrowernumber=$borrowernumber&biblionumber=".$biblionumbers[0]); |
239 |
$driver->find_element('//form[@id="hold-request-form"]//input[@type="submit"]')->click; # Biblio level |
240 |
my $patron = Koha::Patrons->find($borrowernumber); |
241 |
is( $patron->holds->count, 1, ); |
242 |
|
243 |
$driver->get($base_url."/reserve/request.pl?borrowernumber=$borrowernumber&biblionumber=".$biblionumbers[1]); |
244 |
$driver->find_element('//form[@id="hold-request-form"]//input[@type="radio"]')->click; # Item level, there is only 1 item per bib so we are safe |
245 |
$driver->find_element('//form[@id="hold-request-form"]//input[@type="submit"]')->click; |
246 |
is( $patron->holds->count, 2, ); |
247 |
|
248 |
time_diff("holds"); |
249 |
|
230 |
close $fh; |
250 |
close $fh; |
231 |
$driver->quit(); |
251 |
$driver->quit(); |
232 |
}; |
252 |
}; |
233 |
- |
|
|