| 1 | #!/usr/bin/perl |
| 2 | require v5.26; |
| 3 | use lib (split(/:/, $ENV{GITPERLLIB})); |
| 4 | use strict; |
| 5 | use warnings; |
| 6 | use POSIX qw(:locale_h); |
| 7 | use Test::More tests => 13; |
| 8 | use Git::I18N; |
| 9 | |
| 10 | my $has_gettext_library = $Git::I18N::__HAS_LIBRARY; |
| 11 | |
| 12 | ok(1, "Testing Git::I18N with " . |
| 13 | ($has_gettext_library |
| 14 | ? (defined $Locale::Messages::VERSION |
| 15 | ? "Locale::Messages version $Locale::Messages::VERSION" |
| 16 | # Versions of Locale::Messages before 1.17 didn't have a |
| 17 | # $VERSION variable. |
| 18 | : "Locale::Messages version <1.17") |
| 19 | : "NO Perl gettext library")); |
| 20 | ok(1, "Git::I18N is located at $INC{'Git/I18N.pm'}"); |
| 21 | |
| 22 | { |
| 23 | my $exports = @Git::I18N::EXPORT; |
| 24 | ok($exports, "sanity: Git::I18N has $exports export(s)"); |
| 25 | } |
| 26 | is_deeply(\@Git::I18N::EXPORT, \@Git::I18N::EXPORT_OK, "sanity: Git::I18N exports everything by default"); |
| 27 | |
| 28 | # prototypes |
| 29 | { |
| 30 | # Add prototypes here when modifying the public interface to add |
| 31 | # more gettext wrapper functions. |
| 32 | my %prototypes = (qw( |
| 33 | __ $ |
| 34 | __n $$$ |
| 35 | N__ $ |
| 36 | )); |
| 37 | while (my ($sub, $proto) = each %prototypes) { |
| 38 | is(prototype(\&{"Git::I18N::$sub"}), $proto, "sanity: $sub has a $proto prototype"); |
| 39 | } |
| 40 | } |
| 41 | |
| 42 | # Test basic passthrough in the C locale |
| 43 | { |
| 44 | local $ENV{LANGUAGE} = 'C'; |
| 45 | local $ENV{LC_ALL} = 'C'; |
| 46 | local $ENV{LANG} = 'C'; |
| 47 | |
| 48 | my ($got, $expect) = (('TEST: A Perl test string') x 2); |
| 49 | |
| 50 | is(__($got), $expect, "Passing a string through __() in the C locale works"); |
| 51 | |
| 52 | my ($got_singular, $got_plural, $expect_singular, $expect_plural) = |
| 53 | (('TEST: 1 file', 'TEST: n files') x 2); |
| 54 | |
| 55 | is(__n($got_singular, $got_plural, 1), $expect_singular, |
| 56 | "Get singular string through __n() in C locale"); |
| 57 | is(__n($got_singular, $got_plural, 2), $expect_plural, |
| 58 | "Get plural string through __n() in C locale"); |
| 59 | |
| 60 | is(N__($got), $expect, "Passing a string through N__() in the C locale works"); |
| 61 | } |
| 62 | |
| 63 | # Test a basic message on different locales |
| 64 | SKIP: { |
| 65 | unless ($ENV{GETTEXT_LOCALE}) { |
| 66 | # Can't reliably test __() with a non-C locales because the |
| 67 | # required locales may not be installed on the system. |
| 68 | # |
| 69 | # We test for these anyway as part of the shell |
| 70 | # tests. Skipping these here will eliminate failures on odd |
| 71 | # platforms with incomplete locale data. |
| 72 | |
| 73 | skip "GETTEXT_LOCALE must be set by lib-gettext.sh for exhaustive Git::I18N tests", 2; |
| 74 | } |
| 75 | |
| 76 | # The is_IS UTF-8 locale passed from lib-gettext.sh |
| 77 | my $is_IS_locale = $ENV{is_IS_locale}; |
| 78 | |
| 79 | my $test = sub { |
| 80 | my ($got, $expect, $msg, $locale) = @_; |
| 81 | # Maybe this system doesn't have the locale we're trying to |
| 82 | # test. |
| 83 | my $locale_ok = setlocale(LC_ALL, $locale); |
| 84 | is(__($got), $expect, "$msg a gettext library + <$locale> locale <$got> turns into <$expect>"); |
| 85 | }; |
| 86 | |
| 87 | my $env_C = sub { |
| 88 | $ENV{LANGUAGE} = 'C'; |
| 89 | $ENV{LC_ALL} = 'C'; |
| 90 | }; |
| 91 | |
| 92 | my $env_is = sub { |
| 93 | $ENV{LANGUAGE} = 'is'; |
| 94 | $ENV{LC_ALL} = $is_IS_locale; |
| 95 | }; |
| 96 | |
| 97 | # Translation's the same as the original |
| 98 | my ($got, $expect) = (('TEST: A Perl test string') x 2); |
| 99 | |
| 100 | if ($has_gettext_library) { |
| 101 | { |
| 102 | local %ENV; $env_C->(); |
| 103 | $test->($got, $expect, "With", 'C'); |
| 104 | } |
| 105 | |
| 106 | { |
| 107 | my ($got, $expect) = ($got, 'TILRAUN: Perl tilraunastrengur'); |
| 108 | local %ENV; $env_is->(); |
| 109 | $test->($got, $expect, "With", $is_IS_locale); |
| 110 | } |
| 111 | } else { |
| 112 | { |
| 113 | local %ENV; $env_C->(); |
| 114 | $test->($got, $expect, "Without", 'C'); |
| 115 | } |
| 116 | |
| 117 | { |
| 118 | local %ENV; $env_is->(); |
| 119 | $test->($got, $expect, "Without", 'is'); |
| 120 | } |
| 121 | } |
| 122 | } |