1
0
Fork 0
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:
Gábor Szabó 2009-04-15 15:00:15 +00:00
parent 1a5d2ed879
commit e9ee8a3481

View file

@ -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)),