X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8135baed8e5671abf0e9d8b55233259df5729c87..add9356cb1c4fd5ffb8f067679f4bbabdea51e14:/cpan/Locale-Codes/t/code2country.t

diff --git a/cpan/Locale-Codes/t/code2country.t b/cpan/Locale-Codes/t/code2country.t
deleted file mode 100644
index 4fb69c9..0000000
--- a/cpan/Locale-Codes/t/code2country.t
+++ /dev/null
@@ -1,156 +0,0 @@
-#!/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,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}   if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2country(@test);
-}
-
-$tests = "
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-zz ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_NUMERIC ~ _undef_
-
-ja ~ _undef_
-
-uk ~ _undef_
-
-BO
-   ~
-   Bolivia (Plurinational State of)
-
-BO
-LOCALE_CODE_ALPHA_2
-   ~
-   Bolivia (Plurinational State of)
-
-bol
-LOCALE_CODE_ALPHA_3
-   ~
-   Bolivia (Plurinational State of)
-
-pk ~ Pakistan
-
-sn ~ Senegal
-
-us
-   ~
-   United States of America
-
-ad ~ Andorra
-
-ad LOCALE_CODE_ALPHA_2 ~ Andorra
-
-and LOCALE_CODE_ALPHA_3 ~ Andorra
-
-020 LOCALE_CODE_NUMERIC ~ Andorra
-
-48 LOCALE_CODE_NUMERIC ~ Bahrain
-
-zw ~ Zimbabwe
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-kz ~ Kazakhstan
-
-mo ~ Macao
-
-tl LOCALE_CODE_ALPHA_2 ~ Timor-Leste
-
-tls LOCALE_CODE_ALPHA_3 ~ Timor-Leste
-
-626 LOCALE_CODE_NUMERIC ~ Timor-Leste
-
-BO LOCALE_CODE_ALPHA_3 ~ _undef_
-
-BO LOCALE_CODE_NUMERIC ~ _undef_
-
-ax
-   ~
-   Aland Islands
-
-ala
-LOCALE_CODE_ALPHA_3
-   ~
-   Aland Islands
-
-248
-LOCALE_CODE_NUMERIC
-   ~
-   Aland Islands
-
-scg
-LOCALE_CODE_ALPHA_3
-   ~
-   _undef_
-
-891
-LOCALE_CODE_NUMERIC
-   ~
-   _undef_
-
-rou LOCALE_CODE_ALPHA_3 ~ Romania
-
-zr  ~ _undef_
-
-zr retired  ~ Zaire
-
-jp alpha-2 not_retired other_arg ~ _undef_
-
-jp _blank_ ~ Japan
-
-jp alpha-15 ~ _undef_
-
-jp alpha-2 retired ~ Japan
-
-";
-
-print "code2country...\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:
-