UCD.t: Add test for non-Unicode code point

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index a0ebf7e..c22c762 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -17,12 +17,14 @@ use strict;
 use Unicode::UCD;
 use Test::More;
 
-BEGIN { plan tests => 269 };
+BEGIN { plan tests => 270 };
 
 use Unicode::UCD 'charinfo';
 
 my $charinfo;
 
+is(charinfo(0x110000), undef, "Verify charinfo() of non-unicode is undef");
+
 $charinfo = charinfo(0);    # Null is often problematic, so test it.
 
 is($charinfo->{code},           '0000', '<control>');