UCD.t: Add test

Perl · Sep 1, 2021 · e3d65f9 · e3d65f9
1 parent 45577eb
commit e3d65f9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
@@ -800,6 +800,8 @@ SKIP:
 if ($v_unicode_version ge v4.1.0) {
     use Unicode::UCD qw(namedseq);
 
+    is(namedseq("KEYCAP DIGIT ZERO"), "0\x{FE0F}\x{20E3}",
+                "namedseq with char that varies under EBCDIC");
     is(namedseq("KATAKANA LETTER AINU P"), "\x{31F7}\x{309A}", "namedseq");
     is(namedseq("KATAKANA LETTER AINU Q"), undef);
     is(namedseq(), undef);