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 |
- |
|
|