mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 22:28:47 -04:00
add more test cases
This commit is contained in:
parent
1a5d2ed879
commit
e9ee8a3481
1 changed files with 2 additions and 2 deletions
|
@ -13,7 +13,7 @@ use t::lib::Test;
|
||||||
use Test::More;
|
use Test::More;
|
||||||
BEGIN {
|
BEGIN {
|
||||||
if ( $] >= 5.008005 ) {
|
if ( $] >= 5.008005 ) {
|
||||||
plan( tests => 13 );
|
plan( tests => 25 );
|
||||||
} else {
|
} else {
|
||||||
plan( skip_all => 'Unicode is not supported before 5.8.5' );
|
plan( skip_all => 'Unicode is not supported before 5.8.5' );
|
||||||
}
|
}
|
||||||
|
@ -29,7 +29,7 @@ eval "require utf8";
|
||||||
die $@ if $@;
|
die $@ if $@;
|
||||||
|
|
||||||
my $dir = File::Temp::tempdir( CLEANUP => 1 );
|
my $dir = File::Temp::tempdir( CLEANUP => 1 );
|
||||||
foreach my $subdir ( 'longascii', 'adatbázis' ) {
|
foreach my $subdir ( 'longascii', 'adatbázis', 'name with spaces', '¿¿¿ ¿¿¿¿¿¿') {
|
||||||
utf8::upgrade($subdir);
|
utf8::upgrade($subdir);
|
||||||
ok(
|
ok(
|
||||||
mkdir(catdir($dir, $subdir)),
|
mkdir(catdir($dir, $subdir)),
|
||||||
|
|
Loading…
Add table
Reference in a new issue