view release on metacpan or  search on metacpan

t/range.t  view on Meta::CPAN

use utf8;
use strict;
use warnings;
use open qw( :encoding(UTF-8) :std );
use Test::More tests => 6;
use CLDR::Number;

my ($cldr, $decf, $perf, $curf);

$cldr = CLDR::Number->new(locale => 'en');
$decf = $cldr->decimal_formatter;
$perf = $cldr->percent_formatter;
$curf = $cldr->currency_formatter(currency_code => 'EUR');

is $decf->range(1, 5),       '1–5',         'range of numbers (en)';
is $perf->range(0.01, 0.05), '1%–5%',       'range of percents (en)';
is $curf->range(1, 5),       '€1.00–€5.00', 'range of prices (en)';

$cldr = CLDR::Number->new(locale => 'es-CO');
$decf = $cldr->decimal_formatter;
$perf = $cldr->percent_formatter;
$curf = $cldr->currency_formatter(currency_code => 'COP');

is $decf->range(1, 5),       'de 1 a 5',           'range of numbers (es-CO)';
is $perf->range(0.01, 0.05), 'de 1% a 5%',         'range of percents (es-CO)';
is $curf->range(1, 5),       'de $ 1,00 a $ 5,00', 'range of prices (es-CO)';