Commit | Line | Data |
---|---|---|
f768f60b S |
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 language2code(@test); | |
31 | } | |
32 | ||
33 | $tests = " | |
34 | ||
35 | Banana ~ _undef_ | |
36 | ||
37 | ~ _undef_ | |
38 | ||
39 | _undef_ ~ _undef_ | |
40 | ||
41 | Afar | |
42 | ~ | |
43 | aa | |
44 | ||
45 | ESTONIAN | |
46 | ~ | |
47 | et | |
48 | ||
49 | French | |
50 | ~ | |
51 | fr | |
52 | ||
53 | Greek | |
54 | ~ | |
55 | el | |
56 | ||
57 | Japanese | |
58 | ~ | |
59 | ja | |
60 | ||
61 | Zulu | |
62 | ~ | |
63 | zu | |
64 | ||
65 | english | |
66 | ~ | |
67 | en | |
68 | ||
69 | japanese | |
70 | ~ | |
71 | ja | |
72 | ||
73 | "; | |
74 | ||
75 | print "language2code...\n"; | |
76 | test_Func(\&test,$tests,$runtests); | |
77 | ||
78 | 1; | |
79 | # Local Variables: | |
80 | # mode: cperl | |
81 | # indent-tabs-mode: nil | |
82 | # cperl-indent-level: 3 | |
83 | # cperl-continued-statement-offset: 2 | |
84 | # cperl-continued-brace-offset: 0 | |
85 | # cperl-brace-offset: 0 | |
86 | # cperl-brace-imaginary-offset: 0 | |
87 | # cperl-label-offset: -2 | |
88 | # End: |