add test for split without a pattern

1 files changed, 6 insertions, 1 deletions

diff --git a/t/op/split.t b/t/op/split.t
index 6e980784ba..c667a3d961 100644
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 251;
+plan tests => 252;
 
 $FS = ':';
 
@@ -73,6 +73,11 @@ is($_ , '1:2:3:4:5:6:::');
 $cnt = split(/:/,'1:2:3:4:5:6:::', 999);
 is($cnt, scalar(@ary));
 
+# Splitting without pattern
+$_ = "1 2 3 4";
+$_ = join(':', split);
+is($_ , '1:2:3:4');
+
 # Does assignment to a list imply split to one more field than that?
 $foo = runperl( switches => ['-Dt'], stderr => 1, prog => '($a,$b)=split;' );
 ok($foo =~ /DEBUGGING/ || $foo =~ /const\n?\Q(IV(3))\E/);