← Back to branch summary

~ubuntu-branches/ubuntu/wily/libintl-perl/wily-proposed

« back to all changes in this revision

Viewing changes to tests/03gettext_xs.t

  • Committer: Bazaar Package Importer
  • Author(s): Peter Eisentraut
  • Date: 2005-11-18 09:41:42 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 hoary)
  • Revision ID: james.westby@ubuntu.com-20051118094142-3gdzz3ljdxav8aha
Tags: 1.16-1
* New upstream release
* Added FAQ and THANKS to installation

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/03gettext_xs.t
40
40
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
41
41
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
42
42
 
43
 
POSIX::setlocale (POSIX::LC_ALL() => '');
 
43
my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
 
44
    '' : 'locale de_AT missing';
44
45
 
45
46
my $bound_dir = bindtextdomain $textdomain => $locale_dir;
46
47
 
52
53
ok  defined $bound_domain && $textdomain eq $bound_domain;
53
54
 
54
55
# Default case.
55
 
ok  'Dezember' eq gettext ('December');
 
56
skip $missing_locale, 'Dezember' eq gettext ('December');
56
57
 
57
58
# msgid eq msgstr.
58
 
ok  'September' eq gettext ('September');
 
59
ok 'September' eq gettext ('September');
59
60
 
60
61
# Unknown.
61
 
ok  'Not translated' eq gettext ('Not translated');
 
62
ok 'Not translated' eq gettext ('Not translated');
62
63
 
63
64
# Special translation for Austrian German.
64
 
ok 'J�nner' eq gettext ('January');
 
65
skip $missing_locale, 'J�nner' eq gettext ('January');
65
66
 
66
67
__END__
67
68