diff options
Diffstat (limited to 'cpan/Locale-Codes/t/country.t')
-rw-r--r-- | cpan/Locale-Codes/t/country.t | 18 |
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); |