mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
c4eab85ff7
Zero functional changes, simply executed the following:
find . -name '*.t' -exec perl -0777 -p -i -e 's|^use t::lib::SQLiteTest|use lib "t/lib";\nuse SQLiteTest|m' {} +
Also had to do a manual (but identical) fix in t/01_compile.t
58 lines
1.4 KiB
Perl
58 lines
1.4 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
BEGIN {
|
|
$| = 1;
|
|
$^W = 1;
|
|
}
|
|
|
|
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 Test::NoWarnings;
|
|
use DBD::SQLite::Constants qw/:extended_result_codes :result_codes/;
|
|
use File::Temp;
|
|
|
|
plan tests => 18;
|
|
|
|
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};
|
|
}
|