diff options
Diffstat (limited to 't/op/split.t')
-rwxr-xr-x | t/op/split.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/split.t b/t/op/split.t index 5b8535c2dd..3d7e89880b 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 49; +plan tests => 50; $FS = ':'; @@ -276,3 +276,10 @@ ok(@ary == 3 && is(join (':',@d), 'readin:database:readout', "[perl #18195]") } } + +{ + $p="a,b"; + utf8::upgrade $p; + @a=split(/[, ]+/,$p); + is ("$@-@a-", '-a b-', '#20912 - split() to array with /[]+/ and utf8'); +} |