Change 18276: Move the tests added to pat.t in #18248 to lc.t.

[Jarkko Hietaniemi]

Change 18276 by jhi@lyta on 2002/12/09 23:49:14

        Move the tests added to pat.t in #18248 to lc.t.

Affected files ...

... //depot/maint-5.8/perl/t/op/lc.t#7 edit
... //depot/maint-5.8/perl/t/op/pat.t#5 edit

Differences ...

==== //depot/maint-5.8/perl/t/op/lc.t#7 (text) ====
Index: perl/t/op/lc.t
--- perl/t/op/lc.t#6~18273~     Mon Dec  9 14:48:39 2002
+++ perl/t/op/lc.t      Mon Dec  9 15:49:14 2002
@@ -6,7 +6,7 @@
     require './test.pl';
 }
 
-plan tests => 57;
+plan tests => 59;
 
 $a = "HELLO.* world";
 $b = "hello.* WORLD";
@@ -147,5 +147,15 @@
     chop;
     /(.*)/;
     is(uc($1), "ABCDEFGH", "[perl #18931]");
+}
+
+{
+    foreach (0, 1) {
+       $a = v10.v257;
+       chop $a;
+       $a =~ s/^(\s*)(\w*)/$1\u$2/;
+       is($a, v10, "[perl #18857]");
+       $test++;
+    } 
 }
 

==== //depot/maint-5.8/perl/t/op/pat.t#5 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#4~18248~    Fri Dec  6 05:58:05 2002
+++ perl/t/op/pat.t     Mon Dec  9 15:49:14 2002
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..944\n";
+print "1..942\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2996,7 +2996,8 @@
 print "\x{072F}" =~ /\P{Syriac1}/ ? "ok $test\n" : "not ok $test\n"; $test++;
 
 {
-    # Change #18179: previously failed with "panic: end_shift"
+    print "# Change #18179\n";
+    # previously failed with "panic: end_shift
     my $s = "\x{100}" x 5;
     my $ok = $s =~ /(\x{100}{4})/;
     my($ord, $len) = (ord $1, length $1);
@@ -3005,15 +3006,4 @@
     ++$test;
 }
 
-{
-    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
+# last test 942
End of Patch.