diff options
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests')
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 Binary files differindex 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 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 Binary files differindex 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 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 Binary files differindex 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 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 Binary files differindex 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 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 Binary files differnew file mode 100644 index 0000000000..104ae25cdd --- /dev/null +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/additional.mo 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 Binary files differnew file mode 100644 index 0000000000..fa3d4e9a92 --- /dev/null +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/LocaleData/xy/LC_MESSAGES/existing.mo 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 Binary files differnew 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 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 Binary files differnew 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 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" |