diff options
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t')
-rw-r--r-- | macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t index 0872727c7e..b2c21b7769 100644 --- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t @@ -50,12 +50,25 @@ my $bound_domain = textdomain $textdomain; ok defined $bound_domain; ok $bound_domain, $textdomain; +my $missing_locale = 'locale de_AT missing'; +my $setlocale = Locale::Messages::setlocale (POSIX::LC_ALL() => ''); +if ($setlocale && $setlocale =~ /(?:austria|at)/i) { + $missing_locale = ''; +} else { + require Locale::Util; + + $setlocale = Locale::Util::set_locale (POSIX::LC_ALL(), 'de', 'AT'); + if ($setlocale && $setlocale =~ /(?:austria|at)/i) { + $missing_locale = ''; + } +} + # Normal lookup. -ok dcgettext (existing => 'View', LC_MESSAGES), 'Anzeigen'; +skip $missing_locale, dcgettext (existing => 'View', LC_MESSAGES), 'Anzeigen'; # Can we retrieve a translation with the gettext glue? -ok dcgettext (existing => "Which folder would you like to view?\004View", - LC_MESSAGES), 'Ansicht'; +skip $missing_locale, dcgettext (existing => "Which folder would you like to view?\004View", + LC_MESSAGES), 'Ansicht'; __END__ |