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