cpan/Encode/t/jis7-fallback.t

   1 use strict;
   2 use Test::More 'no_plan';
   3 use Encode ':fallbacks';
   4
   5 my $str = "\x{0647}";
   6 my @data = grep length, map { chomp; $_ } <DATA>;
   7
   8 while (my($in, $out) = splice(@data, 0, 2)) {
   9     my $copy = $str;
  10     is Encode::encode("iso-2022-jp", $copy, eval $in), $out;
  11 }
  12
  13 __DATA__
  14 FB_PERLQQ
  15 \x{0647}
  16
  17 FB_HTMLCREF
  18 &#1607;
  19
  20 FB_XMLCREF
  21 &#x647;