Commit | Line | Data |
---|---|---|
2fd0906e | 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 | ه | |
19 | ||
20 | FB_XMLCREF | |
21 | ه |