regcomp.c: Use values if known at compile time

[perl5.git] / dist / I18N-LangTags / t / 07_listy.t

use strict;
use Test::More tests => 16;
BEGIN {use_ok('I18N::LangTags::List');}

note("Perl v$], I18N::LangTags::List v$I18N::LangTags::List::VERSION");

is(I18N::LangTags::List::name('fr'), 'French');
isnt(I18N::LangTags::List::name('fr-fr'), undef);
is(I18N::LangTags::List::name('El Zorcho'), undef);
is(I18N::LangTags::List::name(), undef);

isnt(I18N::LangTags::List::is_decent(), undef);
foreach(['fr', 2],
	['fr-blorch', 2],
	['El Zorcho', 0],
	['sgn', 0],
	['sgn-us', 2],
	['i', 0],
	['i-mingo', 2],
	['i-mingo-tom', 2],
	['cel', 0],
	['cel-gaulish', 2],
       ) {
    my ($tag, $expect) = @$_;
    is(I18N::LangTags::List::is_decent($tag), $expect,
       "I18N::LangTags::List::is_decent('$tag')");
}