File: 01_charsets.t

package info (click to toggle)
libtext-iconv-perl 1.2-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 60 kB
  • ctags: 4
  • sloc: makefile: 48; perl: 13
file content (106 lines) | stat: -rw-r--r-- 2,482 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
BEGIN { $| = 1; print "1..13\n"; }
END {print "not ok 1\n" unless $loaded;}
use Text::Iconv;
$loaded = 1;
print "ok 1\n";

Text::Iconv->raise_error(1);

%codesets = ('iso88591' => [qw(iso88591 iso8859-1 iso-8859-1 ISO88591
			       ISO8859-1 ISO-8859-1 88591 8859-1)],
	     'cp037'    => [qw(cp037 CP037 ibm037 IBM037 ibm-037 IBM-037)],
	     'cp850'    => [qw(cp850 CP850 ibm850 IBM850 ibm-850 IBM-850)],
	     'utf8'     => [qw(utf8 utf-8 UTF8 UTF-8)]);

%strings  = ('iso88591' => "Sch�ne Gr��e",
	     'cp037'    => "\xa2\xa4\xa4\x94\x40\x83\xa4\x89\x98\xa4\x85",
	     'cp850'    => "Sch\x94ne Gr\x81\xe1e",
	     'utf8'     => "Sch\xc3\xb6ne Gr\xc3\xbc\xc3\x9fe");

$test_no = 1;

foreach $source (keys %strings)
{
   foreach $target (keys %codesets)
   {
      unless ($source eq $target)
      {
	 $test_no++;

	 $c1 = try_codesets($codesets{$source}, $codesets{$target});
	 $c2 = try_codesets($codesets{$target}, $codesets{$source});
	 
	 if (not defined $c1 or not defined $c2)
	 {
	    print "not ok $test_no \t # (call to open_iconv() failed)\n";
	 }
	 elsif ($c1 == 0 or $c2 == 0)
	 {
	    print "ok $test_no \t # skip ($source <-> $target conversion not supported by iconv library)\n";
	 }
	 else
	 {
	    eval
	    {
	       $r1 = $c1->convert($strings{$source});
	       $r2 = $c2->convert($r1);
	    };

	    if ($@)
	    {
	       print "not ok $test_no \t # (conversion failed)\n";
	    }
	    elsif ($r2 eq $strings{$source})
	    {
	       print "ok $test_no \t # ($source <-> $target)\n";
	    }
	    else
	    {
	       print "not ok $test_no \t # (roundtrip failed)\n";
	    }
	 }
      }
   }
}

###############################################################################

# This function expects two array references, each listing all the
# alternative names to try for the source and target codesets.  If the
# codeset is not supported (at least not under any of the names that
# were given), it returns 0.  If the call to iconv_open() fails due to
# other reasons, it returns undef.  Otherwise a Text::Iconv object for
# the requested conversion is returned.

sub try_codesets
{
   my ($from, $to) = @_;
   my $converter;

 TRY:
   foreach my $f (@$from)
   {
      foreach my $t (@$to)
      {
	 eval
	 {
	    $converter = new Text::Iconv($f, $t);
	 };
	 
	 last TRY if not $@;
      }
   }

   if ($@ =~ /^Unsupported conversion/)
   {
      return 0;
   }
   elsif ($@)
   {
      return undef;
   }
   else
   {
      return $converter;
   }
}