cpan/Locale-Codes/t/code2currency.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::Currency;
  20
  21 %type = ( "LOCALE_CODE_ALPHA"    => LOCALE_CODE_ALPHA,
  22           "LOCALE_CODE_NUMERIC"  => LOCALE_CODE_NUMERIC,
  23         );
  24
  25 sub test {
  26    my(@test) = @_;
  27    $test[1]  = $type{$test[1]}
  28      if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
  29    return code2currency(@test);
  30 }
  31
  32 $tests = "
  33
  34 ukp ~ _undef_
  35
  36 zz ~ _undef_
  37
  38 zzz ~ _undef_
  39
  40 zzzz ~ _undef_
  41
  42 ~ _undef_
  43
  44 _undef_ ~ _undef_
  45
  46 BOB
  47    ~
  48    Boliviano
  49
  50 all
  51    ~
  52    Lek
  53
  54 bnd
  55    ~
  56    Brunei Dollar
  57
  58 bob
  59    ~
  60    Boliviano
  61
  62 byr
  63    ~
  64    Belarussian Ruble
  65
  66 chf
  67    ~
  68    Swiss Franc
  69
  70 cop
  71    ~
  72    Colombian Peso
  73
  74 dkk
  75    ~
  76    Danish Krone
  77
  78 fjd
  79    ~
  80    Fiji Dollar
  81
  82 idr
  83    ~
  84    Rupiah
  85
  86 mmk
  87    ~
  88    Kyat
  89
  90 mvr
  91    ~
  92    Rufiyaa
  93
  94 mwk
  95    ~
  96    Kwacha
  97
  98 rub
  99    ~
 100    Russian Ruble
 101
 102 zmk
 103    ~
 104    Zambian Kwacha
 105
 106 zwl
 107    ~
 108    Zimbabwe Dollar
 109
 110 ";
 111
 112 print "code2currency...\n";
 113 test_Func(\&test,$tests,$runtests);
 114
 115 1;
 116 # Local Variables:
 117 # mode: cperl
 118 # indent-tabs-mode: nil
 119 # cperl-indent-level: 3
 120 # cperl-continued-statement-offset: 2
 121 # cperl-continued-brace-offset: 0
 122 # cperl-brace-offset: 0
 123 # cperl-brace-imaginary-offset: 0
 124 # cperl-label-offset: -2
 125 # End: