view release on metacpan or  search on metacpan

t/amberdb-locale_02_ascii.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 to_ascii & Slug' => sub {
    my $tr = AmberDB::Locale->new('tr');
    is( $tr->to_ascii('Türkçe karakterler: ç, ğ, ı, ö, ş, ü'), 'Turkce karakterler c, g, i, o, s, u', 'to_ascii normal' );
    is( $tr->to_ascii('IÄžDIR', 1), 'igdir', 'to_ascii slug: IÄžDIR -> igdir' );
    is( $tr->to_ascii('Ä°ZMÄ°R', 1), 'izmir', 'to_ascii slug: Ä°ZMÄ°R -> izmir' );
    is( $tr->to_ascii('Çok Özel Ürün & Fiyat!', 1), 'cok_ozel_urun_fiyat', 'to_ascii slug formatting' );
};

subtest 'German & Spanish to_ascii' => sub {
    my $de = AmberDB::Locale->new('de');
    is( $de->to_ascii('Größenmaß & Bären'), 'Groessenmass & Baeren', 'de to_ascii DIN 5007-2' );
    is( $de->to_ascii('KÖLN', 1), 'koeln', 'de to_ascii slug' );

    my $es = AmberDB::Locale->new('es');
    is( $es->to_ascii('El niño y la niña'), 'El nino y la nina', 'es to_ascii ñ -> n' );
};

done_testing();