BEGIN { plan
test
=> 1 };
use
vars
qw($NO_DB_TESTS_FN $BASE_CFG_FN @CFG_PARAMS $TEST_TABLE @TABLE_DATA)
;
require
"ladbi_config.pl"
;
if
(find_file_up(
$NO_DB_TESTS_FN
, 1)) {
skip(
"skip no database tests"
, 1);
exit
0;
}
my
$cfg
= load_cfg_file( find_file_up(
$BASE_CFG_FN
,0) );
my
$ok
= 1;
my
$dbh
= DBI->
connect
(
$cfg
->{DSN},
$cfg
->{USER},
$cfg
->{PASSWD},
{
RaiseError
=> 0,
AutoCommit
=> 1});
unless
(
defined
$dbh
) {
print
"Bail out!\n"
,
"#Failed to connect to database\n"
;
exit
0;
}
my
(
$rv
);
$rv
=
$dbh
->
do
(
<<"EOSQL");
DROP TABLE $TEST_TABLE
EOSQL
unless
(
defined
$rv
) {
print
"Bail out!\n"
,
"#Failed to drop table, $TEST_TABLE\n"
;
exit
0;
}
$dbh
->disconnect();
ok(
$ok
);