lib/Unicode/UCD.t @INC oddity

[perl5.git] / lib / Unicode / UCD.t

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 0434eb9..1bed138 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -1,14 +1,14 @@
-use Unicode::UCD;
-
-use strict;
-

 BEGIN {
     if (ord("A") == 193) {
        print "1..0 # Skip: EBCDIC\n";
        exit 0;
     }
 BEGIN {
     if (ord("A") == 193) {
        print "1..0 # Skip: EBCDIC\n";
        exit 0;
     }

+    chdir 't' if -d 't';
+    @INC = '../lib';

 }
 
 }
 

+use strict;
+use Unicode::UCD;

 use Test;
 
 BEGIN { plan tests => 162 };
 use Test;
 
 BEGIN { plan tests => 162 };


@@ -106,11 +106,11 @@ ok($charinfo->{script},         'Hebrew');
 $charinfo = charinfo(0xAC00);
 
 ok($charinfo->{code},           'AC00');
 $charinfo = charinfo(0xAC00);
 
 ok($charinfo->{code},           'AC00');

-ok($charinfo->{name},           'HANGUL SYLLABLE GA');
+ok($charinfo->{name},           'HANGUL SYLLABLE-AC00');

 ok($charinfo->{category},       'Lo');
 ok($charinfo->{combining},      '0');
 ok($charinfo->{bidi},           'L');
 ok($charinfo->{category},       'Lo');
 ok($charinfo->{combining},      '0');
 ok($charinfo->{bidi},           'L');

-ok($charinfo->{decomposition},  '1100 1161');
+ok($charinfo->{decomposition},  undef);

 ok($charinfo->{decimal},        '');
 ok($charinfo->{digit},          '');
 ok($charinfo->{numeric},        '');
 ok($charinfo->{decimal},        '');
 ok($charinfo->{digit},          '');
 ok($charinfo->{numeric},        '');


@@ -128,11 +128,11 @@ ok($charinfo->{script},         'Hangul');
 $charinfo = charinfo(0xAE00);
 
 ok($charinfo->{code},           'AE00');
 $charinfo = charinfo(0xAE00);
 
 ok($charinfo->{code},           'AE00');

-ok($charinfo->{name},           'HANGUL SYLLABLE GEUL');
+ok($charinfo->{name},           'HANGUL SYLLABLE-AE00');

 ok($charinfo->{category},       'Lo');
 ok($charinfo->{combining},      '0');
 ok($charinfo->{bidi},           'L');
 ok($charinfo->{category},       'Lo');
 ok($charinfo->{combining},      '0');
 ok($charinfo->{bidi},           'L');

-ok($charinfo->{decomposition},  '1100 1173 11AF');
+ok($charinfo->{decomposition},  undef);

 ok($charinfo->{decimal},        '');
 ok($charinfo->{digit},          '');
 ok($charinfo->{numeric},        '');
 ok($charinfo->{decimal},        '');
 ok($charinfo->{digit},          '');
 ok($charinfo->{numeric},        '');