cpan/Locale-Codes/t/code2language.t

   1 #!/usr/bin/perl -w
   2
   3 require 5.002;
   4
   5 $runtests=shift(@ARGV);
   6 if ( -f "t/testfunc.pl" ) {
   7   require "t/testfunc.pl";
   8   $dir="./lib";
   9   $tdir="t";
  10 } elsif ( -f "testfunc.pl" ) {
  11   require "testfunc.pl";
  12   $dir="../lib";
  13   $tdir=".";
  14 } else {
  15   die "ERROR: cannot find testfunc.pl\n";
  16 }
  17
  18 unshift(@INC,$dir);
  19 use Locale::Language;
  20
  21 %type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
  22           "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
  23           "LOCALE_CODE_TERM"    => LOCALE_CODE_TERM,
  24         );
  25
  26 sub test {
  27    my(@test) = @_;
  28    $test[1]  = $type{$test[1]}
  29      if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
  30    return code2language(@test);
  31 }
  32
  33 $tests = "
  34
  35 in ~ _undef_
  36
  37 iw ~ _undef_
  38
  39 ji ~ _undef_
  40
  41 jp ~ _undef_
  42
  43 sh ~ _undef_
  44
  45 zz ~ _undef_
  46
  47 ~ _undef_
  48
  49 _undef_ ~ _undef_
  50
  51 DA
  52    ~
  53    Danish
  54
  55 aa
  56    ~
  57    Afar
  58
  59 ae
  60    ~
  61    Avestan
  62
  63 bs
  64    ~
  65    Bosnian
  66
  67 ce
  68    ~
  69    Chechen
  70
  71 ch
  72    ~
  73    Chamorro
  74
  75 cu
  76    ~
  77    Church Slavic
  78
  79 cv
  80    ~
  81    Chuvash
  82
  83 en
  84    ~
  85    English
  86
  87 eo
  88    ~
  89    Esperanto
  90
  91 fi
  92    ~
  93    Finnish
  94
  95 gv
  96    ~
  97    Manx
  98
  99 he
 100    ~
 101    Hebrew
 102
 103 ho
 104    ~
 105    Hiri Motu
 106
 107 hz
 108    ~
 109    Herero
 110
 111 id
 112    ~
 113    Indonesian
 114
 115 iu
 116    ~
 117    Inuktitut
 118
 119 ki
 120    ~
 121    Kikuyu
 122
 123 kj
 124    ~
 125    Kuanyama
 126
 127 kv
 128    ~
 129    Komi
 130
 131 kw
 132    ~
 133    Cornish
 134
 135 lb
 136    ~
 137    Luxembourgish
 138
 139 mh
 140    ~
 141    Marshallese
 142
 143 nb
 144    ~
 145    Bokmal, Norwegian
 146
 147 nd
 148    ~
 149    Ndebele, North
 150
 151 ng
 152    ~
 153    Ndonga
 154
 155 nn
 156    ~
 157    Norwegian Nynorsk
 158
 159 nr
 160    ~
 161    Ndebele, South
 162
 163 nv
 164    ~
 165    Navajo
 166
 167 ny
 168    ~
 169    Chichewa
 170
 171 oc
 172    ~
 173    Occitan (post 1500)
 174
 175 os
 176    ~
 177    Ossetian
 178
 179 pi
 180    ~
 181    Pali
 182
 183 sc
 184    ~
 185    Sardinian
 186
 187 se
 188    ~
 189    Northern Sami
 190
 191 ug
 192    ~
 193    Uighur
 194
 195 yi
 196    ~
 197    Yiddish
 198
 199 za
 200    ~
 201    Zhuang
 202
 203 zu
 204    ~
 205    Zulu
 206
 207 ";
 208
 209 print "code2language...\n";
 210 test_Func(\&test,$tests,$runtests);
 211
 212 1;
 213 # Local Variables:
 214 # mode: cperl
 215 # indent-tabs-mode: nil
 216 # cperl-indent-level: 3
 217 # cperl-continued-statement-offset: 2
 218 # cperl-continued-brace-offset: 0
 219 # cperl-brace-offset: 0
 220 # cperl-brace-imaginary-offset: 0
 221 # cperl-label-offset: -2
 222 # End: