Lines 60-65
SKIP: {
Link Here
|
60 |
skip "Tests won't run if the database does not exist", 3 if $@; |
60 |
skip "Tests won't run if the database does not exist", 3 if $@; |
61 |
|
61 |
|
62 |
{ |
62 |
{ |
|
|
63 |
# Ignore expected warnings |
64 |
# DBD::mysql::db do failed: Table 'koha_kohadev.systempreferences' doesn't exist |
65 |
local $SIG{__WARN__} = sub { }; |
63 |
my $dup_err; |
66 |
my $dup_err; |
64 |
local *STDERR; |
67 |
local *STDERR; |
65 |
open STDERR, ">>", \$dup_err; |
68 |
open STDERR, ">>", \$dup_err; |
Lines 68-73
SKIP: {
Link Here
|
68 |
SELECT * FROM systempreferences WHERE 1 = 0 | |
71 |
SELECT * FROM systempreferences WHERE 1 = 0 | |
69 |
); |
72 |
); |
70 |
close STDERR; |
73 |
close STDERR; |
|
|
74 |
|
71 |
if ($dup_err) { |
75 |
if ($dup_err) { |
72 |
skip "Tests won't run if the database is not empty", 2 if $@; |
76 |
skip "Tests won't run if the database is not empty", 2 if $@; |
73 |
} |
77 |
} |
74 |
- |
|
|