1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
use strict;
use warnings;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use DBD::SQLite;
BEGIN{
plan skip_all => 'this test is for Win32 only' unless $^O eq 'MSWin32';
plan skip_all => 'this test requires SQLite 3.7.12 and above' unless $DBD::SQLite::sqlite_version_number > 3007011;
}
use if -d ".git", "Test::FailWarnings";
use DBD::SQLite::Constants qw/:extended_result_codes :result_codes/;
use File::Temp;
my $tmpdir = File::Temp::tempdir(CLEANUP => 1);
ok -d $tmpdir;
my %expected = (
0 => SQLITE_CANTOPEN,
1 => SQLITE_CANTOPEN_ISDIR,
);
# opening a directory as a database causes SQLITE_CANTOPEN(_ISDIR)
for my $flag (0, 1) {
my $dbh = connect_ok(
RaiseError => 0,
PrintError => 0,
sqlite_extended_result_codes => $flag,
);
ok !$dbh->do(qq{attach '$tmpdir' as tmp});
is $dbh->err => $expected{$flag};
$dbh->{sqlite_extended_result_codes} = 1 - $flag;
is $dbh->{sqlite_extended_result_codes} => 1 - $flag;
ok !$dbh->do(qq{attach '$tmpdir' as tmp});
is $dbh->err => $expected{1 - $flag};
}
for my $flag (0, 1) {
my $dbh = DBI->connect("dbi:SQLite:$tmpdir", '', '', {
RaiseError => 0,
PrintError => 0,
sqlite_extended_result_codes => $flag,
});
ok !$dbh, "Shouldn't be able to open a temporary directory as a database";
my $err = DBI->err;
is $err => $expected{$flag};
}
done_testing;
|
