r2442 - packages/libi18n-charset-perl/trunk/t

[gregor herrmann]

Author: gregoa-guest
Date: 2006-03-18 23:08:07 +0000 (Sat, 18 Mar 2006)
New Revision: 2442

Modified:
   packages/libi18n-charset-perl/trunk/t/utf8.t
Log:
2nd fix for the windows charset tests in t/utf8.t


Modified: packages/libi18n-charset-perl/trunk/t/utf8.t
===================================================================
--- packages/libi18n-charset-perl/trunk/t/utf8.t	2006-03-18 23:02:45 UTC (rev 2441)
+++ packages/libi18n-charset-perl/trunk/t/utf8.t	2006-03-18 23:08:07 UTC (rev 2442)
@@ -42,7 +42,7 @@
       ok(umu8_charset_name("Windows-1-2-5-1") eq "windows-1251", 'windows-1-2-5-1');
       ok(umu8_charset_name("windows-1252") eq "windows-1252", 'windows-1252 eq');
       ok(umu8_charset_name("win-latin-1") eq "windows-1252", 'win-latin-1');
-      ok(umu8_charset_name("windows-1252") eq "windows-1252", 'windows-1252 ne');
+      ok(umu8_charset_name("windows-1252") ne "windows-1253", 'windows-1252 ne');
       ok(umu8_charset_name("windows-1253") eq "windows-1253", 'windows-1253');
       # Unicode::Map8 names with dummy mib:
       ok(umu8_charset_name("Adobe Zapf Ding Bats") eq "Adobe-Zapf-Dingbats", 'Adobe Zapf Ding Bats');