← Back to branch summary

~ubuntu-branches/ubuntu/raring/libencode-perl/raring

« back to all changes in this revision

Viewing changes to t/jis7-fallback.t

  • Committer: Bazaar Package Importer
  • Author(s): Jose Luis Rivas
  • Date: 2007-05-18 23:49:27 UTC
  • Revision ID: james.westby@ubuntu.com-20070518234927-bs37c807cty7i1ny
Tags: upstream-2.21
Import upstream version 2.21

Show diffs side-by-side

added added

removed removed

Lines of Context:
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;