A TEST. [Re: qr/^UCS2-le$/i => '"UCS-2"' -- what is it?]

Message-Id: <377E5208-4840-11D6-8B4B-00039301D480@dan.co.jp>

p4raw-id: //depot/perl@15739

diff --git a/ext/Encode/t/Aliases.t b/ext/Encode/t/Aliases.t
index 6bec460..846884e 100644 (file)
--- a/ext/Encode/t/Aliases.t
+++ b/ext/Encode/t/Aliases.t
@@ -24,6 +24,7 @@ sub init_a2c{
            'UTF-8'    => 'utf8',
            'UTF-16BE' => 'UCS-2',
            'ucs-2le'  => 'UTF-16LE',
+           'ucs2-le'  => 'UTF-16LE',
            'cyrillic' => 'iso-8859-5',
            'arabic'   => 'iso-8859-6',
            'greek'    => 'iso-8859-7',