DJGPP doesn't have \r\n delimited files (it has \r).

[p5sagit/p5-mst-13.2.git] / lib / charnames.t

diff --git a/lib/charnames.t b/lib/charnames.t
index 3123127..669f6e8 100644 (file)
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -12,7 +12,7 @@ BEGIN {
 
 $| = 1;
 
-print "1..39\n";
+print "1..42\n";
 
 use charnames ':full';
 
@@ -138,7 +138,7 @@ sub to_bytes {
     print "ok 17\n";
 
     # Unused Hebrew.
-    print "not " unless charnames::viacode(0x0590) eq chr(0xFFFD);
+    print "not " if defined charnames::viacode(0x0590);
     print "ok 18\n";
 }
 
@@ -226,3 +226,13 @@ print "ok 38\n";
     print "ok 39\n";
 }
 
+
+print "not " unless ord("\N{ZWNJ}") == 0x200C;
+print "ok 40\n";
+
+print "not " unless ord("\N{ZWJ}") == 0x200D;
+print "ok 41\n";
+
+print "not " unless "\N{U+263A}" eq "\N{WHITE SMILING FACE}";
+print "ok 42\n";
+