This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate CPAN release of version.pm 0.9905
[perl5.git] / cpan / Locale-Maketext-Simple / t / 1-basic.t
CommitLineData
c9d0c046
JB
1use strict;
2use Test;
3
4BEGIN {
5 plan tests => 9;
6 $INC{'Locale/Maketext/Lexicon.pm'} = __FILE__;
7 $Locale::Maketext::Lexicon::VERSION = 0;
8}
9
10use Locale::Maketext::Simple;
11ok(Locale::Maketext::Simple->VERSION);
12ok(loc("Just [_1] Perl [_2]", qw(another hacker)), "Just another Perl hacker");
13
14{
15 local $^W; # shuts up 'redefined' warnings
16 Locale::Maketext::Simple->reload_loc;
17 Locale::Maketext::Simple->import(Style => 'gettext');
18}
19
20ok(loc("Just %1 Perl %2", qw(another hacker)), "Just another Perl hacker");
21ok(loc_lang('fr'));
22ok(loc("Just %quant(%1,Perl hacker)", 1), "Just 1 Perl hacker");
23ok(loc("Just %quant(%1,Perl hacker)", 2), "Just 2 Perl hackers");
24ok(loc("Just %quant(%1,Mad skill,Mad skillz)", 3), "Just 3 Mad skillz");
25ok(loc("Error %tense(%1,present)", 'uninstall'), "Error uninstalling");
26ok(loc("Error %tense(uninstall,present)"), "Error uninstalling");