cpan/Locale-Codes/t/language_old.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_LANG_ALPHA_2" => LOCALE_LANG_ALPHA_2,
  22           "LOCALE_LANG_ALPHA_3" => LOCALE_LANG_ALPHA_3,
  23           "LOCALE_LANG_TERM"    => LOCALE_LANG_TERM,
  24         );
  25
  26 sub test {
  27    my(@test) = @_;
  28
  29    if      ($test[0] eq "rename_language") {
  30       shift(@test);
  31       $test[2]  = $type{$test[2]}
  32         if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
  33       return Locale::Language::rename_language(@test,"nowarn");
  34
  35    } elsif ($test[0] eq "add_language") {
  36       shift(@test);
  37       $test[2]  = $type{$test[2]}
  38         if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
  39       return Locale::Language::add_language(@test,"nowarn");
  40
  41    } elsif ($test[0] eq "delete_language") {
  42       shift(@test);
  43       $test[1]  = $type{$test[1]}
  44         if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
  45       return Locale::Language::delete_language(@test,"nowarn");
  46
  47    } elsif ($test[0] eq "add_language_alias") {
  48       shift(@test);
  49       return Locale::Language::add_language_alias(@test,"nowarn");
  50
  51    } elsif ($test[0] eq "delete_language_alias") {
  52       shift(@test);
  53       return Locale::Language::delete_language_alias(@test,"nowarn");
  54
  55    } elsif ($test[0] eq "language2code") {
  56       shift(@test);
  57       $test[1]  = $type{$test[1]}
  58         if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
  59       return language2code(@test);
  60
  61    } else {
  62       $test[1]  = $type{$test[1]}
  63         if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
  64       return code2language(@test);
  65    }
  66 }
  67
  68 $tests = "
  69
  70 zu ~ Zulu
  71
  72 rename_language zu NewName LOCALE_LANG_FOO ~ 0
  73
  74 rename_language zu English LOCALE_LANG_ALPHA_2 ~ 0
  75
  76 rename_language zu NewName LOCALE_LANG_ALPHA_3 ~ 0
  77
  78 zu ~ Zulu
  79
  80 rename_language zu NewName LOCALE_LANG_ALPHA_2 ~ 1
  81
  82 zu ~ NewName
  83
  84 ";
  85
  86 print "language (old; semi-private)...\n";
  87 test_Func(\&test,$tests,$runtests);
  88
  89 1;
  90 # Local Variables:
  91 # mode: cperl
  92 # indent-tabs-mode: nil
  93 # cperl-indent-level: 3
  94 # cperl-continued-statement-offset: 2
  95 # cperl-continued-brace-offset: 0
  96 # cperl-brace-offset: 0
  97 # cperl-brace-imaginary-offset: 0
  98 # cperl-label-offset: -2
  99 # End: