t/frconvert.t

   1 #!/usr/bin/env perl -w
   2 use strict;
   3 use Test;
   4 BEGIN { plan tests => 1 }
   5 require "test_data/gen_test_data.pl";
   6
   7 gen("foo");
   8 use Locale::gettext;
   9 my $d;
  10 eval {
  11         $d = Locale::gettext->domain("foo");
  12 };
  13 if ($@ =~ /Encode module not available/) {
  14         skip("Locale::gettext->domain not available, skipping", 0)
  15 } elsif ($@ ne '') {
  16         die $@;
  17 } else {
  18         $d->dir("test_data");
  19         if ($d->get("No problem") eq "Pas de probl\x{e8}me") {
  20                 ok(1);
  21         } else {
  22 use Data::Dumper;
  23 print Dumper($d);
  24 print "[", $d->get("No problem"), "]\n";
  25                 ok(0);
  26         }
  27 }
  28 exit;
  29 __END__