From e3d65f9f899d4ea3445f8813e16ddef935cb3d06 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sat, 21 Aug 2021 09:42:34 -0600
Subject: [PATCH] UCD.t: Add test

---
 lib/Unicode/UCD.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 5e2aa8b86a14..c7e3ecb0468c 100644
--- 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);