Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
01_about_verbose.t	2.2 KB	-r--r--r--	2014-12-27 11:48
05_main.t	1.76 KB	-r--r--r--	2014-12-27 11:48
07_listy.t	712 B	-r--r--r--	2014-12-27 11:48
10_http.t	3.07 KB	-r--r--r--	2014-12-27 11:48
20_locales.t	975 B	-r--r--r--	2014-12-27 11:48
50_super.t	1.94 KB	-r--r--r--	2014-12-27 11:48
55_supers_strict.t	1.51 KB	-r--r--r--	2014-12-27 11:48
80_all_env.t	1.71 KB	-r--r--r--	2014-12-27 11:48

Rename

use strict;
use Test::More tests => 64;
BEGIN {use_ok('I18N::LangTags', ':ALL');}

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

foreach (['', 0],
	 ['fr', 1],
	 ['fr-ca', 1],
	 ['fr-CA', 1],
	 ['fr-CA-', 0],
	 ['fr_CA', 0],
	 ['fr-ca-joal', 1],
	 ['frca', 0],
	 ['nav', 1, 'not actual tag'],
	 ['nav-shiprock', 1, 'not actual tag'],
	 ['nav-ceremonial', 0, 'subtag too long'],
	 ['x', 0],
	 ['i', 0],
	 ['i-borg', 1, 'fictitious tag'],
	 ['x-borg', 1],
	 ['x-borg-prot5123', 1],
	) {
    my ($tag, $expect, $note) = @$_;
    $note = $note ? " # $note" : '';
    is(is_language_tag($tag), $expect, "is_language_tag('$tag')$note");
}
is(same_language_tag('x-borg-prot5123', 'i-BORG-Prot5123'), 1);
is(same_language_tag('en', 'en-us'), 0);

is(similarity_language_tag('en-ca', 'fr-ca'), 0);
is(similarity_language_tag('en-ca', 'en-us'), 1);
is(similarity_language_tag('en-us-southern', 'en-us-western'), 2);
is(similarity_language_tag('en-us-southern', 'en-us'), 2);

ok grep $_ eq 'hi', panic_languages('kok');
ok grep $_ eq 'en', panic_languages('x-woozle-wuzzle');
ok ! grep $_ eq 'mr', panic_languages('it');
ok grep $_ eq 'es', panic_languages('it');
ok grep $_ eq 'it', panic_languages('es');

note("Now the ::List tests...");
note("# Perl v$], I18N::LangTags::List v$I18N::LangTags::List::VERSION");

use I18N::LangTags::List;
foreach my $lt (qw(
 en
 en-us
 en-kr
 el
 elx
 i-mingo
 i-mingo-tom
 x-mingo-tom
 it
 it-it
 it-IT
 it-FR
 ak
 aka
 jv
 jw
 no
 no-nyn
 nn
 i-lux
 lb
 wa
 yi
 ji
 den-syllabic
 den-syllabic-western
 den-western
 den-latin
 cre-syllabic
 cre-syllabic-western
 cre-western
 cre-latin
 cr-syllabic
 cr-syllabic-western
 cr-western
 cr-latin
)) {
  my $name = I18N::LangTags::List::name($lt);
  isnt($name, undef, "I18N::LangTags::List::name('$lt')");
}