1use strict;
2use Test::More 'no_plan';
3use Encode ':fallbacks';
4
5my $str = "\x{0647}";
6my @data = grep length, map { chomp; $_ } <DATA>;
7
8while (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__
14FB_PERLQQ
15\x{0647}
16
17FB_HTMLCREF
18&#1607;
19
20FB_XMLCREF
21&#x647;
22