From 7994f86ec5e18f9d0d9f90161a2f26dd26d26af7 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 4 Jul 2021 03:01:24 +0000 Subject: CTAN sync 202107040301 --- .../texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t') diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t index af4c84cadb..e841f4e489 100644 --- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t @@ -40,7 +40,7 @@ Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT"); Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1"); my $missing_locale = 'locale de_AT missing'; -my $setlocale = POSIX::setlocale (POSIX::LC_ALL() => ''); +my $setlocale = Locale::Messages::setlocale (POSIX::LC_ALL() => ''); if ($setlocale && $setlocale =~ /(?:austria|at)/i) { $missing_locale = ''; } else { @@ -60,12 +60,12 @@ $bound_dir = bindtextdomain additional => $locale_dir; ok defined $bound_dir; ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir)); -ok 'Dezember', dgettext (existing => 'December'); +skip $missing_locale, 'Dezember', dgettext (existing => 'December'); ok 'September', dgettext (existing => 'September'); ok 'Not translated', dgettext (existing => 'Not translated'); skip $missing_locale, 'Jänner', dgettext (existing => 'January'); -ok 'Montag', dgettext (additional => 'Monday'); +skip $missing_locale, 'Montag', dgettext (additional => 'Monday'); ok dgettext (additional => 'Not translated'), 'Not translated'; skip $missing_locale, dgettext (additional => 'Saturday'), 'Sonnabend'; -- cgit v1.2.3