view release on metacpan or  search on metacpan

t/03_expand_named.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;

use Test::More tests => 11;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
    use_ok 'Locale::Utils::PlaceholderBabelFish';
}

my $obj = Locale::Utils::PlaceholderBabelFish->new;

is_deeply
    [ $obj->expand_babel_fish ],
    [ undef ],
    'undef';
eq_or_diff
    $obj->expand_babel_fish('#{a} #{b} #{c} #{d}'),
    '#{a} #{b} #{c} #{d}',
    'expand empty';
eq_or_diff
    $obj->expand_babel_fish(
        '\#{a} #{a} #{b} #{c} #{d}',
        a => 'a',
        b => 2,
        c => '345678.90',
        d => 45678.90,
    ),
    '#{a} a 2 345678.90 45678.9',
    'expand hash';
eq_or_diff
    $obj->expand_babel_fish(
        '#{a} #{b} #{c} #{d}',
        {
            a => 'a',
            b => 2,
            c => '345678.90',
            d => 45678.90,
        },
    ),
    'a 2 345678.90 45678.9',
    'expand hash_ref';
eq_or_diff
    $obj->expand_babel_fish(
        '#{a} #{b} #{c} #{d}',
        {},
    ),
    '#{a} #{b} #{c} #{d}',
    'expand empty hash_ref';
eq_or_diff
    $obj->expand_babel_fish(
        'foo #{plus} bar #{plus} baz = #{num} items',
        plus  => q{+},
        num   => 3,
    ),
    'foo + bar + baz = 3 items',
    'same placeholder double';

$obj->is_strict(1);
eq_or_diff
    $obj->expand_babel_fish(
        'foo #{name}',
        name => undef,
    ),
    'foo #{name}',
    'undef, strict';