From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 1 Sep 2001 23:02:09 +0000 (+0000)
Subject: Test tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=75685a94f35c086cc598b03baf224ef3dc31936b;p=p5sagit%2Fp5-mst-13.2.git

Test tweaks.

p4raw-id: //depot/perl@11818
---

diff --git a/t/op/pat.t b/t/op/pat.t
index 478e299..2e89225 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -1989,6 +1989,8 @@ print "ok 683\n" if @a == 9 && "@a" eq "f o o \n $a $b b a r";
 }
 
 {
+    # [ID 20010407.006] matching utf8 return values from functions does not work
+
     package ID_20010407_006;
 
     sub x {
@@ -2000,7 +2002,7 @@ print "ok 683\n" if @a == 9 && "@a" eq "f o o \n $a $b b a r";
 
     $x =~ /(..)/; $y = $1;
     print "not " unless length($y) == 2 && $y eq $x;
-    print "ok 685\n" if length($y) == 2;
+    print "ok 685\n";
 
     x  =~ /(..)/; $y = $1;
     print "not " unless length($y) == 2 && $y eq $x;