Change 18386 by jhi@lyta on 2003/01/01 23:06:53
The change #18275 didn't translate the test case quite right.
Affected files ...
... //depot/maint-5.8/perl/t/op/split.t#5 edit
Differences ...
==== //depot/maint-5.8/perl/t/op/split.t#5 (xtext) ====
Index: perl/t/op/split.t
--- perl/t/op/split.t#4~18275~ Mon Dec 9 15:21:58 2002
+++ perl/t/op/split.t Wed Jan 1 15:06:53 2003
@@ -6,7 +6,7 @@
require './test.pl';
}
-plan tests => 49;
+plan tests => 51;
$FS = ':';
@@ -265,14 +265,13 @@
{
# [perl #18195]
- for my $a (0,1) {
- $_ = 'readin,database,readout';
- if ($ARGV[0]) {
- $_ .= chr 256;
- chop;
+ for my $u (0, 1) {
+ for my $a (0, 1) {
+ $_ = 'readin,database,readout';
+ utf8::upgrade $_ if $u;
+ /(.+)/;
+ my @d = split /[,]/,$1;
+ is(join (':',@d), 'readin:database:readout', "[perl #18195]");
}
- /(.+)/;
- my @d = split /[,]/,$1;
- is(join (':',@d), 'readin:database:readout', "[perl #18195]")
}
}
End of Patch.
