! lib/Encode/GSM0338.pm t/gsm0338.t
REALLY fixed RT#75670: Wrong decoding for GSM 3.38 character \x09
ucm/gsm0338.ucm is dropped from MANIFEST since 2.25
but I was fixing the wrong file!
https://rt.cpan.org/Ticket/Display.html?id=75670
===========================================================
========
RCS file: lib/Encode/GSM0338.pm,v
retrieving revision 2.1
diff -u -r2.1 lib/Encode/GSM0338.pm
--- lib/Encode/GSM0338.pm 2008/05/07 20:56:05 2.1
+++ lib/Encode/GSM0338.pm 2012/08/15 04:40:49
@@ -1,5 +1,5 @@
#
-# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp dankogai $
+# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp $
#
package Encode::GSM0338;
@@ -138,7 +138,8 @@
"\x{00E4}" => "\x7B", # LATIN SMALL LETTER A WITH DIAERESIS
"\x{00E5}" => "\x0F", # LATIN SMALL LETTER A WITH RING ABOVE
"\x{00E6}" => "\x1D", # LATIN SMALL LETTER AE
- "\x{00E7}" => "\x09", # LATIN SMALL LETTER C WITH CEDILLA
+ #"\x{00E7}" => "\x09", # LATIN SMALL LETTER C WITH CEDILLA
+ "\x{00C7}" => "\x09", # LATIN CAPITAL LETTER C WITH CEDILLA
"\x{00E8}" => "\x04", # LATIN SMALL LETTER E WITH GRAVE
"\x{00E9}" => "\x05", # LATIN SMALL LETTER E WITH ACUTE
"\x{00EC}" => "\x07", # LATIN SMALL LETTER I WITH GRAVE
===========================================================
========
RCS file: t/gsm0338.t,v
retrieving revision 2.1
diff -u -r2.1 t/gsm0338.t
--- t/gsm0338.t 2007/04/22 14:56:12 2.1
+++ t/gsm0338.t 2012/08/15 05:09:26
@@ -13,7 +13,7 @@
use strict;
use utf8;
-use Test::More tests => 778;
+use Test::More tests => 780;
use Encode;
use Encode::GSM0338;
@@ -87,6 +87,10 @@
}
}
+#
https://rt.cpan.org/Ticket/Display.html?id=75670
+is decode("gsm0338", "\x09") => chr(0xC7), 'RT75670: decode';
+is encode("gsm0338", chr(0xC7)) => "\x09", 'RT75670: encode';
+
__END__
for my $c (map { chr } 0..127){
my $b = "\x1b$c";
