mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
71 lines
1.6 KiB
Perl
71 lines
1.6 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# Tests path containing non-latine-1 characters
|
|
# currently fails on Windows
|
|
|
|
use strict;
|
|
BEGIN {
|
|
$| = 1;
|
|
$^W = 1;
|
|
}
|
|
|
|
use t::lib::Test;
|
|
use Test::More;
|
|
BEGIN {
|
|
if ( $] >= 5.008005 ) {
|
|
plan( tests => 25 );
|
|
} else {
|
|
plan( skip_all => 'Unicode is not supported before 5.8.5' );
|
|
}
|
|
}
|
|
use Test::NoWarnings;
|
|
use File::Temp ();
|
|
use File::Spec::Functions ':ALL';
|
|
|
|
# Don't use this, it annoys the MinimumVersion scanner
|
|
# use utf8;
|
|
|
|
eval "require utf8";
|
|
die $@ if $@;
|
|
|
|
my $dir = File::Temp::tempdir( CLEANUP => 1 );
|
|
foreach my $subdir ( 'longascii', 'adatbázis', 'name with spaces', '¿¿¿ ¿¿¿¿¿¿') {
|
|
utf8::upgrade($subdir);
|
|
ok(
|
|
mkdir(catdir($dir, $subdir)),
|
|
"$subdir created",
|
|
);
|
|
|
|
# Open the database
|
|
my $dbfile = catfile($dir, $subdir, 'db.db');
|
|
eval {
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", undef, undef, {
|
|
RaiseError => 1,
|
|
PrintError => 0,
|
|
} );
|
|
isa_ok( $dbh, 'DBI::db' );
|
|
};
|
|
is( $@, '', "Could connect to database in $subdir" );
|
|
diag( $@ ) if $@;
|
|
unlink($dbfile) if -e $dbfile;
|
|
|
|
# Repeat with the unicode flag on
|
|
my $ufile = $dbfile;
|
|
eval {
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", undef, undef, {
|
|
RaiseError => 1,
|
|
PrintError => 0,
|
|
unicode => 1,
|
|
} );
|
|
isa_ok( $dbh, 'DBI::db' );
|
|
};
|
|
is( $@, '', "Could connect to database in $subdir" );
|
|
diag( $@ ) if $@;
|
|
|
|
# when the name of the database file has non-latin characters
|
|
my $dbfilex = catfile($dir, "$subdir.db");
|
|
eval {
|
|
DBI->connect("dbi:SQLite:dbname=$dbfilex", "", "", {RaiseError => 1, PrintError => 0});
|
|
};
|
|
ok(!$@, "Could connect to database in $dbfilex") or diag $@;
|
|
}
|