X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a3815e44b8fba04704944693e426f3f47362d3ff..e406736c4117f8f403b44413687d4c8df036c44b:/lib/charnames.t

diff --git a/lib/charnames.t b/lib/charnames.t
index 26bd446..01e1fd7 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -264,6 +264,11 @@ sub test_vianame ($$$) {
     cmp_ok($warning_count, '==', scalar @WARN, "Verify vianame doesn't warn on unknown names");
     ok (! defined charnames::string_vianame("MORE NONE SUCH"), "Verify string_vianame returns undef for an undefined name");
     cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on unknown names");
+    ok (! defined charnames::vianame(""), "Verify vianame returns undef for an empty value");
+    cmp_ok($warning_count, '==', scalar @WARN, "... and no warning is generated");
+    ok (! defined charnames::string_vianame(""), "Verify string_vianame returns undef for an empty value");
+    cmp_ok($warning_count, '==', scalar @WARN, "... and no warning is generated");
+
     eval "qr/\\p{name=MORE NONE SUCH}/";
     like($@, qr/Can't find Unicode property definition "name=MORE NONE SUCH"/,
             '\p{name=} returns an appropriate error message on an undefined name');