view release on metacpan or  search on metacpan

t/from-shutterstock.t  view on Meta::CPAN

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

# Tests using locales and currencies supported by Shutterstock

while (my $line = <DATA>) {
    chomp $line;
    my ($currency, $locale, $expected) = split /\t/, $line;
    my $curf = CLDR::Number::Format::Currency->new(
        locale        => $locale,
        currency_code => $currency,
    );
    is $curf->format(1000), $expected, "1000 $currency in $locale";
}

__DATA__
AUD	en-AU	$1,000.00
BRL	en-BR	R$1,000.00
BRL	pt-BR	R$1.000,00
CAD	en-CA	$1,000.00
CAD	fr-CA	1 000,00 $
CHF	de-CH	CHF 1'000.00
CHF	en-CH	CHF 1.000,00
CHF	fr-CH	CHF 1 000.00
CHF	it-CH	CHF 1'000.00
DKK	da-DK	1.000,00 kr.
DKK	en-DK	1.000,00 kr.
EUR	cs-CZ	1 000,00 €
EUR	de-AT	€ 1 000,00
EUR	de-BE	1.000,00 €
EUR	de-DE	1.000,00 €
EUR	en-AT	€ 1.000,00
EUR	en-BE	1.000,00 €
EUR	en-DE	1.000,00 €
EUR	en-ES	€1,000.00
EUR	en-FR	€1,000.00
EUR	en-IT	€1,000.00
EUR	en-NL	€ 1.000,00
EUR	en-PL	€1,000.00
EUR	es-ES	1000,00 €
EUR	fi-FI	1 000,00 €
EUR	fr-BE	1.000,00 €
EUR	fr-FR	1 000,00 €
EUR	hu-HU	1 000,00 EUR
EUR	it-IT	1.000,00 €
EUR	nl-BE	1.000,00 €
EUR	nl-NL	€ 1.000,00
EUR	pl-PL	1000,00 €
EUR	sv-FI	1 000,00 €
GBP	en-GB	£1,000.00
JPY	en-JP	¥1,000.00
JPY	ja-JP	ï¿¥1,000.00
KRW	en-KR	â‚©1,000.00
KRW	ko-KR	â‚©1,000.00
NOK	en-NO	NOK 1,000.00
NOK	nb-NO	kr 1 000,00
SEK	en-SE	1 000,00 kr
SEK	sv-SE	1 000,00 kr
USD	en-BR	$1,000.00
USD	en-CA	US$1,000.00
USD	en-IN	US$ 1,000.00
USD	en-KR	$1,000.00
USD	en-MX	$1,000.00
USD	en-RU	$1,000.00
USD	en-TR	$1,000.00
USD	en-US	$1,000.00
USD	en-ZA	US$1 000,00
USD	es-MX	USD 1,000.00
USD	fr-CA	1 000,00 $ US
USD	ko-KR	US$1,000.00
USD	pt-BR	US$1.000,00
USD	ru-RU	1 000,00 $
USD	th-TH	US$1,000.00