diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-01 16:22:14 -0600 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2010-07-04 21:43:44 +0100 |
| commit | ac046fe122def2f61ae0bd207f63a50b15a0d7e7 (patch) | |
| tree | c4f0caf63d6c44c52854e2f84d8a4bd6184a2a24 /lib/charnames.t | |
| parent | 630981911ba00041d18690de9fd4a6105d539fba (diff) | |
| download | perl-ac046fe122def2f61ae0bd207f63a50b15a0d7e7.tar.gz | |
Clean up viacode, accept large aliases
This changes viacode to accept aliases that the user has defined beyond
the Unicode range.
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 38a3c615c2..fa132e853a 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -65,6 +65,7 @@ EOE is ("\N{mychar3}", chr(0x100000), "Verify that can define U+... alias"); is (charnames::viacode(0x100000), "mychar3", "And that can get the alias back"); is ("\N{mylarge}", chr(0x111000), "Verify that can define alias beyond Unicode"); + is (charnames::viacode(0x111000), "mylarge", "And that can get the alias back"); is (charnames::viacode(0x80), "myctrl", "Verify that can name a nameless control"); } |