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

[gregor herrmann]

Author: gregoa-guest
Date: 2006-03-18 23:02:45 +0000 (Sat, 18 Mar 2006)
New Revision: 2441

Modified:
   packages/libi18n-charset-perl/trunk/t/utf8.t
Log:
* dos2unix t/utf8.t
* changed the windows-charset-tests


Modified: packages/libi18n-charset-perl/trunk/t/utf8.t
===================================================================
--- packages/libi18n-charset-perl/trunk/t/utf8.t	2006-03-18 18:42:20 UTC (rev 2440)
+++ packages/libi18n-charset-perl/trunk/t/utf8.t	2006-03-18 23:02:45 UTC (rev 2441)
@@ -1,76 +1,76 @@
-# $Revision: 1.7 $
-# utf8.t - tests for Unicode::MapUTF8 functionality of I18N::Charset
-
-use Test::More no_plan;
-
-use strict;
-
-BEGIN { use_ok('I18N::Charset') };
-
-# These should fail gracefully:
-my @aa;
-ok(!defined umu8_charset_name(), '');         # no argument
-ok(!defined umu8_charset_name(undef), '');    # undef argument
-ok(!defined umu8_charset_name(""), '');       # empty argument
-ok(!defined umu8_charset_name("junk"), '');   # illegal code
-ok(!defined umu8_charset_name(\@aa), '');     # illegal argument
-
-SKIP:
-  {
-  skip 'Unicode::MapUTF8 is not installed', 16 unless eval "require Unicode::MapUTF8";
-
- SKIP:
-    {
-    skip 'Unicode::MapUTF8 version is too old (1.09 is good)', 16 unless eval '(1.08 < ($Unicode::MapUTF8::VERSION || 0))';
-
-    # Plain old IANA names:
-    ok(umu8_charset_name("Unicode-2-0-utf-8") eq "utf8", 'Unicode-2-0-utf-8');
-    ok(umu8_charset_name("UCS-2") eq "ucs2", 'UCS-2');
-    ok(umu8_charset_name("U.C.S. 4") eq "ucs4", 'U.C.S. 4');
- SKIP:
-      {
-      skip 'Unicode::Map is not installed', 2 unless eval 'require Unicode::Map';
-      # Unicode::Map aliases:
-      # Unicode::Map names with dummy mib:
-      ok(umu8_charset_name("Adobe Ding Bats") eq "ADOBE-DINGBATS", 'Adobe Ding Bats');
-      ok(umu8_charset_name("M.S. Turkish") eq "MS-TURKISH", 'M.S. Turkish');
-      } # SKIP block for Unicode::Map8 module
- SKIP:
-      {
-      skip 'Unicode::Map8 is not installed', 7 unless eval 'require Unicode::Map8';
-      # Unicode::Map8 aliases:
-      ok(umu8_charset_name("Windows-1-2-5-1") eq "cp1251", 'windows-1-2-5-1');
-      ok(umu8_charset_name("windows-1252") eq "cp1252", 'windows-1252 eq');
-      ok(umu8_charset_name("win-latin-1") eq "cp1252", 'win-latin-1');
-      ok(umu8_charset_name("windows-1252") ne "cp1253", 'windows-1252 ne');
-      ok(umu8_charset_name("windows-1253") eq "cp1253", 'windows-1253');
-      # Unicode::Map8 names with dummy mib:
-      ok(umu8_charset_name("Adobe Zapf Ding Bats") eq "Adobe-Zapf-Dingbats", 'Adobe Zapf Ding Bats');
-      ok(umu8_charset_name(" c p 1 0 0 7 9 ") eq "cp10079", ' c p 1 0 0 7 9 ');
-      } # SKIP block for Unicode::Map8 module
- SKIP:
-      {
-      skip 'Jcode is not installed', 4 unless eval 'require Jcode';
-      ok(umu8_charset_name("Shift_JIS") eq "sjis", 'Shift_JIS');
-      ok(umu8_charset_name("sjis") eq "sjis", 'sjis');
-      ok(umu8_charset_name("x-sjis") eq "sjis", 'x-sjis');
-      ok(umu8_charset_name("x-x-sjis") eq "sjis", 'x-x-sjis');
-      } # SKIP block for Jcode module
-    } # SKIP block for VERSION of Unicode::MapUTF8 module
-  } # SKIP block for existence of Unicode::MapUTF8 module
-
-exit 0;
-
-my @as = &Unicode::MapUTF8::utf8_supported_charset();
-my @TESTS = map { 'defined iana_charset_name("'. $_ .'")' } @as;
-
-plan tests => scalar(@TESTS);
-
-foreach (@TESTS)
-  {
-  ok($_);
-  } # foreach
-
-exit 0;
-
-__END__
+# $Revision: 1.7 $
+# utf8.t - tests for Unicode::MapUTF8 functionality of I18N::Charset
+
+use Test::More no_plan;
+
+use strict;
+
+BEGIN { use_ok('I18N::Charset') };
+
+# These should fail gracefully:
+my @aa;
+ok(!defined umu8_charset_name(), '');         # no argument
+ok(!defined umu8_charset_name(undef), '');    # undef argument
+ok(!defined umu8_charset_name(""), '');       # empty argument
+ok(!defined umu8_charset_name("junk"), '');   # illegal code
+ok(!defined umu8_charset_name(\@aa), '');     # illegal argument
+
+SKIP:
+  {
+  skip 'Unicode::MapUTF8 is not installed', 16 unless eval "require Unicode::MapUTF8";
+
+ SKIP:
+    {
+    skip 'Unicode::MapUTF8 version is too old (1.09 is good)', 16 unless eval '(1.08 < ($Unicode::MapUTF8::VERSION || 0))';
+
+    # Plain old IANA names:
+    ok(umu8_charset_name("Unicode-2-0-utf-8") eq "utf8", 'Unicode-2-0-utf-8');
+    ok(umu8_charset_name("UCS-2") eq "ucs2", 'UCS-2');
+    ok(umu8_charset_name("U.C.S. 4") eq "ucs4", 'U.C.S. 4');
+ SKIP:
+      {
+      skip 'Unicode::Map is not installed', 2 unless eval 'require Unicode::Map';
+      # Unicode::Map aliases:
+      # Unicode::Map names with dummy mib:
+      ok(umu8_charset_name("Adobe Ding Bats") eq "ADOBE-DINGBATS", 'Adobe Ding Bats');
+      ok(umu8_charset_name("M.S. Turkish") eq "MS-TURKISH", 'M.S. Turkish');
+      } # SKIP block for Unicode::Map8 module
+ SKIP:
+      {
+      skip 'Unicode::Map8 is not installed', 7 unless eval 'require Unicode::Map8';
+      # Unicode::Map8 aliases:
+      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-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');
+      ok(umu8_charset_name(" c p 1 0 0 7 9 ") eq "cp10079", ' c p 1 0 0 7 9 ');
+      } # SKIP block for Unicode::Map8 module
+ SKIP:
+      {
+      skip 'Jcode is not installed', 4 unless eval 'require Jcode';
+      ok(umu8_charset_name("Shift_JIS") eq "sjis", 'Shift_JIS');
+      ok(umu8_charset_name("sjis") eq "sjis", 'sjis');
+      ok(umu8_charset_name("x-sjis") eq "sjis", 'x-sjis');
+      ok(umu8_charset_name("x-x-sjis") eq "sjis", 'x-x-sjis');
+      } # SKIP block for Jcode module
+    } # SKIP block for VERSION of Unicode::MapUTF8 module
+  } # SKIP block for existence of Unicode::MapUTF8 module
+
+exit 0;
+
+my @as = &Unicode::MapUTF8::utf8_supported_charset();
+my @TESTS = map { 'defined iana_charset_name("'. $_ .'")' } @as;
+
+plan tests => scalar(@TESTS);
+
+foreach (@TESTS)
+  {
+  ok($_);
+  } # foreach
+
+exit 0;
+
+__END__