diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-31 20:50:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-31 20:50:23 +0000 |
| commit | a23c04e41e8e54701da113d9309ef79fb888afe6 (patch) | |
| tree | ddbe8a2b3337b8379be052ad2687ea07bfd9254a /lib/charnames.t | |
| parent | 4a66ea5a3f06b7d87684264c54e3021d40406dc8 (diff) | |
| download | perl-a23c04e41e8e54701da113d9309ef79fb888afe6.tar.gz | |
Behaviour (make viacode 0xFFFE to return BYTE ORDER MARK,
make viacode no-allocatedcode to return the 0xFFFD) tweaks,
respective test and doc tweaks.
p4raw-id: //depot/perl@15637
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 7b7ad90640..42c2205713 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -12,7 +12,7 @@ BEGIN { $| = 1; -print "1..37\n"; +print "1..38\n"; use charnames ':full'; @@ -137,7 +137,8 @@ sub to_bytes { print "not " unless charnames::viacode(0x1234) eq "ETHIOPIC SYLLABLE SEE"; print "ok 17\n"; - print "not " if defined charnames::viacode(0x0590); # unused Hebrew + # Unused Hebrew. + print "not " unless charnames::viacode(0x0590) eq chr(0xFFFD); print "ok 18\n"; } @@ -216,3 +217,6 @@ print "ok 33\n"; print "ok 37\n"; } +print "not " unless charnames::viacode(0xFFFE) eq "BYTE ORDER MARK"; +print "ok 38\n"; + |