|
Lines 44-49
SKIP: {
Link Here
|
| 44 |
eval { require Selenium::Remote::Driver; }; |
44 |
eval { require Selenium::Remote::Driver; }; |
| 45 |
skip "Selenium::Remote::Driver is needed for selenium tests.", 2 if $@; |
45 |
skip "Selenium::Remote::Driver is needed for selenium tests.", 2 if $@; |
| 46 |
|
46 |
|
|
|
47 |
skip "This test must be run with an empty DB. We are using KOHA_TESTING that is set by our CI\nIf you really want to run it, set this env var.", 2 unless $ENV{KOHA_TESTING}; |
| 48 |
|
| 49 |
my $dbh = eval { C4::Context->dbh; }; |
| 50 |
skip "Tests won't run if the database does not exist", 2 if $@; |
| 51 |
|
| 52 |
{ |
| 53 |
my $dup_err; |
| 54 |
local *STDERR; |
| 55 |
open STDERR, ">>", \$dup_err; |
| 56 |
$dbh->do(q| |
| 57 |
SELECT * FROM systempreferences WHERE 1 = 0 | |
| 58 |
); |
| 59 |
close STDERR; |
| 60 |
if ( $dup_err ) { |
| 61 |
skip "Tests won't run if the database is not empty", 2 if $@; |
| 62 |
} |
| 63 |
} |
| 64 |
|
| 47 |
my $s = t::lib::Selenium->new; |
65 |
my $s = t::lib::Selenium->new; |
| 48 |
|
66 |
|
| 49 |
my $driver = $s->driver; |
67 |
my $driver = $s->driver; |
| 50 |
- |
|
|