#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use t::lib::Test;
use Test::More tests => 17;
use DBI;
use DBD::SQLite;
my $dbfile = 'foo';
my %uri = (
base => 'file:foo',
ro => 'file:foo?mode=ro',
rw => 'file:foo?mode=rw',
rwc => 'file:foo?mode=rwc',
);
sub cleanup {
unlink $dbfile if -f $dbfile;
unlink "file" if -f "file"; # for Win32
for (keys %uri) {
unlink $uri{$_} if -f $uri{$_};
}
}
cleanup();
{
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{base}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && $dbh && !-f $dbfile, "correct database is not created for uri";
$dbh->disconnect;
cleanup();
}
# uri=(uri)
{
my $dbh = eval {
DBI->connect("dbi:SQLite:uri=$uri{base}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base}, "correct database is created for uri";
$dbh->disconnect;
cleanup();
}
{
my $dbh = eval {
DBI->connect("dbi:SQLite:uri=$uri{ro}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok $@ && !$dbh && !-f $dbfile && !-f $uri{base} && !-f $uri{ro}, "failed to open a nonexistent readonly database for uri";
cleanup();
}
{
my $dbh = eval {
DBI->connect("dbi:SQLite:uri=$uri{rw}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok $@ && !$dbh && !-f $dbfile && !-f $uri{base} && !-f $uri{rw}, "failed to open a nonexistent readwrite database for uri";
cleanup();
}
{
my $dbh = eval {
DBI->connect("dbi:SQLite:uri=$uri{rwc}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base} && !-f $uri{rwc}, "correct database is created for uri";
$dbh->disconnect;
cleanup();
}
{
eval {
DBI->connect("dbi:SQLite:$dbfile", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && -f $dbfile, "created a dbfile";
my $dbh = eval {
DBI->connect("dbi:SQLite:uri=$uri{ro}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base} && !-f $uri{ro}, "opened a correct readonly database for uri";
$dbh->disconnect;
cleanup();
}
{
eval {
DBI->connect("dbi:SQLite:$dbfile", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && -f $dbfile, "created a dbfile";
my $dbh = eval {
DBI->connect("dbi:SQLite:uri=$uri{rw}", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base} && !-f $uri{rw}, "opened a correct readwrite database for uri";
$dbh->disconnect;
cleanup();
}
# OPEN_URI flag
{
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{base}", undef, undef, {
PrintError => 0,
RaiseError => 1,
sqlite_open_flags => DBD::SQLite::OPEN_URI,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base}, "correct database is created for uri";
$dbh->disconnect;
cleanup();
}
{
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{ro}", undef, undef, {
PrintError => 0,
RaiseError => 1,
sqlite_open_flags => DBD::SQLite::OPEN_URI,
});
};
ok $@ && !$dbh && !-f $dbfile && !-f $uri{base} && !-f $uri{ro}, "failed to open a nonexistent readonly database for uri";
cleanup();
}
{
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{rw}", undef, undef, {
PrintError => 0,
RaiseError => 1,
sqlite_open_flags => DBD::SQLite::OPEN_URI,
});
};
ok $@ && !$dbh && !-f $dbfile && !-f $uri{base} && !-f $uri{rw}, "failed to open a nonexistent readwrite database for uri";
cleanup();
}
{
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{rwc}", undef, undef, {
PrintError => 0,
RaiseError => 1,
sqlite_open_flags => DBD::SQLite::OPEN_URI,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base} && !-f $uri{rwc}, "correct database is created for uri";
$dbh->disconnect;
cleanup();
}
{
eval {
DBI->connect("dbi:SQLite:$dbfile", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && -f $dbfile, "created a dbfile";
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{ro}", undef, undef, {
PrintError => 0,
RaiseError => 1,
sqlite_open_flags => DBD::SQLite::OPEN_URI,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base} && !-f $uri{ro}, "opened a correct readonly database for uri";
$dbh->disconnect;
cleanup();
}
{
eval {
DBI->connect("dbi:SQLite:$dbfile", undef, undef, {
PrintError => 0,
RaiseError => 1,
});
};
ok !$@ && -f $dbfile, "created a dbfile";
my $dbh = eval {
DBI->connect("dbi:SQLite:$uri{rw}", undef, undef, {
PrintError => 0,
RaiseError => 1,
sqlite_open_flags => DBD::SQLite::OPEN_URI,
});
};
ok !$@ && $dbh && -f $dbfile && !-f $uri{base} && !-f $uri{rw}, "opened a correct readwrite database for uri";
$dbh->disconnect;
cleanup();
}