Commit | Line | Data |
f768f60b |
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"; |
a8135056 |
16 | } |
17 | |
f768f60b |
18 | unshift(@INC,$dir); |
47a334e9 |
19 | use Locale::Language; |
20 | |
f768f60b |
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 | } |
47a334e9 |
66 | } |
67 | |
f768f60b |
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 (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: |