diff options
Diffstat (limited to 'lib/utf8.t')
-rw-r--r-- | lib/utf8.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 90035e56b3..334a476c25 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -37,7 +37,7 @@ no utf8; # Ironic, no? # # -plan tests => 144; +plan tests => 145; { # bug id 20001009.001 @@ -415,3 +415,13 @@ SKIP: { like($@, qr/^Modification of a read-only value attempted/, "utf8::encode should refuse to touch read-only values"); } + +{ + my $a =3D "456\xb6"; + utf8::upgrade($a); + + my $b =3D "123456\xb6"; + $b =3D~ s/^...//; + utf8::upgrade($b); + is($b, $a, "utf8::upgrade OffsetOK"); +} |