cpan/Locale-Maketext-Simple/t/2-load_po_without_i_default.t

   1 use strict;
   2 use Test::More;
   3 use FindBin qw($Bin);
   4
   5 use Locale::Maketext::Simple (
   6         Path => "$Bin/po_without_i_default",
   7         Style => "gettext",
   8 );
   9
  10 eval {
  11     require Locale::Maketext::Lexicon;
  12     die unless Locale::Maketext::Lexicon->VERSION(0.20);
  13     require File::Spec;
  14 };
  15 if ($@) {
  16     plan skip_all => 'No soft dependencies, i_default will not work';
  17     exit 0;
  18 }
  19
  20 plan tests => 5;
  21
  22 loc_lang("en");
  23 is(loc("Not a lexicon key"), "Not a lexicon key", "Not a lexicon key");
  24 is(loc("I have got %1 alerts", 65), "I have got 65 alerts", "Got auto key" );
  25 is(loc("I have acknowledged %1 alerts", 83), "Yo dude, I've been working on these 83 alerts", "Got translation");
  26
  27 loc_lang("fr");
  28 is(loc("system.messages.arbitrary.unique.lexicon.key"), "system.messages.arbitrary.unique.lexicon.key", "No translation" );
  29 is(loc("I have got %1 alerts", "red"), "Mon Francais red, c'est terrible", "French translated" );
  30