t/jaconvert.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("jaeuc");
   8 use Locale::gettext;
   9 my $d;
  10 eval {
  11         $d = Locale::gettext->domain("jaeuc");
  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("test") eq "\x{30c6}\x{30b9}\x{30c8}") {
  20                 ok(1);
  21         } else {
  22                 print $d->get("test"), "\n";
  23                 ok(0);
  24         }
  25 }
  26 exit;
  27 __END__