Change 18275: Add Nick Clark's test case for [perl #18915].

[Jarkko Hietaniemi]

Change 18275 by jhi@lyta on 2002/12/09 23:21:58

        Add Nick Clark's test case for [perl #18915].

Affected files ...

... //depot/maint-5.8/perl/t/op/split.t#4 edit

Differences ...

==== //depot/maint-5.8/perl/t/op/split.t#4 (xtext) ====
Index: perl/t/op/split.t
--- perl/t/op/split.t#3~18274~  Mon Dec  9 15:19:57 2002
+++ perl/t/op/split.t   Mon Dec  9 15:21:58 2002
@@ -6,7 +6,7 @@
     require './test.pl';
 }
 
-plan tests => 47;
+plan tests => 49;
 
 $FS = ':';
 
@@ -261,4 +261,18 @@
     my $char = "\x{10f1ff}";
     my @a = split /\r?\n/, "$char\n";
     ok(@a == 1 && $a[0] eq $char && !defined($warn));
+}
+
+{
+    # [perl #18195]
+    for my $a (0,1) {
+       $_ = 'readin,database,readout';
+       if ($ARGV[0])  {
+           $_ .= chr 256;
+           chop;
+       }
+       /(.+)/;
+       my @d = split /[,]/,$1;
+       is(join (':',@d), 'readin:database:readout', "[perl #18195]")
+    }
 }
End of Patch.