simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

resolved #48048

Browse source
This commit is contained in:
Kenichi Ishigaki 2012-09-01 13:09:29 +00:00
parent 65b47d0444
commit dce5d047cc
2 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
t/33_non_latin_path.t
View file

@ -22,17 +22,12 @@ 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', '¿¿¿ ¿¿¿¿¿¿') {
if ($^O eq 'cygwin') {
next if (($subdir eq 'adatbázis') || ($subdir eq '¿¿¿ ¿¿¿¿¿¿'));
}
# rt48048: don't need to "use utf8" nor "require utf8"
utf8::upgrade($subdir);
ok(
mkdir(catdir($dir, $subdir)),

4
t/rt_25924_user_defined_func_unicode.t
View file

@ -17,9 +17,6 @@ BEGIN {
}
use Test::NoWarnings;
eval "require utf8";
die $@ if $@;
foreach my $call_func (@CALL_FUNCS) {
my $dbh = connect_ok( sqlite_unicode => 1 );
ok($dbh->$call_func( "perl_uc", 1, \&perl_uc, "create_function" ));
@ -32,6 +29,7 @@ END_SQL
my @words = qw{Bergčre hôte hétaďre hętre};
foreach my $word (@words) {
# rt48048: don't need to "use utf8" nor "require utf8"
utf8::upgrade($word);
ok( $dbh->do("INSERT INTO foo VALUES ( ? )", {}, $word), 'INSERT' );
my $foo = $dbh->selectall_arrayref("SELECT perl_uc(bar) FROM foo");