summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/pragma/utf8.t12
1 files changed, 11 insertions, 1 deletions
diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 8e4d296f5d..9137f3606b 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
}
}
-print "1..105\n";
+print "1..106\n";
my $test = 1;
@@ -554,3 +554,13 @@ sub nok_bytes {
print "ok $test\n";
$test++; # 105
}
+
+{
+ use utf8;
+
+ my @a = split(/\xFE/, "\xFF\xFE\xFD");
+
+ print "not " unless @a == 2 && $a[0] eq "\xFF" && $a[1] eq "\xFD";
+ print "ok $test\n";
+ $test++; # 106
+}