cpan/Locale-Codes/t/country_code2code.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::Country;
  20 use Locale::Constants;
  21
  22 %type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
  23           "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
  24           "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
  25         );
  26
  27 sub test {
  28    my($code,$type_in,$type_out) = @_;
  29    $type_in  = $type{$type_in}   if ($type_in   &&  exists $type{$type_in});
  30    $type_out = $type{$type_out}  if ($type_out  &&  exists $type{$type_out});
  31
  32    return country_code2code($code,$type_in,$type_out);
  33 }
  34
  35 $tests = "
  36
  37 bo LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_2 ~ bo
  38
  39 bo LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_3 ~ _undef_
  40
  41 zz LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 ~ _undef_
  42
  43 zz LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_3 ~ _undef_
  44
  45 zz LOCALE_CODE_ALPHA_2 0 ~ _undef_
  46
  47 bo LOCALE_CODE_ALPHA_2 0 ~ _undef_
  48
  49 _blank_ 0 0 ~ _undef_
  50
  51 BO  LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 ~ bol
  52
  53 bol LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_2 ~ bo
  54
  55 zwe LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_2 ~ zw
  56
  57 858 LOCALE_CODE_NUMERIC LOCALE_CODE_ALPHA_3 ~ ury
  58
  59 858 LOCALE_CODE_NUMERIC LOCALE_CODE_ALPHA_3 ~ ury
  60
  61 tr  LOCALE_CODE_ALPHA_2 LOCALE_CODE_NUMERIC ~ 792
  62
  63 ";
  64
  65 print "country_code2code...\n";
  66 test_Func(\&test,$tests,$runtests);
  67
  68 1;
  69 # Local Variables:
  70 # mode: cperl
  71 # indent-tabs-mode: nil
  72 # cperl-indent-level: 3
  73 # cperl-continued-statement-offset: 2
  74 # cperl-continued-brace-offset: 0
  75 # cperl-brace-offset: 0
  76 # cperl-brace-imaginary-offset: 0
  77 # cperl-label-offset: -2
  78 # End: