1 files changed, 11 insertions, 1 deletions
diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index 388f533f13..6a8a8be32d 100644
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -8,7 +8,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..14\n";
+print "1..15\n";
 
 use charnames ':full';
 
@@ -42,6 +42,7 @@ EOE
 $encoded_be = "\320\261";
 $encoded_alpha = "\316\261";
 $encoded_bet = "\327\221";
+$encoded_deseng = "\360\220\221\215";
 
 sub to_bytes {
     pack"a*", shift;
@@ -96,3 +97,12 @@ sub to_bytes {
    print "ok 14\n";
 }
 
+{
+  use charnames ':full';
+
+  print "not "
+      unless to_bytes("\N{DESERET SMALL LETTER ENG}") eq $encoded_deseng;
+  print "ok 15\n";
+
+}
+