summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-07-04 03:01:24 +0000
committerNorbert Preining <norbert@preining.info>2021-07-04 03:01:24 +0000
commit7994f86ec5e18f9d0d9f90161a2f26dd26d26af7 (patch)
tree88edb7d1a1aed3183a1350202c898716b4ac59ce /macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests
parent03fa062b03ce2bb5385f8f30888f94d441fa5cb4 (diff)
CTAN sync 202107040301
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02asmo_449.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st-euro.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp10007.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1250.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1251.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1252.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1253.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1254.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1256.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1257.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02csn_369103.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cwi.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02dec-mcs.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de-a.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-ca-fr.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no-a.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-a.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-s.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se-a.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fr.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-is-friss.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-it.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-pt.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-uk.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-us.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ecma-cyrillic.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-academy.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-ps.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02gost_19768-74.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek-ccitt.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7-old.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02hp-roman8.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm037.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm038.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1004.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1026.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1047.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm256.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm273.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm274.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm275.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm277.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm278.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm280.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm281.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm284.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm285.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm290.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm297.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm420.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm423.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm424.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm437.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm500.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm850.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm851.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm852.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm855.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm857.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm860.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm861.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm862.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm863.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm864.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm865.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm866.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm868.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm869.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm870.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm871.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm874.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm875.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm880.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm891.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm903.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm904.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm905.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm918.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iec_p27-1.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-8.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-cyrillic.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-1.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-10.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t4
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-13.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-14.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-15.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-16.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-2.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-3.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-4.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-5.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-6.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-7.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-8.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-9.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_10367-box.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_2033-1983.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427-ext.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5428.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi-8.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-r.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-ru.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-t.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-u.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek-1.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-is.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-sami.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-uk.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macarabic.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccroatian.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccyrillic.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macgreek.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02machebrew.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maciceland.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macintosh.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macromania.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macthai.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macturkish.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macukraine.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-dano.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-sefi.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nextstep.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02sami-ws2.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02tis-620.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02us-ascii.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02viscii.t2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_pp.t19
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_xs.t19
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t4
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_xs.t4
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_pp.t6
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_xs.t6
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_pp.t10
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t10
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_pp.t16
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_xs.t16
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_pp.t25
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_xs.t25
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_pp.t6
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_xs.t6
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t10
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_xs.t10
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_pp.t15
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_xs.t15
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_pp.t25
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_xs.t25
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_pp.t645
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_xs.t645
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_dumb.t100
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t4
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_xs.t4
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_pp.t34
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_xs.t106
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_pp.t14
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_xs.t14
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_pp.t16
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_xs.t16
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_pp.t19
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_xs.t19
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t7
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04russian_plural_function.t54
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t38
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/additional.mobin1025 -> 1043 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/existing.mobin1225 -> 1232 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/additional.mobin494 -> 501 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/existing.mobin433 -> 440 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/additional.mobin0 -> 1030 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/existing.mobin0 -> 1219 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/additional.mobin0 -> 488 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/existing.mobin0 -> 427 bytes
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/Makefile2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de.po2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de_AT.po2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy.po58
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy_XY.po16
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de.po2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de_AT.po2
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy.po76
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy_XY.po16
189 files changed, 2167 insertions, 290 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02asmo_449.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02asmo_449.t
index 6f21589b29..c969740baa 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02asmo_449.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02asmo_449.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st-euro.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st-euro.t
index ccbdea28b3..67be649c08 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st-euro.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st-euro.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st.t
index fe2cd44cda..40e85ae523 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02atari-st.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp10007.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp10007.t
index ed7c4b94c6..16f1003982 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp10007.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp10007.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1250.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1250.t
index cfa94e48b5..598ac7f092 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1250.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1250.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1251.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1251.t
index 9703c6df1d..a17217b7e1 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1251.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1251.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1252.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1252.t
index 81250f93ab..0d2e6dc22c 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1252.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1252.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1253.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1253.t
index dcbaff40b6..bbeaed42d3 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1253.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1253.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1254.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1254.t
index 889bd406ea..40c9a36f64 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1254.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1254.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1256.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1256.t
index e0589d9315..83564a4c97 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1256.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1256.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1257.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1257.t
index b1c5a3fb7e..1fa151a1d6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1257.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cp1257.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02csn_369103.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02csn_369103.t
index e4d81df34f..6722cb6e60 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02csn_369103.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02csn_369103.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cwi.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cwi.t
index 608e870202..5642f4e8d9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cwi.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02cwi.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02dec-mcs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02dec-mcs.t
index 8f7001950f..867ef926b9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02dec-mcs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02dec-mcs.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de-a.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de-a.t
index 254c6d33f0..2405dbbfb8 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de-a.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de-a.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de.t
index 577a7da139..bfb6518ca9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-at-de.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-ca-fr.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-ca-fr.t
index 780f966b63..1eb00977a3 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-ca-fr.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-ca-fr.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no-a.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no-a.t
index 4f2521e9d0..1ec1da4765 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no-a.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no-a.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no.t
index 085a11dd14..b94f6307c2 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-dk-no.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-a.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-a.t
index 1ff8a06a75..6ff5332e40 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-a.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-a.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-s.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-s.t
index b582feaf58..cce5b91806 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-s.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es-s.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es.t
index b31ea05e2f..f7c517a6af 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-es.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se-a.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se-a.t
index dd364db045..5a489a07e0 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se-a.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se-a.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se.t
index 8ba6366559..4e07c54b02 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fi-se.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fr.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fr.t
index 0c0368d5de..3c912c9d7d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fr.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-fr.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-is-friss.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-is-friss.t
index 9292371ac7..f8e741eb4a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-is-friss.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-is-friss.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-it.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-it.t
index c7d5afdf90..86988e9db6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-it.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-it.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-pt.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-pt.t
index 403da57f43..68ce71a8a1 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-pt.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-pt.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-uk.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-uk.t
index bb17cb4003..c98aeecd08 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-uk.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-uk.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-us.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-us.t
index d4250bfd1e..89153942be 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-us.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ebcdic-us.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ecma-cyrillic.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ecma-cyrillic.t
index 4a7df61d5e..9c9400a641 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ecma-cyrillic.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ecma-cyrillic.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-academy.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-academy.t
index f069d89892..bf5706bcd6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-academy.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-academy.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-ps.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-ps.t
index 49c4b48032..9d2563dbbc 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-ps.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02georgian-ps.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02gost_19768-74.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02gost_19768-74.t
index af9a779084..0915028c0a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02gost_19768-74.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02gost_19768-74.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek-ccitt.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek-ccitt.t
index 6c978a8488..4241690d17 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek-ccitt.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek-ccitt.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7-old.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7-old.t
index 0bb1ba8746..80c9b59982 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7-old.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7-old.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7.t
index 1230b9f813..b855ed7e5d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02greek7.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02hp-roman8.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02hp-roman8.t
index b5413262f6..5fd85e56d6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02hp-roman8.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02hp-roman8.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm037.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm037.t
index 2f20869382..83f1a4ce36 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm037.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm037.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm038.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm038.t
index 7ada4549ed..504d1127f3 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm038.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm038.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1004.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1004.t
index 55672386f4..33d9a8c0bf 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1004.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1004.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1026.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1026.t
index 72468cb665..6fbe4ace58 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1026.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1026.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1047.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1047.t
index fdb6be555e..b7eb85f09d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1047.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm1047.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm256.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm256.t
index c633a30907..475eb2439e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm256.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm256.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm273.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm273.t
index fca6d30199..2ee5ff563d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm273.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm273.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm274.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm274.t
index 0230c566ea..ff4114491c 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm274.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm274.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm275.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm275.t
index 91c5833ef8..9dbd73ff2d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm275.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm275.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm277.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm277.t
index af0dac77b7..8e66d15c26 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm277.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm277.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm278.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm278.t
index 6a8d3e6caa..1809b27adb 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm278.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm278.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm280.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm280.t
index 6247be6c5c..ff0342ccf2 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm280.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm280.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm281.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm281.t
index 5267d812fb..1d466b8af9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm281.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm281.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm284.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm284.t
index fbcabc60ad..35b86ed53a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm284.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm284.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm285.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm285.t
index 77b92abb4b..44f9705654 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm285.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm285.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm290.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm290.t
index c6cab982a2..568286a737 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm290.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm290.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm297.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm297.t
index d5cde08e18..c1b7da8929 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm297.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm297.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm420.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm420.t
index b82ff2ef20..8ccafd8766 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm420.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm420.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\xd0"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm423.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm423.t
index 924de3750a..ed986bc0c5 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm423.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm423.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm424.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm424.t
index 0e2bf6c64b..3cb94139b7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm424.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm424.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm437.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm437.t
index c77a074dd0..d1e0a92a65 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm437.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm437.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm500.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm500.t
index 65a256ef75..d29abd761b 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm500.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm500.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm850.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm850.t
index 3a29b7414d..54185b8901 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm850.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm850.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm851.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm851.t
index fad9a1624a..4fde36641d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm851.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm851.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm852.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm852.t
index 61d7972ebd..7c62b408db 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm852.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm852.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm855.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm855.t
index ed24159902..bc6f53d14e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm855.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm855.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm857.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm857.t
index 8de5cd6167..d95237fca7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm857.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm857.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm860.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm860.t
index 7ea02bdeac..d203fce910 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm860.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm860.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm861.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm861.t
index 25f280a413..e697008f1b 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm861.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm861.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm862.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm862.t
index e9fa1c509c..5fee44ede8 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm862.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm862.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm863.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm863.t
index 25cf4f6912..539efc89ab 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm863.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm863.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm864.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm864.t
index 3681cdefcd..dc9b81ddbe 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm864.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm864.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm865.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm865.t
index 592b43fe1d..1772c576a8 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm865.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm865.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm866.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm866.t
index 40856e3282..9dce2354fa 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm866.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm866.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm868.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm868.t
index fe8174c538..5f1070475f 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm868.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm868.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x8c"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm869.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm869.t
index 8a4adb9d2c..3c41bba727 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm869.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm869.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm870.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm870.t
index 15d2e7abde..af4d0332f3 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm870.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm870.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm871.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm871.t
index e6c08c92d8..1e20c3fdd0 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm871.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm871.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm874.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm874.t
index 5936eb9bb1..e4787140b1 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm874.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm874.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm875.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm875.t
index 6e004df680..958214515c 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm875.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm875.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm880.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm880.t
index 6fd75e772e..a9afd3c642 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm880.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm880.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm891.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm891.t
index 44e63c0beb..f58eac3907 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm891.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm891.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm903.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm903.t
index 1a9516cc83..1f4f164713 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm903.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm903.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm904.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm904.t
index 4e08fe11b2..83dcd97f50 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm904.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm904.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm905.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm905.t
index 9ed52380e0..2a1a4b0105 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm905.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm905.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm918.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm918.t
index 090ed6a35a..eae8ecb798 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm918.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02ibm918.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x6f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iec_p27-1.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iec_p27-1.t
index fa784930a4..90c869c2a8 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iec_p27-1.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iec_p27-1.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-8.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-8.t
index e15dd0a2aa..569632c79f 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-8.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-8.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-cyrillic.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-cyrillic.t
index 42ca7ddd75..4e0d94e45f 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-cyrillic.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis-cyrillic.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis.t
index eb6812e9bb..da6e12889e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02inis.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-1.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-1.t
index 86cc9caa2c..12473986c9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-1.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-1.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-10.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-10.t
index 92f6998622..edbae8994d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-10.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-10.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t
index e399ab3696..b31537b22c 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t
@@ -11,7 +11,7 @@ BEGIN {
eval {
require Encode;
- if ($Encode::VERSION < "1.78") {
+ if ($Encode::VERSION =~ /^1\./ && $Encode::VERSION < "1.78") {
print "1..0 # Skip: Encode $Encode::VERSION has a " .
"bug, please upgrade!\n";
exit 0;
@@ -84,7 +84,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-13.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-13.t
index c9d21c193a..307b749e51 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-13.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-13.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-14.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-14.t
index 1fc3772b54..d60c78e6c7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-14.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-14.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-15.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-15.t
index 59c1e08fea..3ed073ed07 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-15.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-15.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-16.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-16.t
index e7b9cec0f5..8fcb1683b1 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-16.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-16.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-2.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-2.t
index 876f4335a0..61a6ea8d49 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-2.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-2.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-3.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-3.t
index 983a4ebd04..4df8df28e4 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-3.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-3.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-4.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-4.t
index 288462c3a0..7eefc6a774 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-4.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-4.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-5.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-5.t
index e23a6ab96e..2d6a1dc544 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-5.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-5.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-6.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-6.t
index 309a9c0cee..d025678ffb 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-6.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-6.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-7.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-7.t
index 7315ce66ca..b18460c4ea 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-7.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-7.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-8.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-8.t
index bf8c1bd430..f72f25a3a6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-8.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-8.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-9.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-9.t
index eec7d6bdd7..d1b2a15776 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-9.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-9.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_10367-box.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_10367-box.t
index f6db91b18c..01cc5f364d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_10367-box.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_10367-box.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_2033-1983.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_2033-1983.t
index 019b1a4d97..19156361c4 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_2033-1983.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_2033-1983.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427-ext.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427-ext.t
index 5580683a65..a275cdd09a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427-ext.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427-ext.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427.t
index 723f276209..109dc5b93c 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5427.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5428.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5428.t
index de1704135d..0245813e0b 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5428.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso_5428.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi-8.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi-8.t
index 46590f2402..75bd89a470 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi-8.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi-8.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-r.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-r.t
index a868677606..622f77b09f 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-r.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-r.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-ru.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-ru.t
index aebcb4a8d5..2779009450 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-ru.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-ru.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-t.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-t.t
index 549aea4996..dab3a3da7d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-t.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-t.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-u.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-u.t
index a37c59f34f..27724068f9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-u.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02koi8-u.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek-1.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek-1.t
index 5f4c7113a0..8aa8f0768f 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek-1.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek-1.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek.t
index 8e5ecbd671..df65a56dec 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02latin-greek.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-is.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-is.t
index acf53f638f..519a8984fb 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-is.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-is.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-sami.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-sami.t
index 2c6c9d6e92..1682ccc7fc 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-sami.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-sami.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-uk.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-uk.t
index e17b100477..d30b9ed17b 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-uk.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02mac-uk.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macarabic.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macarabic.t
index 0636d94925..7839cb7192 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macarabic.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macarabic.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccroatian.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccroatian.t
index e6e1600726..da4edba627 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccroatian.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccroatian.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccyrillic.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccyrillic.t
index c90a3867f2..dc589c59df 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccyrillic.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maccyrillic.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macgreek.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macgreek.t
index 52db6cbd73..f5fdd2c1e9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macgreek.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macgreek.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02machebrew.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02machebrew.t
index c175397325..fcde1a70f4 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02machebrew.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02machebrew.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maciceland.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maciceland.t
index 9089a10417..6a9d048f99 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maciceland.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02maciceland.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macintosh.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macintosh.t
index dc752de94b..8ff26bf8a4 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macintosh.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macintosh.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macromania.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macromania.t
index e76eaa3c95..40bb565d6a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macromania.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macromania.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macthai.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macthai.t
index 1877e5b45e..6d2234e521 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macthai.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macthai.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macturkish.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macturkish.t
index 882f79f618..82792c09ce 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macturkish.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macturkish.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macukraine.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macukraine.t
index 1846c5d093..e65ef7c9fc 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macukraine.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02macukraine.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-dano.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-dano.t
index a922610b3a..52d6f4be29 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-dano.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-dano.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-sefi.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-sefi.t
index e7124fe1eb..66e83af8d3 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-sefi.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nats-sefi.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nextstep.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nextstep.t
index a122d265ba..2c0562432d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nextstep.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02nextstep.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02sami-ws2.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02sami-ws2.t
index c9dbee3599..7b92cf7b6a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02sami-ws2.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02sami-ws2.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02tis-620.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02tis-620.t
index 0d0eb2fa72..29529c29e8 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02tis-620.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02tis-620.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02us-ascii.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02us-ascii.t
index 74fd1b0e67..ed33fdae92 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02us-ascii.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02us-ascii.t
@@ -72,7 +72,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02viscii.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02viscii.t
index 1f206fbfe8..e593740dc1 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02viscii.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02viscii.t
@@ -75,7 +75,7 @@ ok $result_int;
# Check handling of unknown characters.
my $test_string1 = [ unpack 'c*', ' Supergirl ' ];
$test_string1->[0] = 0xad0be;
-$test_string1->[-1] = 0xbeefbabe;
+$test_string1->[-1] = 0xad0be;
my $test_string2 = [ unpack 'c*', 'Supergirl' ];
my $unknown = "\x3f"; # Unknown character!
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_pp.t
index 0872727c7e..b2c21b7769 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03_tester_david_pp.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__
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__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
index b791a8d845..ee22a9f584 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
@@ -43,7 +43,7 @@ Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET");
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 {
@@ -71,7 +71,7 @@ ok defined $bound_codeset;
ok $bound_codeset, 'ISO-8859-1';
skip $missing_locale, gettext ('January'), 'Jänner';
-ok gettext ('March'), 'März';
+skip $missing_locale, gettext ('March'), 'März';
# This will cause GNU gettext to re-load our catalog.
$bound_dir = bindtextdomain $textdomain => $locale_dir . '/../LocaleData';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_xs.t
index b791a8d845..ee22a9f584 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_xs.t
@@ -43,7 +43,7 @@ Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET");
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 {
@@ -71,7 +71,7 @@ ok defined $bound_codeset;
ok $bound_codeset, 'ISO-8859-1';
skip $missing_locale, gettext ('January'), 'Jänner';
-ok gettext ('March'), 'März';
+skip $missing_locale, gettext ('March'), 'März';
# This will cause GNU gettext to re-load our catalog.
$bound_dir = bindtextdomain $textdomain => $locale_dir . '/../LocaleData';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_pp.t
index 572f7c90ad..58caab590e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_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', dcgettext (existing => 'December', LC_MESSAGES);
+skip $missing_locale, 'Dezember', dcgettext (existing => 'December', LC_MESSAGES);
ok 'September', dcgettext (existing => 'September', LC_MESSAGES);
ok 'Not translated', dcgettext (existing => 'Not translated', LC_MESSAGES);
skip $missing_locale, 'Jänner', dcgettext (existing => 'January', LC_MESSAGES);
-ok 'Montag', dcgettext (additional => 'Monday', LC_MESSAGES);
+skip $missing_locale, 'Montag', dcgettext (additional => 'Monday', LC_MESSAGES);
ok 'Not translated', dcgettext (additional => 'Not translated', LC_MESSAGES);
skip $missing_locale,
dcgettext (additional => 'Saturday', LC_MESSAGES), 'Sonnabend';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_xs.t
index 572f7c90ad..58caab590e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcgettext_xs.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', dcgettext (existing => 'December', LC_MESSAGES);
+skip $missing_locale, 'Dezember', dcgettext (existing => 'December', LC_MESSAGES);
ok 'September', dcgettext (existing => 'September', LC_MESSAGES);
ok 'Not translated', dcgettext (existing => 'Not translated', LC_MESSAGES);
skip $missing_locale, 'Jänner', dcgettext (existing => 'January', LC_MESSAGES);
-ok 'Montag', dcgettext (additional => 'Monday', LC_MESSAGES);
+skip $missing_locale, 'Montag', dcgettext (additional => 'Monday', LC_MESSAGES);
ok 'Not translated', dcgettext (additional => 'Not translated', LC_MESSAGES);
skip $missing_locale,
dcgettext (additional => 'Saturday', LC_MESSAGES), 'Sonnabend';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_pp.t
index cc8a7f32c9..b71bd57af7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_pp.t
@@ -34,7 +34,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -54,7 +54,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -73,7 +73,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
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 {
@@ -95,7 +95,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -112,7 +112,7 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
+Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
for (0 .. 40) {
my $translation = dcngettext (additional => $strings[0], $strings[1], $_, LC_MESSAGES);
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t
index cc8a7f32c9..b71bd57af7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t
@@ -34,7 +34,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -54,7 +54,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -73,7 +73,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
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 {
@@ -95,7 +95,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -112,7 +112,7 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
+Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
for (0 .. 40) {
my $translation = dcngettext (additional => $strings[0], $strings[1], $_, LC_MESSAGES);
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_pp.t
index 7a459922b1..fc87a132f7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_pp.t
@@ -34,7 +34,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -67,7 +67,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -84,13 +84,13 @@ Locale::Messages::nl_putenv ("LANGUAGE=de_AT");
Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-
-POSIX::setlocale (POSIX::LC_ALL() => '');
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_AT missing';
for (0 .. 9) {
my $translation = dcnpgettext (existing => $context, $strings[0], $strings[1], $_, LC_MESSAGES);
my $expected = $_ == 1 ? 'Einzahl 2' : 'Mehrzahl 2';
- ok $translation, $expected;
+ skip $missing_locale, $translation, $expected;
}
Locale::Messages::nl_putenv ("LANGUAGE=C");
@@ -98,7 +98,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -116,14 +116,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
for (0 .. 40) {
my $translation = dcnpgettext (additional => $context, $strings[0], $strings[1], $_, LC_MESSAGES);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus 2:$plural";
+ skip $missing_locale, $translation, "Numerus 2:$plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_xs.t
index 7a459922b1..fc87a132f7 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcnpgettext_xs.t
@@ -34,7 +34,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -67,7 +67,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -84,13 +84,13 @@ Locale::Messages::nl_putenv ("LANGUAGE=de_AT");
Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-
-POSIX::setlocale (POSIX::LC_ALL() => '');
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_AT missing';
for (0 .. 9) {
my $translation = dcnpgettext (existing => $context, $strings[0], $strings[1], $_, LC_MESSAGES);
my $expected = $_ == 1 ? 'Einzahl 2' : 'Mehrzahl 2';
- ok $translation, $expected;
+ skip $missing_locale, $translation, $expected;
}
Locale::Messages::nl_putenv ("LANGUAGE=C");
@@ -98,7 +98,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -116,14 +116,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
for (0 .. 40) {
my $translation = dcnpgettext (additional => $context, $strings[0], $strings[1], $_, LC_MESSAGES);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus 2:$plural";
+ skip $missing_locale, $translation, "Numerus 2:$plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_pp.t
index baf8ce7720..428ba5efe6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_pp.t
@@ -47,14 +47,27 @@ $bound_dir = bindtextdomain additional => $locale_dir;
ok defined $bound_dir;
ok (File::Spec->catdir ($locale_dir), File::Spec->catdir ($bound_dir));
+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 = '';
+ }
+}
+
# make sure dgettext and dpgettext return diff values
-ok 'Anzeigen', dcgettext (existing => 'View', LC_MESSAGES);
-ok 'Ansicht', dcpgettext (existing => 'Which folder would you like to view?','View', LC_MESSAGES);
-ok 'Not translated', dcpgettext (existing => 'none', 'Not translated', LC_MESSAGES);
+skip $missing_locale, 'Anzeigen', dcgettext (existing => 'View', LC_MESSAGES);
+skip $missing_locale, 'Ansicht', dcpgettext (existing => 'Which folder would you like to view?','View', LC_MESSAGES);
+skip $missing_locale, 'Not translated', dcpgettext (existing => 'none', 'Not translated', LC_MESSAGES);
-ok 'Ein weiterer Blick', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
-ok 'Not translated', dcpgettext (additional => 'none', 'Not translated', LC_MESSAGES);
-ok 'Ein weiterer Blick', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
+skip $missing_locale, 'Eine andere Ansicht mit Kontext', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
+skip $missing_locale, 'Not translated', dcpgettext (additional => 'none', 'Not translated', LC_MESSAGES);
+skip $missing_locale, 'Eine andere Ansicht mit Kontext', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_xs.t
index baf8ce7720..428ba5efe6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcpgettext_xs.t
@@ -47,14 +47,27 @@ $bound_dir = bindtextdomain additional => $locale_dir;
ok defined $bound_dir;
ok (File::Spec->catdir ($locale_dir), File::Spec->catdir ($bound_dir));
+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 = '';
+ }
+}
+
# make sure dgettext and dpgettext return diff values
-ok 'Anzeigen', dcgettext (existing => 'View', LC_MESSAGES);
-ok 'Ansicht', dcpgettext (existing => 'Which folder would you like to view?','View', LC_MESSAGES);
-ok 'Not translated', dcpgettext (existing => 'none', 'Not translated', LC_MESSAGES);
+skip $missing_locale, 'Anzeigen', dcgettext (existing => 'View', LC_MESSAGES);
+skip $missing_locale, 'Ansicht', dcpgettext (existing => 'Which folder would you like to view?','View', LC_MESSAGES);
+skip $missing_locale, 'Not translated', dcpgettext (existing => 'none', 'Not translated', LC_MESSAGES);
-ok 'Ein weiterer Blick', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
-ok 'Not translated', dcpgettext (additional => 'none', 'Not translated', LC_MESSAGES);
-ok 'Ein weiterer Blick', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
+skip $missing_locale, 'Eine andere Ansicht mit Kontext', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
+skip $missing_locale, 'Not translated', dcpgettext (additional => 'none', 'Not translated', LC_MESSAGES);
+skip $missing_locale, 'Eine andere Ansicht mit Kontext', dcpgettext (additional => 'Context', 'Another View', LC_MESSAGES);
__END__
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';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_xs.t
index af4c84cadb..e841f4e489 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dgettext_xs.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';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
index 5f05a6155b..2b6d9f6f39 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -54,7 +54,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -73,7 +73,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
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 {
@@ -96,7 +96,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -114,7 +114,7 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
+Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
for (0 .. 40) {
my $translation = dngettext (additional => $strings[0], $strings[1], $_);
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_xs.t
index 5f05a6155b..2b6d9f6f39 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_xs.t
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -54,7 +54,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -73,7 +73,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
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 {
@@ -96,7 +96,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -114,7 +114,7 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
+Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
for (0 .. 40) {
my $translation = dngettext (additional => $strings[0], $strings[1], $_);
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_pp.t
index df9c0ccdb5..ba4d8655f4 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_pp.t
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -68,7 +68,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -86,12 +86,13 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_AT missing';
for (0 .. 9) {
my $translation = dnpgettext (existing => $context, $strings[0], $strings[1], $_);
my $expected = $_ == 1 ? 'Einzahl 2' : 'Mehrzahl 2';
- ok $expected, $translation;
+ skip $missing_locale, $expected, $translation;
}
Locale::Messages::nl_putenv ("LANGUAGE=C");
@@ -99,7 +100,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -117,14 +118,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
for (0 .. 40) {
my $translation = dnpgettext (additional => $context, $strings[0], $strings[1], $_);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus 2:$plural";
+ skip $missing_locale, $translation, "Numerus 2:$plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_xs.t
index df9c0ccdb5..ba4d8655f4 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dnpgettext_xs.t
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -68,7 +68,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
@@ -86,12 +86,13 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_AT missing';
for (0 .. 9) {
my $translation = dnpgettext (existing => $context, $strings[0], $strings[1], $_);
my $expected = $_ == 1 ? 'Einzahl 2' : 'Mehrzahl 2';
- ok $expected, $translation;
+ skip $missing_locale, $expected, $translation;
}
Locale::Messages::nl_putenv ("LANGUAGE=C");
@@ -99,7 +100,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain additional => $locale_dir;
@@ -117,14 +118,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
for (0 .. 40) {
my $translation = dnpgettext (additional => $context, $strings[0], $strings[1], $_);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus 2:$plural";
+ skip $missing_locale, $translation, "Numerus 2:$plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_pp.t
index 7483c828fd..23056316a9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_pp.t
@@ -39,7 +39,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
ok defined $bound_dir;
@@ -49,13 +49,26 @@ $bound_dir = bindtextdomain additional => $locale_dir;
ok defined $bound_dir;
ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir));
+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 = '';
+ }
+}
+
# make sure dgettext and dpgettext return diff values
-ok dgettext (existing => 'View'), 'Anzeigen';
-ok dpgettext (existing => 'Which folder would you like to view?', 'View'), 'Ansicht';
-ok dpgettext (existing => 'none', 'Not translated'), 'Not translated';
+skip $missing_locale, dgettext (existing => 'View'), 'Anzeigen';
+skip $missing_locale, dpgettext (existing => 'Which folder would you like to view?', 'View'), 'Ansicht';
+skip $missing_locale, dpgettext (existing => 'none', 'Not translated'), 'Not translated';
-ok dpgettext (additional => 'Context', 'Another View'), 'Ein weiterer Blick';
-ok dpgettext (additional => 'none', 'Not translated'), 'Not translated';
+skip $missing_locale, dpgettext (additional => 'Context', 'Another View'), 'Eine andere Ansicht mit Kontext';
+skip $missing_locale, dpgettext (additional => 'none', 'Not translated'), 'Not translated';
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_xs.t
index 7483c828fd..23056316a9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dpgettext_xs.t
@@ -39,7 +39,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain existing => $locale_dir;
ok defined $bound_dir;
@@ -49,13 +49,26 @@ $bound_dir = bindtextdomain additional => $locale_dir;
ok defined $bound_dir;
ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir));
+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 = '';
+ }
+}
+
# make sure dgettext and dpgettext return diff values
-ok dgettext (existing => 'View'), 'Anzeigen';
-ok dpgettext (existing => 'Which folder would you like to view?', 'View'), 'Ansicht';
-ok dpgettext (existing => 'none', 'Not translated'), 'Not translated';
+skip $missing_locale, dgettext (existing => 'View'), 'Anzeigen';
+skip $missing_locale, dpgettext (existing => 'Which folder would you like to view?', 'View'), 'Ansicht';
+skip $missing_locale, dpgettext (existing => 'none', 'Not translated'), 'Not translated';
-ok dpgettext (additional => 'Context', 'Another View'), 'Ein weiterer Blick';
-ok dpgettext (additional => 'none', 'Not translated'), 'Not translated';
+skip $missing_locale, dpgettext (additional => 'Context', 'Another View'), 'Eine andere Ansicht mit Kontext';
+skip $missing_locale, dpgettext (additional => 'none', 'Not translated'), 'Not translated';
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_pp.t
new file mode 100644
index 0000000000..35fcd7024f
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_pp.t
@@ -0,0 +1,645 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use constant NUM_TESTS => 85;
+
+use Locale::Messages qw (nl_putenv bindtextdomain textdomain gettext);
+require POSIX;
+require File::Spec;
+
+BEGIN {
+ my $package;
+ if ($0 =~ /_pp\.t$/) {
+ $package = 'gettext_pp';
+ } else {
+ $package = 'gettext_xs';
+ }
+
+ my $selected = Locale::Messages->select_package ($package);
+ if ($selected ne $package && 'gettext_xs' eq $package) {
+ print "1..0 # Skip: Locale::$package not available here.\n";
+ exit 0;
+ }
+
+ plan tests => NUM_TESTS;
+}
+
+# Clean environment first.
+foreach my $var (keys %ENV) {
+ if ('LC_' eq substr $var, 0, 3) {
+ nl_putenv "$var";
+ }
+}
+
+nl_putenv "LC_ALL=de_DE";
+nl_putenv "LC_MESSAGES=de_DE";
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_DE missing';
+if (!$missing_locale && $0 =~ /_xs\.t$/) {
+ $missing_locale = $ENV{GNU_GETTEXT_COMPATIBILITY} ?
+ '' : 'compatibility tests not activated';
+}
+Locale::Messages::setlocale (POSIX::LC_ALL() => 'C');
+
+my $locale_dir = $0;
+$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
+$locale_dir .= '/LocaleData';
+
+my $textdomain = 'existing';
+my $bound_dir = bindtextdomain $textdomain => $locale_dir;
+
+ok defined $bound_dir;
+ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir));
+
+my $bound_domain = textdomain $textdomain;
+
+ok defined $bound_domain;
+ok $bound_domain, $textdomain;
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+__END__
+
+Local Variables:
+mode: perl
+perl-indent-level: 4
+perl-continued-statement-offset: 4
+perl-continued-brace-offset: 0
+perl-brace-offset: -4
+perl-brace-imaginary-offset: 0
+perl-label-offset: -4
+cperl-indent-level: 4
+cperl-continued-statement-offset: 2
+tab-width: 4
+End:
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_xs.t
new file mode 100644
index 0000000000..35fcd7024f
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03environment_xs.t
@@ -0,0 +1,645 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use constant NUM_TESTS => 85;
+
+use Locale::Messages qw (nl_putenv bindtextdomain textdomain gettext);
+require POSIX;
+require File::Spec;
+
+BEGIN {
+ my $package;
+ if ($0 =~ /_pp\.t$/) {
+ $package = 'gettext_pp';
+ } else {
+ $package = 'gettext_xs';
+ }
+
+ my $selected = Locale::Messages->select_package ($package);
+ if ($selected ne $package && 'gettext_xs' eq $package) {
+ print "1..0 # Skip: Locale::$package not available here.\n";
+ exit 0;
+ }
+
+ plan tests => NUM_TESTS;
+}
+
+# Clean environment first.
+foreach my $var (keys %ENV) {
+ if ('LC_' eq substr $var, 0, 3) {
+ nl_putenv "$var";
+ }
+}
+
+nl_putenv "LC_ALL=de_DE";
+nl_putenv "LC_MESSAGES=de_DE";
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_DE missing';
+if (!$missing_locale && $0 =~ /_xs\.t$/) {
+ $missing_locale = $ENV{GNU_GETTEXT_COMPATIBILITY} ?
+ '' : 'compatibility tests not activated';
+}
+Locale::Messages::setlocale (POSIX::LC_ALL() => 'C');
+
+my $locale_dir = $0;
+$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
+$locale_dir .= '/LocaleData';
+
+my $textdomain = 'existing';
+my $bound_dir = bindtextdomain $textdomain => $locale_dir;
+
+ok defined $bound_dir;
+ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir));
+
+my $bound_domain = textdomain $textdomain;
+
+ok defined $bound_domain;
+ok $bound_domain, $textdomain;
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=C';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=C';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=C';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=C';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'May';
+
+nl_putenv 'LANGUAGE=de_DE';
+nl_putenv 'LANG=de_DE';
+nl_putenv 'LC_MESSAGES=de_DE';
+nl_putenv 'LC_ALL=de_DE';
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('May'), 'Mai';
+
+__END__
+
+Local Variables:
+mode: perl
+perl-indent-level: 4
+perl-continued-statement-offset: 4
+perl-continued-brace-offset: 0
+perl-brace-offset: -4
+perl-brace-imaginary-offset: 0
+perl-label-offset: -4
+cperl-indent-level: 4
+cperl-continued-statement-offset: 2
+tab-width: 4
+End:
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_dumb.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_dumb.t
new file mode 100644
index 0000000000..5dd513c836
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_dumb.t
@@ -0,0 +1,100 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use constant NUM_TESTS => 20;
+
+use Locale::Messages qw (bindtextdomain textdomain gettext nl_putenv);
+use Locale::gettext_pp;
+use POSIX;
+use File::Spec;
+
+BEGIN {
+ my $selected = Locale::Messages->select_package ('gettext_dumb');
+ if (!$selected || $selected ne 'gettext_dumb') {
+ print "1..1\nnot ok # Locale::gettext_dumb does not compile: $@!\n";
+ exit 111;
+ }
+ plan tests => NUM_TESTS;
+}
+
+ok Locale::gettext_dumb::LC_CTYPE(), Locale::gettext_pp::LC_CTYPE();
+ok Locale::gettext_dumb::LC_NUMERIC(), Locale::gettext_pp::LC_NUMERIC();
+ok Locale::gettext_dumb::LC_TIME(), Locale::gettext_pp::LC_TIME();
+ok Locale::gettext_dumb::LC_COLLATE(), Locale::gettext_pp::LC_COLLATE();
+ok Locale::gettext_dumb::LC_MONETARY(), Locale::gettext_pp::LC_MONETARY();
+ok Locale::gettext_dumb::LC_MESSAGES(), Locale::gettext_pp::LC_MESSAGES();
+ok Locale::gettext_dumb::LC_ALL(), Locale::gettext_pp::LC_ALL();
+
+# Unset all environment variables and reset the locale to POSIX.
+nl_putenv "MESSAGE_CATALOGS";
+nl_putenv "LANGUAGE";
+nl_putenv "LANG";
+nl_putenv "LC_ALL";
+nl_putenv "LC_MESSAGES";
+
+Locale::Messages::setlocale (POSIX::LC_ALL(), "POSIX");
+
+my $locale_dir = $0;
+$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
+$locale_dir .= '/LocaleData';
+
+my $textdomain = 'existing';
+my $bound_dir = bindtextdomain $textdomain => $locale_dir;
+
+ok defined $bound_dir;
+ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($bound_dir));
+
+my $bound_domain = textdomain $textdomain;
+
+ok defined $bound_domain;
+ok $bound_domain, $textdomain;
+
+# No translation.
+ok gettext "December", "December";
+
+# Set LC_MESSAGES.
+nl_putenv "LC_MESSAGES=xy_XY";
+ok gettext "December", "Dezember";
+ok gettext "February", "Feber";
+
+# Set LANG.
+nl_putenv "LANG=C";
+ok gettext "December", "December";
+nl_putenv "LANG=xy_XY";
+nl_putenv "LC_MESSAGES";
+ok gettext "December", "Dezember";
+
+# Set LC_ALL.
+nl_putenv "LC_ALL=C";
+ok gettext "December", "December";
+nl_putenv "LC_ALL=xy_XY";
+nl_putenv "LANG";
+ok gettext "December", "Dezember";
+
+# Set LANGUAGE.
+nl_putenv "LANGUAGE=C";
+ok gettext "December", "December";
+nl_putenv "LANGUAGE=xy_XY";
+nl_putenv "LC_ALL";
+ok gettext "December", "Dezember";
+
+__END__
+
+Local Variables:
+mode: perl
+perl-indent-level: 4
+perl-continued-statement-offset: 4
+perl-continued-brace-offset: 0
+perl-brace-offset: -4
+perl-brace-imaginary-offset: 0
+perl-label-offset: -4
+cperl-indent-level: 4
+cperl-continued-statement-offset: 2
+tab-width: 4
+End:
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t
index f8dfcdec3a..4e9f6b8ecf 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t
@@ -41,7 +41,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 {
@@ -64,7 +64,7 @@ ok defined $bound_domain;
ok $bound_domain, $textdomain;
# Default case.
-ok gettext ('December'), 'Dezember';
+skip $missing_locale, gettext ('December'), 'Dezember';
# msgid eq msgstr.
ok gettext ('September'), 'September';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_xs.t
index f8dfcdec3a..4e9f6b8ecf 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_xs.t
@@ -41,7 +41,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 {
@@ -64,7 +64,7 @@ ok defined $bound_domain;
ok $bound_domain, $textdomain;
# Default case.
-ok gettext ('December'), 'Dezember';
+skip $missing_locale, gettext ('December'), 'Dezember';
# msgid eq msgstr.
ok gettext ('September'), 'September';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_pp.t
index f69ae6b5d4..790ff662a9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_pp.t
@@ -7,16 +7,13 @@ use strict;
use Test;
-use constant NUM_TESTS => 6;
+use constant NUM_TESTS => 8;
use Locale::Messages qw (bindtextdomain textdomain gettext);
require POSIX;
require File::Spec;
BEGIN {
- # The xs version of this test is omitted on purpose. We can
- # only test it when the locale de and de_AT are installed, but
- # checking for them will spoil our results.
my $package;
if ($0 =~ /_pp\.t$/) {
$package = 'gettext_pp';
@@ -33,6 +30,13 @@ BEGIN {
plan tests => NUM_TESTS;
}
+# Clean environment first.
+foreach my $var (keys %ENV) {
+ if ('LC_' eq substr $var, 0, 3) {
+ Locale::Messages::nl_putenv ("$var");
+ }
+}
+
Locale::Messages::nl_putenv ("LANGUAGE=de_AT");
Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
@@ -41,9 +45,9 @@ Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
# de will be installed, too, if de_AT is. This test does not
# use Locale::Util::set_locale() for setting the locale, and
# that is on purpose.
-my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
'' : 'locale de_AT missing';
-POSIX::setlocale (POSIX::LC_ALL() => 'C');
+Locale::Messages::setlocale (POSIX::LC_ALL() => 'C');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -51,11 +55,11 @@ $locale_dir .= '/LocaleData';
my $textdomain = 'existing';
Locale::Messages::nl_putenv ("LANG=whatever");
-Locale::Messages::nl_putenv ("LC_ALL=whatever");
+Locale::Messages::nl_putenv ("LC_ALL=de_DE");
Locale::Messages::nl_putenv ("LC_MESSAGES=whatever");
Locale::Messages::nl_putenv ("LANGUAGE=ab_CD:ef_GH:de_AT:de");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL(), '');
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -72,7 +76,19 @@ skip $missing_locale, gettext ('January'), 'Jänner';
my $translation = gettext ('January');
Locale::Messages::nl_putenv ("LANGUAGE=ab_CD:ef_GH:de:de_AT");
-ok gettext ('February'), 'Februar'; # not 'Feber'!
+skip $missing_locale, gettext ('February'), 'Februar'; # not 'Feber'!
+
+# Check that LC_ALL works.
+Locale::Messages::nl_putenv ("LANGUAGE");
+Locale::Messages::nl_putenv ("LC_ALL=de_DE.utf-8");
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('February'), 'Februar';
+
+# But LANGUAGE has precedence.
+Locale::Messages::nl_putenv ("LANGUAGE=de_AT.utf-8");
+Locale::Messages::nl_putenv ("LC_ALL=de_DE.utf-8");
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('February'), 'Feber';
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_xs.t
new file mode 100644
index 0000000000..790ff662a9
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03language_xs.t
@@ -0,0 +1,106 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use constant NUM_TESTS => 8;
+
+use Locale::Messages qw (bindtextdomain textdomain gettext);
+require POSIX;
+require File::Spec;
+
+BEGIN {
+ my $package;
+ if ($0 =~ /_pp\.t$/) {
+ $package = 'gettext_pp';
+ } else {
+ $package = 'gettext_xs';
+ }
+
+ my $selected = Locale::Messages->select_package ($package);
+ if ($selected ne $package && 'gettext_xs' eq $package) {
+ print "1..0 # Skip: Locale::$package not available here.\n";
+ exit 0;
+ }
+
+ plan tests => NUM_TESTS;
+}
+
+# Clean environment first.
+foreach my $var (keys %ENV) {
+ if ('LC_' eq substr $var, 0, 3) {
+ Locale::Messages::nl_putenv ("$var");
+ }
+}
+
+Locale::Messages::nl_putenv ("LANGUAGE=de_AT");
+Locale::Messages::nl_putenv ("LC_ALL=de_AT");
+Locale::Messages::nl_putenv ("LANG=de_AT");
+Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
+# Actually both de_AT and de are required. We assume here that
+# de will be installed, too, if de_AT is. This test does not
+# use Locale::Util::set_locale() for setting the locale, and
+# that is on purpose.
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
+ '' : 'locale de_AT missing';
+Locale::Messages::setlocale (POSIX::LC_ALL() => 'C');
+
+my $locale_dir = $0;
+$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
+$locale_dir .= '/LocaleData';
+
+my $textdomain = 'existing';
+Locale::Messages::nl_putenv ("LANG=whatever");
+Locale::Messages::nl_putenv ("LC_ALL=de_DE");
+Locale::Messages::nl_putenv ("LC_MESSAGES=whatever");
+Locale::Messages::nl_putenv ("LANGUAGE=ab_CD:ef_GH:de_AT:de");
+Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+
+my $bound_dir = bindtextdomain $textdomain => $locale_dir;
+
+ok defined $bound_dir;
+ok (File::Spec->catdir ($bound_dir), File::Spec->catdir ($locale_dir));
+
+my $bound_domain = textdomain $textdomain;
+
+ok defined $bound_domain;
+ok $bound_domain, $textdomain;
+
+# Austrian German has precedence.
+skip $missing_locale, gettext ('January'), 'Jänner';
+my $translation = gettext ('January');
+
+Locale::Messages::nl_putenv ("LANGUAGE=ab_CD:ef_GH:de:de_AT");
+skip $missing_locale, gettext ('February'), 'Februar'; # not 'Feber'!
+
+# Check that LC_ALL works.
+Locale::Messages::nl_putenv ("LANGUAGE");
+Locale::Messages::nl_putenv ("LC_ALL=de_DE.utf-8");
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('February'), 'Februar';
+
+# But LANGUAGE has precedence.
+Locale::Messages::nl_putenv ("LANGUAGE=de_AT.utf-8");
+Locale::Messages::nl_putenv ("LC_ALL=de_DE.utf-8");
+Locale::Messages::setlocale (POSIX::LC_ALL(), '');
+skip $missing_locale, gettext ('February'), 'Feber';
+
+__END__
+
+Local Variables:
+mode: perl
+perl-indent-level: 4
+perl-continued-statement-offset: 4
+perl-continued-brace-offset: 0
+perl-brace-offset: -4
+perl-brace-imaginary-offset: 0
+perl-label-offset: -4
+cperl-indent-level: 4
+cperl-continued-statement-offset: 2
+tab-width: 4
+End:
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_pp.t
index ba41a35f06..24ed12e00e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_pp.t
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -58,7 +58,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -81,7 +81,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
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 {
@@ -96,7 +96,7 @@ if ($setlocale && $setlocale =~ /(?:austria|at)/i) {
for (0 .. 9) {
my $translation = ngettext ($strings[0], $strings[1], $_);
my $expected = $_ == 1 ? 'Einzahl' : 'Mehrzahl';
- ok $translation, $expected;
+ skip $missing_locale, $translation, $expected;
}
$textdomain = 'additional';
@@ -105,7 +105,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -128,14 +128,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
+Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
for (0 .. 40) {
my $translation = ngettext ($strings[0], $strings[1], $_);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus $plural";
+ skip $missing_locale, $translation, "Numerus $plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_xs.t
index ba41a35f06..24ed12e00e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03ngettext_xs.t
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -58,7 +58,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -81,7 +81,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
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 {
@@ -96,7 +96,7 @@ if ($setlocale && $setlocale =~ /(?:austria|at)/i) {
for (0 .. 9) {
my $translation = ngettext ($strings[0], $strings[1], $_);
my $expected = $_ == 1 ? 'Einzahl' : 'Mehrzahl';
- ok $translation, $expected;
+ skip $missing_locale, $translation, $expected;
}
$textdomain = 'additional';
@@ -105,7 +105,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -128,14 +128,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
+Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale;
for (0 .. 40) {
my $translation = ngettext ($strings[0], $strings[1], $_);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus $plural";
+ skip $missing_locale, $translation, "Numerus $plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_pp.t
index 0ec2d0a670..7ff7c05ee9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_pp.t
@@ -7,7 +7,7 @@ use strict;
use Test;
-use constant NUM_TESTS => 99;
+use constant NUM_TESTS => 109;
use Locale::Messages qw (bindtextdomain textdomain npgettext);
require POSIX;
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -70,7 +70,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -92,13 +92,13 @@ Locale::Messages::nl_putenv ("LANGUAGE=de_AT");
Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
'' : 'locale de_AT missing';
for (0 .. 9) {
my $translation = npgettext ($context, $strings[0], $strings[1], $_);
my $expected = $_ == 1 ? 'Einzahl 2' : 'Mehrzahl 2';
- ok $translation, $expected;
+ skip skip $missing_locale, $translation, $expected;
}
$textdomain = 'additional';
@@ -107,7 +107,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -130,14 +130,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
for (0 .. 40) {
my $translation = npgettext ($context, $strings[0], $strings[1], $_);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus 2:$plural";
+ skip $missing_locale, $translation, "Numerus 2:$plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_xs.t
index 0ec2d0a670..7ff7c05ee9 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03npgettext_xs.t
@@ -7,7 +7,7 @@ use strict;
use Test;
-use constant NUM_TESTS => 99;
+use constant NUM_TESTS => 109;
use Locale::Messages qw (bindtextdomain textdomain npgettext);
require POSIX;
@@ -35,7 +35,7 @@ Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $locale_dir = $0;
$locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.';
@@ -70,7 +70,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -92,13 +92,13 @@ Locale::Messages::nl_putenv ("LANGUAGE=de_AT");
Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
'' : 'locale de_AT missing';
for (0 .. 9) {
my $translation = npgettext ($context, $strings[0], $strings[1], $_);
my $expected = $_ == 1 ? 'Einzahl 2' : 'Mehrzahl 2';
- ok $translation, $expected;
+ skip skip $missing_locale, $translation, $expected;
}
$textdomain = 'additional';
@@ -107,7 +107,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C");
Locale::Messages::nl_putenv ("LANG=C");
Locale::Messages::nl_putenv ("LC_MESSAGES=C");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
$bound_dir = bindtextdomain $textdomain => $locale_dir;
@@ -130,14 +130,14 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-POSIX::setlocale (POSIX::LC_ALL() => '');
+Locale::Messages::setlocale (POSIX::LC_ALL() => '');
for (0 .. 40) {
my $translation = npgettext ($context, $strings[0], $strings[1], $_);
my $plural = ($_ == 1 ? 0 :
$_ % 10 == 2 ? 1 :
$_ % 10 == 3 || $_ %10 == 4 ? 2 : 3);
- ok $translation, "Numerus 2:$plural";
+ skip $missing_locale, $translation, "Numerus 2:$plural";
}
__END__
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_pp.t
index 65cc42724b..7d758ec108 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_pp.t
@@ -50,14 +50,27 @@ 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 = '';
+ }
+}
+
# Default case.
-ok gettext ('View'), 'Anzeigen';
+skip $missing_locale, gettext ('View'), 'Anzeigen';
# Default context case.
-ok pgettext ('Which folder would you like to view?','View'), 'Ansicht';
+skip $missing_locale, pgettext ('Which folder would you like to view?','View'), 'Ansicht';
# msgid eq msgstr.
-ok pgettext ('Which folder would you like to view? (2)','View'), 'View 2';
+skip $missing_locale, pgettext ('Which folder would you like to view? (2)','View'), 'View 2';
# Unknown.
ok pgettext ('none', 'Not translated'), 'Not translated';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_xs.t
index 65cc42724b..7d758ec108 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_xs.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03pgettext_xs.t
@@ -50,14 +50,27 @@ 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 = '';
+ }
+}
+
# Default case.
-ok gettext ('View'), 'Anzeigen';
+skip $missing_locale, gettext ('View'), 'Anzeigen';
# Default context case.
-ok pgettext ('Which folder would you like to view?','View'), 'Ansicht';
+skip $missing_locale, pgettext ('Which folder would you like to view?','View'), 'Ansicht';
# msgid eq msgstr.
-ok pgettext ('Which folder would you like to view? (2)','View'), 'View 2';
+skip $missing_locale, pgettext ('Which folder would you like to view? (2)','View'), 'View 2';
# Unknown.
ok pgettext ('none', 'Not translated'), 'Not translated';
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
index 87f05c0144..e3255ea474 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
@@ -36,7 +36,8 @@ BEGIN {
Locale::Messages::nl_putenv ("LC_MESSAGES=en_US");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
- POSIX::setlocale (POSIX::LC_ALL() => '');
+ Locale::Messages::setlocale (POSIX::LC_ALL() => '');
+ Locale::Messages->select_package ('gettext_pp');
}
# Make sure that LocaleData/ can befound.
@@ -52,10 +53,10 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
'' : 'locale de_AT missing';
-my $locale = POSIX::setlocale (POSIX::LC_ALL() => '');
+my $locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $translation = Locale::TextDomain::__("February");
skip $missing_locale, "Feber" eq $translation;
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04russian_plural_function.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04russian_plural_function.t
new file mode 100644
index 0000000000..f1e0f46551
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04russian_plural_function.t
@@ -0,0 +1,54 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use Locale::gettext_pp;
+
+BEGIN {
+ plan tests => 2006;
+}
+
+sub russian_plural {
+ my $n = shift;
+
+ my ($plural, $nplurals);
+
+ $nplurals = 3;
+ $plural = ($n % 10 == 1 && $n % 100 != 11 ? 0 : $n % 10 >= 2 && $n % 10 <= 4 && $n % 10 <= 4 && ($n % 100 < 10 || $n % 100 >= 20) ? 1 : 2);
+
+ return ($nplurals, $plural ? $plural : 0);
+}
+
+# This test uses private functions of Locale::gettext_pp. Do NOT use this as
+# an example for your own code.
+
+my $code = 'nplurals=3; plural=n%10==1 && n%100!=11 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2';
+
+my $untainted = Locale::gettext_pp::__untaint_plural_header $code;
+
+ok length $untainted;
+
+my $plural_function = Locale::gettext_pp::__compile_plural_function $code;
+
+ok $plural_function;
+ok ref $plural_function;
+ok 'CODE' eq ref $plural_function;
+
+foreach my $n (0 .. 1000) {
+ my ($got_nplurals, $got_plural) = $plural_function->($n);
+ my ($wanted_nplurals, $wanted_plural) = russian_plural $n;
+
+ ok $got_nplurals, $wanted_nplurals,
+ "wanted $wanted_nplurals, got $got_nplurals nplurals for n = $n";
+ ok $got_plural, $wanted_plural,
+ "wanted plural form #$wanted_nplurals, got #$got_nplurals for n = $n";
+
+
+ print "$n:$got_plural:$wanted_plural\n";
+}
+
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t
new file mode 100644
index 0000000000..aaf48f0076
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/05options.t
@@ -0,0 +1,38 @@
+#! /usr/local/bin/perl -w
+
+# vim: syntax=perl
+# vim: tabstop=4
+
+use strict;
+
+use Test;
+
+use constant NUM_TESTS => 3;
+
+require Locale::TextDomain;
+
+BEGIN {
+ plan tests => NUM_TESTS;
+}
+
+my $keywords = Locale::TextDomain->keywords;
+ok length $keywords;
+my $flags = Locale::TextDomain->flags;
+ok length $flags;
+my $options = Locale::TextDomain->options;
+ok length $options == (length $keywords) + (length $flags) + 1;
+
+__END__
+
+Local Variables:
+mode: perl
+perl-indent-level: 4
+perl-continued-statement-offset: 4
+perl-continued-brace-offset: 0
+perl-brace-offset: -4
+perl-brace-imaginary-offset: 0
+perl-label-offset: -4
+cperl-indent-level: 4
+cperl-continued-statement-offset: 2
+tab-width: 4
+End:
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/additional.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/additional.mo
index 123d188f39..1cfe527d6f 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/additional.mo
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/additional.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/existing.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/existing.mo
index 8da9288c61..bb02f4e5e8 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/existing.mo
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de/LC_MESSAGES/existing.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/additional.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/additional.mo
index d555a74d31..eb3b044a8a 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/additional.mo
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/additional.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/existing.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/existing.mo
index e6cfda3f01..c9784db63e 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/existing.mo
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/de_AT/LC_MESSAGES/existing.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/additional.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/additional.mo
new file mode 100644
index 0000000000..104ae25cdd
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/additional.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/existing.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/existing.mo
new file mode 100644
index 0000000000..fa3d4e9a92
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/existing.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/additional.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/additional.mo
new file mode 100644
index 0000000000..24f731590f
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/additional.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/existing.mo b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/existing.mo
new file mode 100644
index 0000000000..6976525e8a
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy_XY/LC_MESSAGES/existing.mo
Binary files differ
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/Makefile b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/Makefile
index bd71076410..77c42fb3e6 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/Makefile
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/Makefile
@@ -4,7 +4,7 @@
srcdir = .
top_srcdir = ..
-LINGUAS = de de_AT
+LINGUAS = de de_AT xy xy_XY
PACKAGES = existing additional
#CATALOGS = $(addsuffix .po, LINGUAS)
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de.po
index c739c5c0f9..1e3d8d3654 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de.po
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de.po
@@ -3,7 +3,7 @@ msgstr ""
"Project-Id-Version: libintl-perl-text 0.01\n"
"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
"PO-Revision-Date: 1999-02-16 21:14+01:00\n"
-"Last-Translator: Guido Flohr <guido@imperia.net>\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
"Language-Team: German <de@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=ISO-8859-1\n"
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de_AT.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de_AT.po
index f26e08ad67..50555e133d 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de_AT.po
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.de_AT.po
@@ -3,7 +3,7 @@ msgstr ""
"Project-Id-Version: libintl-perl-text 0.01\n"
"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
"PO-Revision-Date: 1999-02-16 21:14+01:00\n"
-"Last-Translator: Guido Flohr <guido@imperia.net>\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
"Language-Team: German <de@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=ISO-8859-1\n"
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy.po
new file mode 100644
index 0000000000..8fd8ea32fe
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy.po
@@ -0,0 +1,58 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: libintl-perl-text 0.01\n"
+"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
+"PO-Revision-Date: 1999-02-16 21:14+01:00\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
+"Language-Team: Bogus\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=ISO-8859-1\n"
+"Content-Transfer-Encoding: 8-bit\n"
+"Plural-Forms: nplurals=4; plural=(n==1 ? 0 : n%10==2 ? 1 : n%10==3 || n%"
+"10==4 ? 2 : 3);\n"
+
+# The Plural-Forms header is wrong on purpose. It is in fact the correct
+# setting for Slovenian, but we abuse it here for testing ngettext and
+# friends.
+msgid "Singular"
+msgid_plural "Plural"
+msgstr[0] "Numerus 0"
+msgstr[1] "Numerus 1"
+msgstr[2] "Numerus 2"
+msgstr[3] "Numerus 3"
+
+msgctxt "Context here (2)"
+msgid "Singular"
+msgid_plural "Plural"
+msgstr[0] "Numerus 2:0"
+msgstr[1] "Numerus 2:1"
+msgstr[2] "Numerus 2:2"
+msgstr[3] "Numerus 2:3"
+
+msgid "Sunday"
+msgstr "Sonntag"
+
+msgid "Monday"
+msgstr "Montag"
+
+msgid "Tuesday"
+msgstr "Dienstag"
+
+msgid "Wednesday"
+msgstr "Mittwoch"
+
+msgid "Thursday"
+msgstr "Donnerstag"
+
+msgid "Friday"
+msgstr "Freitag"
+
+msgid "Saturday"
+msgstr "Samstag"
+
+msgid "Another View"
+msgstr "Eine andere Ansicht ohne Kontext"
+
+msgctxt "Context"
+msgid "Another View"
+msgstr "Eine andere Ansicht mit Kontext"
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy_XY.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy_XY.po
new file mode 100644
index 0000000000..c4b6478c45
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/additional.xy_XY.po
@@ -0,0 +1,16 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: libintl-perl-text 0.01\n"
+"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
+"PO-Revision-Date: 1999-02-16 21:14+01:00\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
+"Language-Team: Bogus\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=ISO-8859-1\n"
+"Content-Transfer-Encoding: 8-bit\n"
+"Plural-Forms: nplurals=4; plural=(n==1 ? 0 : n%10==2 ? 1 : n%10==3 || n%"
+"10==4 ? 2 : 3);\n"
+
+msgid "Saturday"
+msgstr "Sonnabend"
+
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de.po
index 53a67e222c..5e3ad96a41 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de.po
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de.po
@@ -3,7 +3,7 @@ msgstr ""
"Project-Id-Version: libintl-perl-text 1.12\n"
"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
"PO-Revision-Date: 2005-08-10 19:02+03:00\n"
-"Last-Translator: Guido Flohr <guido@imperia.net>\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
"Language-Team: German <de@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de_AT.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de_AT.po
index 452b47d4ff..ddda094b40 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de_AT.po
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.de_AT.po
@@ -3,7 +3,7 @@ msgstr ""
"Project-Id-Version: libintl-perl-text 1.12\n"
"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
"PO-Revision-Date: 2005-08-10 19:01+03:00\n"
-"Last-Translator: Guido Flohr <guido@imperia.net>\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
"Language-Team: German <de@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=ISO-8859-1\n"
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy.po
new file mode 100644
index 0000000000..d59e769271
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy.po
@@ -0,0 +1,76 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: libintl-perl-text 1.12\n"
+"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
+"PO-Revision-Date: 2005-08-10 19:02+03:00\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
+"Language-Team: Bogus\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8-bit\n"
+"Plural-Forms: nplurals=2; plural=(n != 1);\n"
+
+msgid "Singular"
+msgid_plural "Plural"
+msgstr[0] "Einzahl"
+msgstr[1] "Mehrzahl"
+
+msgid "January"
+msgstr "Januar"
+
+msgid "February"
+msgstr "Februar"
+
+msgid "March"
+msgstr "März"
+
+msgid "April"
+msgstr "April"
+
+msgid "May"
+msgstr "Mai"
+
+msgid "June"
+msgstr "Juni"
+
+msgid "July"
+msgstr "Juli"
+
+msgid "August"
+msgstr "August"
+
+msgid "September"
+msgstr "September"
+
+msgid "October"
+msgstr "Oktober"
+
+msgid "November"
+msgstr "November"
+
+msgid "December"
+msgstr "Dezember"
+
+msgid "View"
+msgstr "Anzeigen"
+
+msgctxt "Which folder would you like to view?"
+msgid "View"
+msgstr "Ansicht"
+
+msgctxt "Which folder would you like to view? (2)"
+msgid "View"
+msgstr "View 2"
+
+msgctxt "Context here (2)"
+msgid "Singular"
+msgid_plural "Plural"
+msgstr[0] "Einzahl 2"
+msgstr[1] "Mehrzahl 2"
+
+msgctxt "Context here (3)"
+msgid "Singular 3"
+msgid_plural "Plural 3"
+msgstr[0] "Einzahl 3"
+msgstr[1] "Mehrzahl 3"
+
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy_XY.po b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy_XY.po
new file mode 100644
index 0000000000..34805e454c
--- /dev/null
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/po/existing.xy_XY.po
@@ -0,0 +1,16 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: libintl-perl-text 1.12\n"
+"POT-Creation-Date: 2002-07-13 11:47+02:00\n"
+"PO-Revision-Date: 2005-08-10 19:01+03:00\n"
+"Last-Translator: Guido Flohr <guido.flohr@cantanea.com>\n"
+"Language-Team: Bogus\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=ISO-8859-1\n"
+"Content-Transfer-Encoding: 8-bit\n"
+
+msgid "January"
+msgstr "Jänner"
+
+msgid "February"
+msgstr "Feber"