# 81_db_sqlite.t -- Basic SQLite access
# Author : Johan Vromans
# Created On : Tue Oct 10 18:46:26 2006
# Last Modified By: Johan Vromans
# Last Modified On: Mon Jun 14 22:16:28 2010
# Update Count : 12
use strict;
use warnings;
use Test::More tests => 4;
# Some basic tests.
BEGIN {
use_ok("DBI");
}
SKIP: {
eval { require DBD::SQLite };
skip("DBI SQLite driver (DBD::SQLite) not installed", 3) if $@;
# Check minimal interface version.
my $minpg = 1.12;
ok($DBD::SQLite::VERSION >= $minpg,
"DBD::SQLite version = $DBD::SQLite::VERSION,".
" should be at least $minpg");
my $tmpdb = "tmp$$.db";
SKIP: {
skip("Database tests skipped on request", 2)
if $ENV{EB_SKIPDBTESTS};
# Check whether we can contact the database.
open(my $db, ">", $tmpdb);
close($db);
my $dbh;
eval {
$dbh = DBI->connect("dbi:SQLite:dbname=$tmpdb");
ok(!$DBI::errstr, "Database Connect");
diag("Connect error:\n\t" . ($DBI::errstr||"")) if $DBI::errstr;
};
ok($dbh, "Check databases");
}
unlink($tmpdb);
}