summaryrefslogtreecommitdiff
path: root/cpan/Locale-Codes/t/country.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Locale-Codes/t/country.t')
-rw-r--r--cpan/Locale-Codes/t/country.t18
1 files changed, 9 insertions, 9 deletions
diff --git a/cpan/Locale-Codes/t/country.t b/cpan/Locale-Codes/t/country.t
index 830fa55392..77bf0fa927 100644
--- a/cpan/Locale-Codes/t/country.t
+++ b/cpan/Locale-Codes/t/country.t
@@ -16,7 +16,7 @@ if ( -f "t/testfunc.pl" ) {
}
unshift(@INC,$dir);
-use Locale::Country;
+use Locale::Codes::Country;
%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
"LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
@@ -31,45 +31,45 @@ sub test {
shift(@test);
$test[2] = $type{$test[2]}
if (@test == 3 && $test[2] && exists $type{$test[2]});
- return Locale::Country::rename_country(@test,"nowarn");
+ return Locale::Codes::Country::rename_country(@test,"nowarn");
} elsif ($test[0] eq "add_country") {
shift(@test);
$test[2] = $type{$test[2]}
if (@test == 3 && $test[2] && exists $type{$test[2]});
- return Locale::Country::add_country(@test,"nowarn");
+ return Locale::Codes::Country::add_country(@test,"nowarn");
} elsif ($test[0] eq "delete_country") {
shift(@test);
$test[1] = $type{$test[1]}
if (@test == 2 && $test[1] && exists $type{$test[1]});
- return Locale::Country::delete_country(@test,"nowarn");
+ return Locale::Codes::Country::delete_country(@test,"nowarn");
} elsif ($test[0] eq "add_country_alias") {
shift(@test);
- return Locale::Country::add_country_alias(@test,"nowarn");
+ return Locale::Codes::Country::add_country_alias(@test,"nowarn");
} elsif ($test[0] eq "delete_country_alias") {
shift(@test);
- return Locale::Country::delete_country_alias(@test,"nowarn");
+ return Locale::Codes::Country::delete_country_alias(@test,"nowarn");
} elsif ($test[0] eq "rename_country_code") {
shift(@test);
$test[2] = $type{$test[2]}
if (@test == 3 && $test[2] && exists $type{$test[2]});
- return Locale::Country::rename_country_code(@test,"nowarn");
+ return Locale::Codes::Country::rename_country_code(@test,"nowarn");
} elsif ($test[0] eq "add_country_code_alias") {
shift(@test);
$test[2] = $type{$test[2]}
if (@test == 3 && $test[2] && exists $type{$test[2]});
- return Locale::Country::add_country_code_alias(@test,"nowarn");
+ return Locale::Codes::Country::add_country_code_alias(@test,"nowarn");
} elsif ($test[0] eq "delete_country_code_alias") {
shift(@test);
$test[1] = $type{$test[1]}
if (@test == 2 && $test[1] && exists $type{$test[1]});
- return Locale::Country::delete_country_code_alias(@test,"nowarn");
+ return Locale::Codes::Country::delete_country_code_alias(@test,"nowarn");
} elsif ($test[0] eq "country2code") {
shift(@test);