Codebase list libi18n-charset-perl / 12a9159
Refresh patch t_utf8.patch. Gregor Herrmann 15 years ago
2 changed file(s) with 64 addition(s) and 22 deletion(s). Raw diff Collapse all Expand all
+1
-0
debian/changelog less more
00 libi18n-charset-perl (1.389-1) UNRELEASED; urgency=low
11
22 * New upstream release.
3 * Refresh patch t_utf8.patch.
34
45 -- gregor herrmann <gregoa@debian.org> Sun, 01 Jun 2008 18:03:28 +0200
56
+63
-22
debian/patches/t_utf8.patch less more
00 --- libi18n-charset-perl.orig/t/utf8.t
11 +++ libi18n-charset-perl/t/utf8.t
2 @@ -39,14 +39,14 @@
3 {
4 skip 'Unicode::Map8 is not installed', 7 unless eval 'require Unicode::Map8';
5 # Unicode::Map8 aliases:
6 - is(umu8_charset_name('Windows-1-2-5-1'), 'cp1251', 'windows-1-2-5-1');
7 - is(umu8_charset_name('windows-1252'), 'cp1252', 'windows-1252 eq');
8 - is(umu8_charset_name('win-latin-1'), 'cp1252', 'win-latin-1');
9 - isnt(umu8_charset_name('windows-1252'), 'cp1253', 'windows-1252 ne');
10 - is(umu8_charset_name('windows-1253'), 'cp1253', 'windows-1253');
11 + is(umu8_charset_name('Windows-1-2-5-1'), 'windows-1251', 'windows-1-2-5-1');
12 + is(umu8_charset_name('windows-1252'), 'windows-1252', 'windows-1252 eq');
13 + is(umu8_charset_name('win-latin-1'), 'windows-1252', 'win-latin-1');
14 + isnt(umu8_charset_name('windows-1252'), 'windows-1253', 'windows-1252 ne');
15 + is(umu8_charset_name('windows-1253'), 'windows-1253', 'windows-1253');
16 # Unicode::Map8 names with dummy mib:
17 - is(umu8_charset_name('Adobe Zapf Ding Bats'), 'Adobe-Zapf-Dingbats', 'Adobe Zapf Ding Bats');
18 - is(umu8_charset_name(' c p 1 0 0 7 9 '), 'cp10079', ' c p 1 0 0 7 9 ');
19 +# is(umu8_charset_name('Adobe Zapf Ding Bats'), 'Adobe-Zapf-Dingbats', 'Adobe Zapf Ding Bats');
20 +# is(umu8_charset_name(' c p 1 0 0 7 9 '), 'cp10079', ' c p 1 0 0 7 9 ');
21 } # SKIP block for Unicode::Map8 module
22 SKIP:
23 {
2 @@ -45,34 +45,34 @@
3 {
4 skip 'Unicode::Map8 is not installed', 7 unless eval 'require Unicode::Map8';
5 # Unicode::Map8 aliases:
6 - is(umu8_charset_name('Windows-1-2-5-1'), 'cp1251', 'windows-1-2-5-1');
7 - is(umu8_charset_name('windows-1252'), 'cp1252', 'windows-1252 eq');
8 - is(umu8_charset_name('win-latin-1'), 'cp1252', 'win-latin-1');
9 - isnt(umu8_charset_name('windows-1252'), 'cp1253', 'windows-1252 ne');
10 - is(umu8_charset_name('windows-1253'), 'cp1253', 'windows-1253');
11 - # Unicode::Map8 names with dummy mib:
12 - my $sInput = 'Adobe Zapf Ding Bats';
13 - my $sExpect = 'Adobe-Zapf-Dingbats';
14 - $oICS->start;
15 - my $sActual = umu8_charset_name($sInput);
16 - $oICS->stop;
17 - if (! is($sActual, $sExpect, $sInput))
18 - {
19 - diag(@I18N::Charset::asMap8Debug);
20 - my @as = $oICS->read;
21 - diag(@as);
22 - } # if
23 - $sInput = ' c p 1 0 0 7 9 ';
24 - $sExpect = 'cp10079';
25 - $oICS->start;
26 - $sActual = umu8_charset_name($sInput);
27 - $oICS->stop;
28 - if (! is($sActual, $sExpect, $sInput))
29 - {
30 - diag(@I18N::Charset::asMap8Debug);
31 - my @as = $oICS->read;
32 - diag(@as);
33 - } # if
34 + is(umu8_charset_name('Windows-1-2-5-1'), 'windows-1251', 'windows-1-2-5-1');
35 + is(umu8_charset_name('windows-1252'), 'windows-1252', 'windows-1252 eq');
36 + is(umu8_charset_name('win-latin-1'), 'windows-1252', 'win-latin-1');
37 + isnt(umu8_charset_name('windows-1252'), 'windows-1253', 'windows-1252 ne');
38 + is(umu8_charset_name('windows-1253'), 'windows-1253', 'windows-1253');
39 +# # Unicode::Map8 names with dummy mib:
40 +# my $sInput = 'Adobe Zapf Ding Bats';
41 +# my $sExpect = 'Adobe-Zapf-Dingbats';
42 +# $oICS->start;
43 +# my $sActual = umu8_charset_name($sInput);
44 +# $oICS->stop;
45 +# if (! is($sActual, $sExpect, $sInput))
46 +# {
47 +# diag(@I18N::Charset::asMap8Debug);
48 +# my @as = $oICS->read;
49 +# diag(@as);
50 +# } # if
51 +# $sInput = ' c p 1 0 0 7 9 ';
52 +# $sExpect = 'cp10079';
53 +# $oICS->start;
54 +# $sActual = umu8_charset_name($sInput);
55 +# $oICS->stop;
56 +# if (! is($sActual, $sExpect, $sInput))
57 +# {
58 +# diag(@I18N::Charset::asMap8Debug);
59 +# my @as = $oICS->read;
60 +# diag(@as);
61 +# } # if
62 } # SKIP block for Unicode::Map8 module
63 SKIP:
64 {