mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 22:28:47 -04:00
100 lines
2.8 KiB
Perl
100 lines
2.8 KiB
Perl
BEGIN {
|
|
local $@;
|
|
unless (eval { require Test::More; require Encode; 1 }) {
|
|
print "1..0 # Skip need Perl 5.8 or later\n";
|
|
exit;
|
|
}
|
|
}
|
|
|
|
use strict;
|
|
use Test::More tests => 8;
|
|
use DBI;
|
|
use Encode qw/decode/;
|
|
|
|
BEGIN {
|
|
# sadly perl for windows (and probably sqlite, too) may hang
|
|
# if the system locale doesn't support european languages.
|
|
# en-us should be a safe default. if it doesn't work, use 'C'.
|
|
if ($^O eq 'MSWin32') {
|
|
use POSIX 'locale_h';
|
|
setlocale(LC_COLLATE, 'en-us');
|
|
}
|
|
}
|
|
|
|
my @words = qw/berger Bergère bergère Bergere
|
|
HOT hôte
|
|
hétéroclite hétaïre hêtre héraut
|
|
HAT hâter
|
|
fétu fête fève ferme/;
|
|
|
|
# my @words_utf8 = map {decode("iso-8859-1", $_)} @words;
|
|
my @words_utf8 = @words;
|
|
utf8::upgrade($_) foreach @words_utf8;
|
|
|
|
|
|
$" = ", "; # to embed arrays into message strings
|
|
|
|
my $dbh;
|
|
my @sorted;
|
|
my $db_sorted;
|
|
my $sql = "SELECT txt from collate_test ORDER BY txt";
|
|
|
|
sub no_accents ($$) {
|
|
my ( $a, $b ) = map lc, @_;
|
|
|
|
tr[àâáäåãçðèêéëìîíïñòôóöõøùûúüý]
|
|
[aaaaaacdeeeeiiiinoooooouuuuy] for $a, $b;
|
|
|
|
$a cmp $b;
|
|
}
|
|
|
|
|
|
|
|
$dbh = DBI->connect("dbi:SQLite:dbname=foo", "", "", { RaiseError => 1 } );
|
|
ok($dbh);
|
|
|
|
$dbh->func( "no_accents", \&no_accents, "create_collation" );
|
|
|
|
$dbh->do( 'CREATE TEMP TABLE collate_test ( txt )' );
|
|
$dbh->do( "INSERT INTO collate_test VALUES ( '$_' )" ) foreach @words;
|
|
|
|
|
|
@sorted = sort @words;
|
|
$db_sorted = $dbh->selectcol_arrayref("$sql COLLATE perl");
|
|
is_deeply(\@sorted, $db_sorted, "collate perl (@sorted // @$db_sorted)");
|
|
|
|
{use locale; @sorted = sort @words;}
|
|
$db_sorted = $dbh->selectcol_arrayref("$sql COLLATE perllocale");
|
|
is_deeply(\@sorted, $db_sorted, "collate perllocale (@sorted // @$db_sorted)");
|
|
|
|
@sorted = sort no_accents @words;
|
|
$db_sorted = $dbh->selectcol_arrayref("$sql COLLATE no_accents");
|
|
is_deeply(\@sorted, $db_sorted, "collate no_accents (@sorted // @$db_sorted)");
|
|
$dbh->disconnect;
|
|
|
|
|
|
$dbh = DBI->connect("dbi:SQLite:dbname=foo", "", "",
|
|
{ RaiseError => 1,
|
|
unicode => 1} );
|
|
ok($dbh);
|
|
$dbh->func( "no_accents", \&no_accents, "create_collation" );
|
|
$dbh->do( 'CREATE TEMP TABLE collate_test ( txt )' );
|
|
$dbh->do( "INSERT INTO collate_test VALUES ( '$_' )" ) foreach @words_utf8;
|
|
|
|
@sorted = sort @words_utf8;
|
|
$db_sorted = $dbh->selectcol_arrayref("$sql COLLATE perl");
|
|
is_deeply(\@sorted, $db_sorted, "collate perl (@sorted // @$db_sorted)");
|
|
|
|
{use locale; @sorted = sort @words_utf8;}
|
|
$db_sorted = $dbh->selectcol_arrayref("$sql COLLATE perllocale");
|
|
is_deeply(\@sorted, $db_sorted, "collate perllocale (@sorted // @$db_sorted)");
|
|
|
|
@sorted = sort no_accents @words_utf8;
|
|
$db_sorted = $dbh->selectcol_arrayref("$sql COLLATE no_accents");
|
|
is_deeply(\@sorted, $db_sorted, "collate no_accents (@sorted // @$db_sorted)");
|
|
|
|
|
|
|
|
$dbh->disconnect;
|
|
|
|
END { unlink 'foo' }
|