diff options
| author | root <root@dixie.cscaper.com> | 2000-03-22 11:37:42 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-29 00:16:53 +0000 |
| commit | c00525d4ffbf0b596802bf6bdd6a3df8f11e1ff3 (patch) | |
| tree | ba16dfaa1cc722c785751338585bb228913dac3b /t/lib | |
| parent | 81575342712e2830c77e1261370e3647c9a9fe11 (diff) | |
| download | perl-c00525d4ffbf0b596802bf6bdd6a3df8f11e1ff3.tar.gz | |
The problem described in this
Subject: [ID 20000322.018] named chars aren't magical enough
Message-Id: <200003230137.SAA29532@dixie.cscaper.com>
has been fixed in perl 5.6.0 but just in case added a test
to keep it away. (The report from Joseph Hall.)
p4raw-id: //depot/perl@6462
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/charnames.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/lib/charnames.t b/t/lib/charnames.t index 566baf35b0..2e6a818677 100644 --- a/t/lib/charnames.t +++ b/t/lib/charnames.t @@ -8,7 +8,7 @@ BEGIN { } $| = 1; -print "1..12\n"; +print "1..13\n"; use charnames ':full'; @@ -78,3 +78,15 @@ sub to_bytes { print "not " unless sprintf("%vx", "\x{ff}\N{WHITE SMILING FACE}") eq "ff.263a"; print "ok 12\n"; } + +{ + use charnames qw(:full); + use utf8; + + my $x = "\x{221b}"; + my $named = "\N{CUBE ROOT}"; + + print "not " unless ord($x) == ord($named); + print "ok 13\n"; +} + |