projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Support $! stringification of socket error codes on Windows.
[p5sagit/p5-mst-13.2.git]
/
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
ه
19
20
FB_XMLCREF
21
ه