Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
alias_code.t	1.81 KB	-r--r--r--	2014-12-27 11:48
alias_code_old.t	1.8 KB	-r--r--r--	2014-12-27 11:48
code2country.t	2.03 KB	-r--r--r--	2014-12-27 11:48
code2country_old.t	1.99 KB	-r--r--r--	2014-12-27 11:48
code2currency.t	1.39 KB	-r--r--r--	2014-12-27 11:48
code2langext.t	939 B	-r--r--r--	2014-12-27 11:48
code2langfam.t	936 B	-r--r--r--	2014-12-27 11:48
code2language.t	1.89 KB	-r--r--r--	2014-12-27 11:48
code2langvar.t	940 B	-r--r--r--	2014-12-27 11:48
code2script.t	1.01 KB	-r--r--r--	2014-12-27 11:48
country.t	5.42 KB	-r--r--r--	2014-12-27 11:48
country2code.t	2.24 KB	-r--r--r--	2014-12-27 11:48
country2code_old.t	1.87 KB	-r--r--r--	2014-12-27 11:48
country_code2code.t	1.71 KB	-r--r--r--	2014-12-27 11:48
country_code2code_old.t	1.71 KB	-r--r--r--	2014-12-27 11:48
country_old.t	5.27 KB	-r--r--r--	2014-12-27 11:48
currency2code.t	1.11 KB	-r--r--r--	2014-12-27 11:48
currency2code_old.t	1.11 KB	-r--r--r--	2014-12-27 11:48
langext2code.t	943 B	-r--r--r--	2014-12-27 11:48
langfam2code.t	940 B	-r--r--r--	2014-12-27 11:48
language.t	2.42 KB	-r--r--r--	2014-12-27 11:48
language2code.t	1.4 KB	-r--r--r--	2014-12-27 11:48
language_old.t	2.38 KB	-r--r--r--	2014-12-27 11:48
langvar2code.t	944 B	-r--r--r--	2014-12-27 11:48
script2code.t	1017 B	-r--r--r--	2014-12-27 11:48
script2code_old.t	1014 B	-r--r--r--	2014-12-27 11:48
testfunc.pl	12.37 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

require 5.002;

$runtests=shift(@ARGV);
if ( -f "t/testfunc.pl" ) {
  require "t/testfunc.pl";
  $dir="./lib";
  $tdir="t";
} elsif ( -f "testfunc.pl" ) {
  require "testfunc.pl";
  $dir="../lib";
  $tdir=".";
} else {
  die "ERROR: cannot find testfunc.pl\n";
}

unshift(@INC,$dir);
use Locale::Codes::Country;

%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
          "LOCALE_CODE_DOM"     => LOCALE_CODE_DOM,
        );

sub test {
   my(@test) = @_;
   $test[1]  = $type{$test[1]}   if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
   return country2code(@test);
}

$tests = "

kazakhstan
   ~
   kz

kazakstan
   ~
   kz

macao
   ~
   mo

macau
   ~
   mo

~ _undef_

_undef_
   ~
   _undef_

Banana
   ~
   _undef_

japan
   ~
   jp

Japan
   ~
   jp

United States
   ~
   us

United Kingdom
   ~
   gb

Andorra
   ~
   ad

Zimbabwe
   ~
   zw

Iran
   ~
   ir

North Korea
   ~
   kp

South Korea
   ~
   kr

Libya
   ~
   ly

Syrian Arab Republic
   ~
   sy

Svalbard
   ~
   _undef_

Jan Mayen
   ~
   _undef_

USA
   ~
   us

United States of America
   ~
   us

Great Britain
   ~
   gb

Burma
   ~
   mm

French Southern and Antarctic Lands
   ~
   tf

Aland Islands
   ~
   ax

Yugoslavia
   ~
   _undef_

Serbia and Montenegro
   ~
   _undef_

East Timor
   ~
   tl

Zaire
   ~
   _undef_

Zaire
retired
   ~
   zr

Congo, The Democratic Republic of the
   ~
   cd

Congo, The Democratic Republic of the
LOCALE_CODE_ALPHA_3
   ~
   cod

Congo, The Democratic Republic of the
LOCALE_CODE_NUMERIC
   ~
   180

Syria
   ~
   sy

# Last codes in each set (we'll assume that if we got these, there's a good
# possiblity that we got all the others).

Zimbabwe
LOCALE_CODE_ALPHA_2
   ~
   zw

Zimbabwe
LOCALE_CODE_ALPHA_3
   ~
   zwe

Zimbabwe
LOCALE_CODE_NUMERIC
   ~
   716

Zimbabwe
LOCALE_CODE_DOM
   ~
   zw

print "country2code...\n";
test_Func(\&test,$tests,$runtests);

1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: -2
# End: