|
Lines 85-98
our $sample_data = {
Link Here
|
| 85 |
}; |
85 |
}; |
| 86 |
our ( $borrowernumber, $start, $prev_time, $cleanup_needed ); |
86 |
our ( $borrowernumber, $start, $prev_time, $cleanup_needed ); |
| 87 |
|
87 |
|
| 88 |
$dbh->do(q|INSERT INTO itemtypes(itemtype) VALUES (?)|, undef, $sample_data->{itemtype}{itemtype}); |
|
|
| 89 |
|
| 90 |
SKIP: { |
88 |
SKIP: { |
| 91 |
eval { require Selenium::Remote::Driver; }; |
89 |
eval { require Selenium::Remote::Driver; }; |
| 92 |
skip "Selenium::Remote::Driver is needed for selenium tests.", 22 if $@; |
90 |
skip "Selenium::Remote::Driver is needed for selenium tests.", 22 if $@; |
| 93 |
|
91 |
|
| 94 |
$cleanup_needed = 1; |
92 |
$cleanup_needed = 1; |
| 95 |
|
93 |
|
|
|
94 |
$dbh->do(q|INSERT INTO itemtypes(itemtype) VALUES (?)|, undef, $sample_data->{itemtype}{itemtype}); |
| 95 |
|
| 96 |
open my $fh, '>>', '/tmp/output.txt'; |
96 |
open my $fh, '>>', '/tmp/output.txt'; |
| 97 |
|
97 |
|
| 98 |
my $s = t::lib::Selenium->new; |
98 |
my $s = t::lib::Selenium->new; |