#
#
-plan tests => 144;
+plan tests => 145;
{
# bug id 20001009.001
like($@, qr/^Modification of a read-only value attempted/,
"utf8::encode should refuse to touch read-only values");
}
+
+{
+ my $a = "456\xb6";
+ utf8::upgrade($a);
+
+ my $b = "123456\xb6";
+ $b =~ s/^...//;
+ utf8::upgrade($b);
+ is($b, $a, "utf8::upgrade OffsetOK");
+}