#!/usr/bin/perl

use strict;

BEGIN {

    $|  = 1;

    $^W = 1;

}

use lib "t/lib";

use SQLiteTest;

use Test::More;

BEGIN {

    require DBD::SQLite;

    if (DBD::SQLite->can('compile_options')

        && grep /ENABLE_ICU/, DBD::SQLite::compile_options()) {

        plan( tests => 16 );

    } else {

        plan( skip_all => 'requires SQLite ICU plugin to be enabled' );

    }

}

# use Test::NoWarnings;

my @isochars = (ord("K"), 0xf6, ord("n"), ord("i"), ord("g"));

my $koenig   = pack("U*", @isochars);

my $konig    = 'konig';

utf8::encode($koenig);

{   # without ICU

    my @expected = ($koenig, $konig);

    my $dbh = connect_ok();

    $dbh->do('create table foo (bar text)');

    foreach my $str (reverse @expected) {

        $dbh->do('insert into foo values(?)', undef, $str);

    }

    my $sth = $dbh->prepare('select bar from foo order by bar');

    $sth->execute;

    my @got;

    while(my ($value) = $sth->fetchrow_array) {

        push @got, $value;

    }

    for (my $i = 0; $i < @expected; $i++) {

        is $got[$i] => $expected[$i], "got: $got[$i]";

    }

}

{   # with ICU

    my @expected = ($konig, $koenig);

    my $dbh = connect_ok();

    eval { $dbh->do('select icu_load_collation("de_DE", "german")') };

    ok !$@, "installed icu collation";

    # XXX: as of this writing, a warning is known to be printed.

    $dbh->do('create table foo (bar text collate german)');

    foreach my $str (reverse @expected) {

        $dbh->do('insert into foo values(?)', undef, $str);

    }

    my $sth = $dbh->prepare('select bar from foo order by bar');

    $sth->execute;

    my @got;

    while(my ($value) = $sth->fetchrow_array) {

        push @got, $value;

    }

    for (my $i = 0; $i < @expected; $i++) {

        is $got[$i] => $expected[$i], "got: $got[$i]";

    }

}

{   # more ICU

    my @expected = qw(

        flusse

        Flusse

        fluße

        Fluße

        flüsse

        flüße

        Fuße

    );

    my $dbh = connect_ok();

    eval { $dbh->do('select icu_load_collation("de_DE", "german")') };

    ok !$@, "installed icu collation";

    # XXX: as of this writing, a warning is known to be printed.

    $dbh->do('create table foo (bar text collate german)');

    foreach my $str (reverse @expected) {

        $dbh->do('insert into foo values(?)', undef, $str);

    }

    my $sth = $dbh->prepare('select bar from foo order by bar');

    $sth->execute;

    my @got;

    while(my ($value) = $sth->fetchrow_array) {

        push @got, $value;

    }

    for (my $i = 0; $i < @expected; $i++) {

        is $got[$i] => $expected[$i], "got: $got[$i]";

    }

}