summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t
diff options
context:
space:
mode:
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.t19
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__