Lingua-RO-Numbers/t/01-num_to_ro.t

#!perl -T
use 5.006;
use strict;
use utf8;
use warnings FATAL => 'all';
use Test::More;

plan tests => 23;

BEGIN {
    use_ok('Lingua::RO::Numbers') || print "Bail out!\n";

    my %opts = (thousands_separator => q{});
    my $ron = Lingua::RO::Numbers->new(%opts);

    my $num = 124_445_223;
    is(Lingua::RO::Numbers::number_to_ro($num, %opts), $ron->number_to_ro($num));

    is($ron->number_to_ro(3),               'trei');
    is($ron->number_to_ro(0.001),           'zero virgulă zero zero unu');
    is($ron->number_to_ro(0.139),           'zero virgulă o sută treizeci și nouă');
    is($ron->number_to_ro(3.14),            'trei virgulă paisprezece');
    is($ron->number_to_ro(12.26),           'doisprezece virgulă douăzeci și șase');
    is($ron->number_to_ro(-9_960),          'minus nouă mii nouă sute șaizeci');
    is($ron->number_to_ro(1_000),           'o mie');
    is($ron->number_to_ro(4_200),           'patru mii două sute');
    is($ron->number_to_ro(10_017),          'zece mii șaptesprezece');
    is($ron->number_to_ro(62_000),          'șaizeci și două de mii');
    is($ron->number_to_ro(112_000),         'o sută doisprezece mii');
    is($ron->number_to_ro(120_000),         'o sută douăzeci de mii');
    is($ron->number_to_ro(1_012_000),       'un milion doisprezece mii');
    is($ron->number_to_ro(102_000_000),     'o sută două milioane');
    is($ron->number_to_ro(1_500_083),       'un milion cinci sute de mii optzeci și trei');
    is($ron->number_to_ro(1_114_000_000),   'un miliard o sută paisprezece milioane');
    is($ron->number_to_ro(119_830_000),     'o sută nouăsprezece milioane opt sute treizeci de mii');
    is($ron->number_to_ro(1_198_300_000),   'un miliard o sută nouăzeci și opt de milioane trei sute de mii');
    is($ron->number_to_ro(11_983_000_000),  'unsprezece miliarde nouă sute optzeci și trei de milioane');
    is($ron->number_to_ro(119_830_000_000), 'o sută nouăsprezece miliarde opt sute treizeci de milioane');
    is($ron->number_to_ro(-0.688121),       'minus zero virgulă șase sute optzeci și opt de mii o sută douăzeci și unu');
}