diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-03 16:53:20 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-03 19:26:16 -0700 |
| commit | 9e92970c614d4054e0dc8b57cbf767b673b2774b (patch) | |
| tree | 6cec8c7cd1390d4412ccc5610722a75c379f4992 | |
| parent | 4fa6d9d34c528acc4258813903a1b5f60d507034 (diff) | |
| download | perl-9e92970c614d4054e0dc8b57cbf767b673b2774b.tar.gz | |
UCD.t: Add test for non-Unicode code point
| -rw-r--r-- | lib/Unicode/UCD.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index a0ebf7eb18..c22c762a00 100644 --- 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>'); |