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

(-)a/t/db_dependent/selenium/basic_workflow.t (-4 / +31 lines)
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-89 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 );
83
86
84
SKIP: {
87
SKIP: {
85
    eval { require Selenium::Remote::Driver; };
88
    eval { require Selenium::Remote::Driver; };
86
    skip "Selenium::Remote::Driver is needed for selenium tests.", 20 if $@;
89
    skip "Selenium::Remote::Driver is needed for selenium tests.", 22 if $@;
87
90
88
    $cleanup_needed = 1;
91
    $cleanup_needed = 1;
89
92
Lines 149-155 SKIP: { Link Here
149
    $dbh->do(q|INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan) VALUES (?, ?, ?, ?)|, undef, $itemtype->{itemtype}, $itemtype->{description}, $itemtype->{rentalcharge}, $itemtype->{notforloan});
152
    $dbh->do(q|INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan) VALUES (?, ?, ?, ?)|, undef, $itemtype->{itemtype}, $itemtype->{description}, $itemtype->{rentalcharge}, $itemtype->{notforloan});
150
153
151
    my $issuing_rules = $sample_data->{issuingrule};
154
    my $issuing_rules = $sample_data->{issuingrule};
152
    $dbh->do(q|INSERT INTO issuingrules (categorycode, itemtype, branchcode, issuelength, lengthunit, renewalperiod) VALUES (?, ?, ?, ?, ?, ?)|, undef, $issuing_rules->{categorycode}, $issuing_rules->{itemtype}, $issuing_rules->{branchcode}, $issuing_rules->{issuelength}, $issuing_rules->{lengthunit}, $issuing_rules->{renewalperiod});
155
    $dbh->do(
156
        q|INSERT INTO issuingrules (categorycode, itemtype, branchcode, issuelength, lengthunit, renewalperiod, reservesallowed, onshelfholds, opacitemholds) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)|,
157
        undef,
158
        $issuing_rules->{categorycode},
159
        $issuing_rules->{itemtype},
160
        $issuing_rules->{branchcode},
161
        $issuing_rules->{issuelength},
162
        $issuing_rules->{lengthunit},
163
        $issuing_rules->{renewalperiod},
164
        $issuing_rules->{reservesallowed},
165
        $issuing_rules->{onshelfholds},
166
        $issuing_rules->{opacitemholds},
167
    );
153
    Koha::CirculationRules->set_rules(
168
    Koha::CirculationRules->set_rules(
154
        {
169
        {
155
            categorycode => $issuing_rules->{categorycode},
170
            categorycode => $issuing_rules->{categorycode},
Lines 224-229 SKIP: { Link Here
224
239
225
    time_diff("checkin");
240
    time_diff("checkin");
226
241
242
    #Place holds
243
    $driver->get($base_url."/reserve/request.pl?borrowernumber=$borrowernumber&biblionumber=".$biblionumbers[0]);
244
    $driver->find_element('//form[@id="hold-request-form"]//input[@type="submit"]')->click; # Biblio level
245
    my $patron = Koha::Patrons->find($borrowernumber);
246
    is( $patron->holds->count, 1, );
247
248
    $driver->get($base_url."/reserve/request.pl?borrowernumber=$borrowernumber&biblionumber=".$biblionumbers[1]);
249
    $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
250
    $driver->find_element('//form[@id="hold-request-form"]//input[@type="submit"]')->click;
251
    is( $patron->holds->count, 2, );
252
253
    time_diff("holds");
254
227
    close $fh;
255
    close $fh;
228
    $driver->quit();
256
    $driver->quit();
229
};
257
};
230
- 

Return to bug 22898