view release on metacpan or  search on metacpan

t/amberdb-locale_04_sort.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use open ':std', ':utf8';
use Test::More;
binmode Test::More->builder->output,         ':utf8';
binmode Test::More->builder->failure_output, ':utf8';
binmode Test::More->builder->todo_output,    ':utf8';
use FindBin qw($Bin);
use lib "$Bin/../lib", 'lib';

use AmberDB::Locale;

subtest 'Turkish Alphabet Collation Sort' => sub {
    my $tr = AmberDB::Locale->new('tr');
    my @input = qw(Şeker Ankara Çilek Bursa İstanbul Iğdır Ördek Üzüm);
    my @sorted = $tr->sort(\@input);
    my @expected = qw(Ankara Bursa Çilek Iğdır İstanbul Ördek Şeker Üzüm);
    is_deeply( \@sorted, \@expected, 'Turkish UCA collation sorting' );
};

subtest 'Array of Hashes Sort' => sub {
    my $tr = AmberDB::Locale->new('tr');
    my @input = (
        { id => 1, city => 'Şanlıurfa' },
        { id => 2, city => 'Adana' },
        { id => 3, city => 'Çanakkale' },
    );
    my @sorted = $tr->sort(\@input, 'city');
    my @expected_names = qw(Adana Çanakkale Şanlıurfa);
    my @actual_names = map { $_->{city} } @sorted;
    is_deeply( \@actual_names, \@expected_names, 'Array of Hashes sorted by key' );
};

subtest 'Array of Arrays Sort' => sub {
    my $tr = AmberDB::Locale->new('tr');
    my @input = (
        [ 1, 'Ä°zmir' ],
        [ 2, 'Isparta' ],
    );
    my @sorted = $tr->sort(\@input, 1);
    my @expected_names = qw(Isparta Ä°zmir);
    my @actual_names = map { $_->[1] } @sorted;
    is_deeply( \@actual_names, \@expected_names, 'Array of Arrays sorted by index' );
};

done_testing();