view release on metacpan or  search on metacpan

t/30_v1_tests.t  view on Meta::CPAN

use utf8;
use subs qw( _log );
use Test::More qw( no_plan );

## no critic (ValuesAndExpressions::ProhibitMagicNumbers, Subroutines::ProhibitSubroutinePrototypes)

use Lingua::TR::Numbers qw(num2tr num2tr_ordinal);

_log "# Using Lingua::TR::Numbers v$Lingua::TR::Numbers::VERSION\n";

sub N ($) { return num2tr(        shift) }
sub O ($) { return num2tr_ordinal(shift) }

is N   0, 'sıfır',        'num2tr';
is N   1, 'bir',          'num2tr';
is N   2, 'iki',          'num2tr';
is N   3, 'üç',           'num2tr';
is N   4, 'dört',         'num2tr';
is N   5, 'beÅŸ',          'num2tr';
is N   6, 'altı',         'num2tr';
is N   7, 'yedi',         'num2tr';
is N   8, 'sekiz',        'num2tr';