File: 2-load_po_without_i_default.t

package info (click to toggle)
perl 5.32.1-4%2Bdeb11u3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 113,408 kB
  • sloc: ansic: 641,443; perl: 491,650; sh: 70,967; pascal: 8,354; cpp: 4,103; xml: 2,428; makefile: 2,237; yacc: 1,173; lisp: 1
file content (30 lines) | stat: -rw-r--r-- 908 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
use strict;
use Test::More;
use FindBin qw($Bin);

use Locale::Maketext::Simple (
	Path => "$Bin/po_without_i_default",
	Style => "gettext",
);

eval {
    require Locale::Maketext::Lexicon;
    die unless Locale::Maketext::Lexicon->VERSION(0.20);
    require File::Spec;
};
if ($@) {
    plan skip_all => 'No soft dependencies, i_default will not work';
    exit 0;
}

plan tests => 5;

loc_lang("en");
is(loc("Not a lexicon key"), "Not a lexicon key", "Not a lexicon key");
is(loc("I have got %1 alerts", 65), "I have got 65 alerts", "Got auto key" );
is(loc("I have acknowledged %1 alerts", 83), "Yo dude, I've been working on these 83 alerts", "Got translation");

loc_lang("fr");
is(loc("system.messages.arbitrary.unique.lexicon.key"), "system.messages.arbitrary.unique.lexicon.key", "No translation" );
is(loc("I have got %1 alerts", "red"), "Mon Francais red, c'est terrible", "French translated" );