Change 18248 by jhi@lyta on 2002/12/06 13:58:05
A test for [perl #18857] (that was fixed by #18107).
Affected files ...
.... //depot/maint-5.8/perl/t/op/pat.t#4 edit
Differences ...
==== //depot/maint-5.8/perl/t/op/pat.t#4 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#3~18197~ Wed Nov 27 20:14:27 2002
+++ perl/t/op/pat.t Fri Dec 6 05:58:05 2002
@@ -6,7 +6,7 @@
$| = 1;
-print "1..942\n";
+print "1..944\n";
BEGIN {
chdir 't' if -d 't';
@@ -3005,4 +3005,15 @@
++$test;
}
-# last test 942
+{
+ print "# [perl #18857]\n";
+ foreach (0, 1) {
+ $a = v10.v257;
+ chop $a;
+ $a =~ s/^(\s*)(\w*)/$1\u$2/;
+ print $a eq v10 ? "ok $test\n" : "not ok $test\n";
+ $test++;
+ }
+}
+
+# last test 944
End of Patch.
