diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/pragma/utf8.t | 12 |
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 +} |